SimulationCore2/Equipments/RotaryTable/RTMalfunction_MotorFailure.f90

 subroutine RTMalfunction_MotorFailure
    
    use CDrillingConsoleVariables
    use CDataDisplayConsoleVariables
    use CSimulationVariables
    use RTable_VARIABLES
    
	IMPLICIT NONE
    
    
    if ( RTable%MotorFaileMalf==1 ) then
        RTable%N_new = 0.0
    end if
    
    
    
END subroutine RTMalfunction_MotorFailure