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