SimulationCore2/Equipments/RotaryTable/RTable_OffMode.f90

subroutine RTable_OffMode
    
    use RTable_VARIABLES
    use CDataDisplayConsoleVariables
    use CDrillingConsoleVariables
    use CSimulationVariables
    use CWarningsVariables
    use CSounds
    
	IMPLICIT NONE
    
    
    !==================================================================
    !                  Rate limit for off Mode
        
        Do while (((RTable%N_old-0.0d0)/RTable%time_step)>386.0d0)
            RTable%N_ref = (-386.0d0*RTable%time_step)+RTable%N_old
            !else
            !    RTable%N_ref=0.0d0
            !end if
            
            CALL RTable_INPUTS
            CALL RTable_Solver
            RTable%N_old = RTable%N_ref
            if ( RT_OldTransMode==0 .and. RTTransmissionLever/=0 .and. RTable%w_new/=0.d0 ) then
                Call Activate_RotaryGearsAbuse()
                RTable%SoundGearCrash = .true.
                Call SetSoundRtGearCrash(RTable%SoundGearCrash)
            else
                RTable%SoundGearCrash = .false.
                Call SetSoundRtGearCrash(RTable%SoundGearCrash)
            end if
            RT_OldTransMode = RTTransmissionLever
            if (IsPortable) then
                RTable%AssignmentSwitch = 1
            else
                RTable%AssignmentSwitch = AssignmentSwitch
            end if
            if ((any(RTable%AssignmentSwitch==(/6,7,12/))) .or. (RTSwitch==0) .or. (IsStopped == .true.)) then
                RTBLWR = 0
            end if
        
            Call sleepqq (80)  !?????????????????
        End Do
    !==================================================================
    
    
    RTable%N_ref = 0.
    RTable%N_new = 0.
    RTable%N_old = 0.
    
    
    RTable%ia     = 0.
    RTable%ia_old = 0.
    RTable%ia_new = 0.
    RTable%x      = 0.
    RTable%x_old  = 0.
    RTable%x_new  = 0.
    RTable%y      = 0.
    RTable%y_old  = 0.
    RTable%y_new  = 0.
    RTable%w      = 0.
    RTable%w_old  = 0.
    RTable%w_new  = 0.
    RTable%Speed  = 0.
    RT_wOld       = 0.
    Call Set_RotaryRPMGauge(sngl(1-RTable%RpmGaugeMalf)*real(RTable%Speed,8))
    RTable%SoundRPM = INT(RTable%Speed)
    Call SetSoundRT( RTable%SoundRPM )
    
    !RotaryRPMGauge=RTable%Speed
    !RPM=RotaryRPMGauge
    RTable%Output_Current = 0.
    RotaryTorqueGauge  = ( ((RTable%J_coef+RTable%String_JCoef)*(((RTable%w_new/RTable%Conv_Ratio)-RT_wOld)/RTable%time_step))+(RTable%String_Torque) )*0.73756215   ![N.m]*0.73756215 = [ft.lbf]
    RTable%Torque      = ( ((RTable%J_coef+RTable%String_JCoef)*(((RTable%w_new/RTable%Conv_Ratio)-RT_wOld)/RTable%time_step))+(RTable%String_Torque) )*0.73756215   ![N.m]*0.73756215 = [ft.lbf]
    Call Set_RotaryTorque(sngl(1-RTable%TorqueGaugeMalf)*real(RTable%Torque,8))
    !RotaryTorqueGauge=(RTable%String_Torque)/12.
    
    
    
end subroutine RTable_OffMode