SimulationCore2/Equipments/RotaryTable/RTable_Outputs.f90

subroutine RTable_Outputs
    
    Use CDrillingConsoleVariables
    Use CDataDisplayConsoleVariables
    Use RTable_VARIABLES
    Use CDrillWatchVariables
    Use CSounds
    
    IMPLICIT NONE
    
    
    
    DrillingConsole%RTBLWR = RTable%BLWR

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