subroutine DWMalfunction_MotorFailure use CDrillingConsoleVariables use CDataDisplayConsoleVariables use CHoistingVariables use Drawworks_VARIABLES IMPLICIT NONE if (Drawworks%MotorFaileMalf==1) then Drawworks%Conv_Ratio = 1.0D0 end if END subroutine