subroutine Pumps_Outputs use CPumpsVariables use CDrillingConsoleVariables use CDataDisplayConsoleVariables use CSimulationVariables use Pumps_VARIABLES use MudSystem IMPLICIT NONE !>>>>>>>>>>>>>>>>>>>>>>> PUMP 1 <<<<<<<<<<<<<<<<<<<<<<<<<<< !Call SetSoundBlowerMP1(PUMP(1)%SoundBlower) ! DrillingConsole%MP1BLWR = 1 ! Call OpenPump1() ! Call ClosePump1() ! total_pumps%Total_Pump_GPM = 100 ! total_pumps%Total_Pump_SPM = ! Call Set_MP1SPMGauge( sngl(1-PUMP(1)%SPMGaugeMalf)*real((PUMP(1)%Speed/PUMP(1)%Trans_Ratio),8) ) ! DrillingWatch%SPM1 = MP1SPMGauge ! Call SetSoundMP1( PUMP(1)%SoundSPM ) ! SCR1LED=1 ! SCR2LED=1 ! SCR3LED=1 ! SCR4LED=1 !!>>>>>>>>>>>>>>>>>>>>>>> PUMP 2 <<<<<<<<<<<<<<<<<<<<<<<<<<< ! ! ! ! ! ! !!>>>>>>>>>>>>>>>>>>>>>>> PUMP 3 <<<<<<<<<<<<<<<<<<<<<<<<<<< ! end subroutine Pumps_Outputs