SimulationCore2/Equipments/RotaryTable/RTable_Outputs.i90

# 1 "/home/admin/SimulationCore2/Equipments/RotaryTable/RTable_Outputs.f90"
subroutine RTable_Outputs
    
    use CDrillingConsoleVariables
    use SimulationVariables
    use CDataDisplayConsole
    Use CSounds
    
    IMPLICIT NONE
    
    
    
    data%Equipments%DrillingConsole%RTBLWR = data%State%RTable%BLWR

    Call SetSoundBlowerRT(data%State%RTable%SoundBlower)                                               !.true. or .false.
    Call SetSoundRT( data%State%RTable%SoundRPM )                                                      ![RPM] , integer
    
!data%State%RTable%Speed     !to other modules
    Call Set_RotaryRPMGauge( sngl(1-data%State%RTable%RpmGaugeMalf)*real(data%State%RTable%RpmGaugeOutput,8) )    ![RPM]
    
    data%Equipments%DataDisplayConsole%RotaryTorqueGauge = data%State%RTable%TorqueGaugeOutput                    ![ft.lbf]
    data%Equipments%DrillingWatch%Torque                 = data%State%RTable%TorqueGaugeOutput
    Call Set_RotaryTorque(sngl(1-data%State%RTable%TorqueGaugeMalf)*real(data%State%RTable%TorqueGaugeOutput,8))  ![ft.lbf]
    
!RT_RPMUnityOutput = sngl(data%State%RTable%Switch)*-1.d0*RotaryRPMGauge
    
    
    
end subroutine RTable_Outputs