SimulationCore2/CSharp/Equipments/ControlPanels/CDataDisplayConsole.f90

module CDataDisplayConsole
	use CDataDisplayConsoleVariables
	implicit none    
	public    
    contains  
    
    !Portable
    subroutine SetTripAlarmLow(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetTripAlarmLow
    !DEC$ ATTRIBUTES ALIAS: 'SetTripAlarmLow' :: SetTripAlarmLow
        !use MudSystemVARIABLES, only: TripTank_MinVol_Allowded
	    implicit none
	    real*8, intent(in) :: v
	    DataDisplayConsole%TripAlarmLow = v
        !TripTank_MinVol_Allowded = v
#ifdef deb
		print*, 'TripAlarmLow=', DataDisplayConsole%TripAlarmLow
#endif
    end subroutine

    subroutine SetTripAlarmHigh(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetTripAlarmHigh
    !DEC$ ATTRIBUTES ALIAS: 'SetTripAlarmHigh' :: SetTripAlarmHigh
        !use MudSystemVARIABLES, only: TripTank_MaxVol_Allowded
	    implicit none
	    real*8, intent(in) :: v
	    DataDisplayConsole%TripAlarmHigh = v
        !TripTank_MaxVol_Allowded = v
#ifdef deb
		print*, 'TripAlarmHigh=', DataDisplayConsole%TripAlarmHigh
#endif
    end subroutine

    
    subroutine SetRetFlowAlarmLow(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetRetFlowAlarmLow
    !DEC$ ATTRIBUTES ALIAS: 'SetRetFlowAlarmLow' :: SetRetFlowAlarmLow
        !use MudSystemVARIABLES, only: MFFI_MinPercent_Allowded
	    implicit none
	    real*8, intent(in) :: v
	    DataDisplayConsole%RetFlowAlarmLow = v
        !MFFI_MinPercent_Allowded = v
#ifdef deb
		print*, 'RetFlowAlarmLow=', DataDisplayConsole%RetFlowAlarmLow
#endif
    end subroutine

    subroutine SetRetFlowAlarmHigh(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetRetFlowAlarmHigh
    !DEC$ ATTRIBUTES ALIAS: 'SetRetFlowAlarmHigh' :: SetRetFlowAlarmHigh
        !use MudSystemVARIABLES, only: MFFI_MaxPercent_Allowded
	    implicit none
	    real*8, intent(in) :: v
	    DataDisplayConsole%RetFlowAlarmHigh = v
        !MFFI_MaxPercent_Allowded = v
#ifdef deb
		print*, 'RetFlowAlarmHigh=', DataDisplayConsole%RetFlowAlarmHigh
#endif
    end subroutine

    
    subroutine SetPitAlarmLow(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetPitAlarmLow
    !DEC$ ATTRIBUTES ALIAS: 'SetPitAlarmLow' :: SetPitAlarmLow
	    implicit none
	    real*8, intent(in) :: v
	    DataDisplayConsole%PitAlarmLow = v
        !call Log_4('PitAlarmLow=', PitAlarmLow)
#ifdef deb
		print*, 'PitAlarmLow=', DataDisplayConsole%PitAlarmLow
#endif
    end subroutine

    subroutine SetPitAlarmHigh(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: SetPitAlarmHigh
    !DEC$ ATTRIBUTES ALIAS: 'SetPitAlarmHigh' :: SetPitAlarmHigh
	    implicit none
	    real*8, intent(in) :: v
	    DataDisplayConsole%PitAlarmHigh = v
        !call Log_4('PitAlarmHigh=', PitAlarmHigh)
#ifdef deb
		print*, 'PitAlarmHigh=', DataDisplayConsole%PitAlarmHigh
#endif
    end subroutine
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
	
	! Input routines
	subroutine SetTripTankSetAlarmLow(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetTripTankSetAlarmLow
	!DEC$ ATTRIBUTES ALIAS: 'SetTripTankSetAlarmLow' :: SetTripTankSetAlarmLow
		implicit none
		real*8, intent(in) :: v
		DataDisplayConsole%TripTankSetAlarmLow = v
#ifdef deb
		print*, 'TripTankSetAlarmLow=', DataDisplayConsole%TripTankSetAlarmLow
#endif
	end subroutine

	subroutine SetTripTankSetAlarmHigh(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetTripTankSetAlarmHigh
	!DEC$ ATTRIBUTES ALIAS: 'SetTripTankSetAlarmHigh' :: SetTripTankSetAlarmHigh
		implicit none
		real*8, intent(in) :: v
		DataDisplayConsole%TripTankSetAlarmHigh = v
#ifdef deb
		print*, 'TripTankSetAlarmHigh=', DataDisplayConsole%TripTankSetAlarmHigh
#endif
	end subroutine

	subroutine SetTripTankSetAlarmSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetTripTankSetAlarmSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetTripTankSetAlarmSwitch' :: SetTripTankSetAlarmSwitch
		implicit none
		integer, intent(in) :: v
		DataDisplayConsole%TripTankSetAlarmSwitch = v
#ifdef deb
		print*, 'TripTankSetAlarmSwitch=', DataDisplayConsole%TripTankSetAlarmSwitch
#endif
	end subroutine

	subroutine SetTripTankPowerSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetTripTankPowerSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetTripTankPowerSwitch' :: SetTripTankPowerSwitch
        use CTanksVariables, only: Set_ManualPumpPower
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%TripTankPowerSwitch = v
        if(DataDisplayConsole%TripTankPowerSwitch) call Set_ManualPumpPower(DataDisplayConsole%TripTankPumpSwitch)
#ifdef deb
		print*, 'TripTankPowerSwitch=', DataDisplayConsole%TripTankPowerSwitch
#endif
	end subroutine

	subroutine SetTripTankPumpSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetTripTankPumpSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetTripTankPumpSwitch' :: SetTripTankPumpSwitch
        use CTanksVariables, only: Set_ManualPumpPower
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%TripTankPumpSwitch = v
        if(DataDisplayConsole%TripTankPowerSwitch) call Set_ManualPumpPower(DataDisplayConsole%TripTankPumpSwitch)
#ifdef deb
		print*, 'TripTankPumpSwitch=', DataDisplayConsole%TripTankPumpSwitch
#endif
	end subroutine

	subroutine SetTripTankHornSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetTripTankHornSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetTripTankHornSwitch' :: SetTripTankHornSwitch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%TripTankHornSwitch = v
#ifdef deb
		print*, 'TripTankHornSwitch=', DataDisplayConsole%TripTankHornSwitch
#endif
	end subroutine

	subroutine SetAcidGasDetectionHornSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetAcidGasDetectionHornSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetAcidGasDetectionHornSwitch' :: SetAcidGasDetectionHornSwitch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%AcidGasDetectionHornSwitch = v
#ifdef deb
		print*, 'AcidGasDetectionHornSwitch=', DataDisplayConsole%AcidGasDetectionHornSwitch
#endif
	end subroutine

	subroutine SetTotalStrokeCounterResetSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetTotalStrokeCounterResetSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetTotalStrokeCounterResetSwitch' :: SetTotalStrokeCounterResetSwitch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%TotalStrokeCounterResetSwitch = v
#ifdef deb
		print*, 'TotalStrokeCounterResetSwitch=', DataDisplayConsole%TotalStrokeCounterResetSwitch
#endif
	end subroutine

	subroutine SetDrillingTrippingSelectorSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetDrillingTrippingSelectorSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetDrillingTrippingSelectorSwitch' :: SetDrillingTrippingSelectorSwitch
		use CCommonVariables   
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%DrillingTrippingSelectorSwitch = v
		DrillWatchOperationMode = v
#ifdef deb
		print*, 'DrillingTrippingSelectorSwitch=', DataDisplayConsole%DrillingTrippingSelectorSwitch
#endif
	end subroutine

	subroutine SetMVTSetAlarmLowKnob(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMVTSetAlarmLowKnob
	!DEC$ ATTRIBUTES ALIAS: 'SetMVTSetAlarmLowKnob' :: SetMVTSetAlarmLowKnob
		implicit none
		real*8, intent(in) :: v
		DataDisplayConsole%MVTSetAlarmLowKnob = v
#ifdef deb
		print*, 'MVTSetAlarmLowKnob=', DataDisplayConsole%MVTSetAlarmLowKnob
#endif
	end subroutine

	subroutine SetMVTSetAlarmHighKnob(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMVTSetAlarmHighKnob
	!DEC$ ATTRIBUTES ALIAS: 'SetMVTSetAlarmHighKnob' :: SetMVTSetAlarmHighKnob
		implicit none
		real*8, intent(in) :: v
		DataDisplayConsole%MVTSetAlarmHighKnob = v
#ifdef deb
		print*, 'MVTSetAlarmHighKnob=', DataDisplayConsole%MVTSetAlarmHighKnob
#endif
	end subroutine

	subroutine SetMVTSetAlarmSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMVTSetAlarmSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetMVTSetAlarmSwitch' :: SetMVTSetAlarmSwitch
		implicit none
		integer, intent(in) :: v
		DataDisplayConsole%MVTSetAlarmSwitch = v
#ifdef deb
		print*, 'MVTSetAlarmSwitch=', DataDisplayConsole%MVTSetAlarmSwitch
#endif
	end subroutine

	subroutine SetMudTank1Switch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMudTank1Switch
	!DEC$ ATTRIBUTES ALIAS: 'SetMudTank1Switch' :: SetMudTank1Switch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MudTank1Switch = v
#ifdef deb
		print*, 'MudTank1Switch=', DataDisplayConsole%MudTank1Switch
#endif
	end subroutine

	subroutine SetMudTank2Switch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMudTank2Switch
	!DEC$ ATTRIBUTES ALIAS: 'SetMudTank2Switch' :: SetMudTank2Switch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MudTank2Switch = v
#ifdef deb
		print*, 'MudTank2Switch=', DataDisplayConsole%MudTank2Switch
#endif
	end subroutine

	subroutine SetMudTank3Switch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMudTank3Switch
	!DEC$ ATTRIBUTES ALIAS: 'SetMudTank3Switch' :: SetMudTank3Switch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MudTank3Switch = v
#ifdef deb
		print*, 'MudTank3Switch=', DataDisplayConsole%MudTank3Switch
#endif
	end subroutine

	subroutine SetMudTank4Switch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMudTank4Switch
	!DEC$ ATTRIBUTES ALIAS: 'SetMudTank4Switch' :: SetMudTank4Switch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MudTank4Switch = v
#ifdef deb
		print*, 'MudTank4Switch=', DataDisplayConsole%MudTank4Switch
#endif
	end subroutine

	subroutine SetMVTFineKnob(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMVTFineKnob
	!DEC$ ATTRIBUTES ALIAS: 'SetMVTFineKnob' :: SetMVTFineKnob
		implicit none
		real*8, intent(in) :: v
		DataDisplayConsole%MVTFineKnob = v
#ifdef deb
		print*, 'MVTFineKnob=', DataDisplayConsole%MVTFineKnob
#endif
	end subroutine

	subroutine SetMVTCoarseKnob(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMVTCoarseKnob
	!DEC$ ATTRIBUTES ALIAS: 'SetMVTCoarseKnob' :: SetMVTCoarseKnob
		implicit none
		real*8, intent(in) :: v
		DataDisplayConsole%MVTCoarseKnob = v
#ifdef deb
		print*, 'MVTCoarseKnob=', DataDisplayConsole%MVTCoarseKnob
#endif
	end subroutine

	subroutine SetMVTHornSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMVTHornSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetMVTHornSwitch' :: SetMVTHornSwitch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MVTHornSwitch = v
#ifdef deb
		print*, 'MVTHornSwitch=', DataDisplayConsole%MVTHornSwitch
#endif
	end subroutine

	subroutine SetMVTDeviationTripSelectionSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMVTDeviationTripSelectionSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetMVTDeviationTripSelectionSwitch' :: SetMVTDeviationTripSelectionSwitch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MVTDeviationTripSelectionSwitch = v
#ifdef deb
		print*, 'MVTDeviationTripSelectionSwitch=', DataDisplayConsole%MVTDeviationTripSelectionSwitch
#endif
	end subroutine

	subroutine SetMVTPowerSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMVTPowerSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetMVTPowerSwitch' :: SetMVTPowerSwitch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MVTPowerSwitch = v
#ifdef deb
		print*, 'MVTPowerSwitch=', DataDisplayConsole%MVTPowerSwitch
#endif
	end subroutine

	subroutine SetMFFIResetTotalStrokes(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMFFIResetTotalStrokes
	!DEC$ ATTRIBUTES ALIAS: 'SetMFFIResetTotalStrokes' :: SetMFFIResetTotalStrokes
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MFFIResetTotalStrokes = v
#ifdef deb
		print*, 'MFFIResetTotalStrokes=', DataDisplayConsole%MFFIResetTotalStrokes
#endif
	end subroutine

	subroutine SetMFFIResetFillCounter(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMFFIResetFillCounter
	!DEC$ ATTRIBUTES ALIAS: 'SetMFFIResetFillCounter' :: SetMFFIResetFillCounter
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MFFIResetFillCounter = v
#ifdef deb
		print*, 'MFFIResetFillCounter=', DataDisplayConsole%MFFIResetFillCounter
#endif
	end subroutine

	subroutine SetMFFIPumpSelectorSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMFFIPumpSelectorSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetMFFIPumpSelectorSwitch' :: SetMFFIPumpSelectorSwitch
		implicit none
		integer, intent(in) :: v
		DataDisplayConsole%MFFIPumpSelectorSwitch = v
#ifdef deb
		print*, 'MFFIPumpSelectorSwitch=', DataDisplayConsole%MFFIPumpSelectorSwitch
#endif
	end subroutine

	subroutine SetMFFIFillSPMSelectorSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMFFIFillSPMSelectorSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetMFFIFillSPMSelectorSwitch' :: SetMFFIFillSPMSelectorSwitch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MFFIFillSPMSelectorSwitch = v
#ifdef deb
		print*, 'MFFIFillSPMSelectorSwitch=', DataDisplayConsole%MFFIFillSPMSelectorSwitch
#endif
	end subroutine

	subroutine SetMFFISetAlarmLowKnob(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMFFISetAlarmLowKnob
	!DEC$ ATTRIBUTES ALIAS: 'SetMFFISetAlarmLowKnob' :: SetMFFISetAlarmLowKnob
		implicit none
		real*8, intent(in) :: v
		DataDisplayConsole%MFFISetAlarmLowKnob = v
#ifdef deb
		print*, 'MFFISetAlarmLowKnob=', DataDisplayConsole%MFFISetAlarmLowKnob
#endif
	end subroutine

	subroutine SetMFFISetAlarmHighKnob(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMFFISetAlarmHighKnob
	!DEC$ ATTRIBUTES ALIAS: 'SetMFFISetAlarmHighKnob' :: SetMFFISetAlarmHighKnob
		implicit none
		real*8, intent(in) :: v
		DataDisplayConsole%MFFISetAlarmHighKnob = v
#ifdef deb
		print*, 'MFFISetAlarmHighKnob=', DataDisplayConsole%MFFISetAlarmHighKnob
#endif
	end subroutine

	subroutine SetMFFISetAlarmSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMFFISetAlarmSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetMFFISetAlarmSwitch' :: SetMFFISetAlarmSwitch
		implicit none
		integer, intent(in) :: v
		DataDisplayConsole%MFFISetAlarmSwitch = v
#ifdef deb
		print*, 'MFFISetAlarmSwitch=', DataDisplayConsole%MFFISetAlarmSwitch
#endif
	end subroutine

	subroutine SetMFFIPowerSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMFFIPowerSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetMFFIPowerSwitch' :: SetMFFIPowerSwitch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MFFIPowerSwitch = v
#ifdef deb
		print*, 'MFFIPowerSwitch=', DataDisplayConsole%MFFIPowerSwitch
#endif
	end subroutine

	subroutine SetMFFIHornSwitch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetMFFIHornSwitch
	!DEC$ ATTRIBUTES ALIAS: 'SetMFFIHornSwitch' :: SetMFFIHornSwitch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%MFFIHornSwitch = v
#ifdef deb
		print*, 'MFFIHornSwitch=', DataDisplayConsole%MFFIHornSwitch
#endif
    end subroutine
    
    subroutine SetTotalWellDepth(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetTotalWellDepth
	!DEC$ ATTRIBUTES ALIAS: 'SetTotalWellDepth' :: SetTotalWellDepth
		implicit none
        real(8), intent(in) :: v
		call Set_TotalDepth(v)
#ifdef deb
		print*, 'TotalWellDepth=', v
#endif
    end subroutine
    
    subroutine SetResetWob(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetResetWob
	!DEC$ ATTRIBUTES ALIAS: 'SetResetWob' :: SetResetWob
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%ResetWob = v
#ifdef deb
		print*, 'ResetWob=', DataDisplayConsole%ResetWob
#endif
    end subroutine
    
    subroutine SetClutch(v)
	!DEC$ ATTRIBUTES DLLEXPORT :: SetClutch
	!DEC$ ATTRIBUTES ALIAS: 'SetClutch' :: SetClutch
		implicit none
		logical, intent(in) :: v
		DataDisplayConsole%Clutch = v
#ifdef deb
		print*, 'Clutch=', DataDisplayConsole%Clutch
#endif
    end subroutine


	! Output routines
	real(8) function GetWOBPointer()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetWOBPointer
	!DEC$ ATTRIBUTES ALIAS: 'GetWOBPointer' :: GetWOBPointer
		implicit none
		GetWOBPointer = DataDisplayConsole%WOBPointer
	end function

	real(8) function GetHookLoadPointer()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetHookLoadPointer
	!DEC$ ATTRIBUTES ALIAS: 'GetHookLoadPointer' :: GetHookLoadPointer
		implicit none
		GetHookLoadPointer = DataDisplayConsole%HookLoadPointer
	end function

	real(8) function GetTripTankGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetTripTankGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetTripTankGauge' :: GetTripTankGauge
		implicit none
		GetTripTankGauge = DataDisplayConsole%TripTankGauge / 42.0
		!GetTripTankGauge = 23
	end function

	integer function GetTripTankAlarmLED()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetTripTankAlarmLED
	!DEC$ ATTRIBUTES ALIAS: 'GetTripTankAlarmLED' :: GetTripTankAlarmLED
		implicit none
		GetTripTankAlarmLED = DataDisplayConsole%TripTankAlarmLED
		!GetTripTankAlarmLED = 1
	end function

	integer function GetTripTankPumpLED()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetTripTankPumpLED
	!DEC$ ATTRIBUTES ALIAS: 'GetTripTankPumpLED' :: GetTripTankPumpLED
		implicit none
		GetTripTankPumpLED = DataDisplayConsole%TripTankPumpLED
	end function

	real(8) function GetStandPipePressureGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetStandPipePressureGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetStandPipePressureGauge' :: GetStandPipePressureGauge
		implicit none
		GetStandPipePressureGauge = DataDisplayConsole%StandPipePressureGauge
	end function

	real(8) function GetCasingPressureGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetCasingPressureGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetCasingPressureGauge' :: GetCasingPressureGauge
		implicit none
		GetCasingPressureGauge = DataDisplayConsole%CasingPressureGauge
	end function

	real(8) function GetMP1SPMGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMP1SPMGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetMP1SPMGauge' :: GetMP1SPMGauge
		implicit none
		GetMP1SPMGauge = DataDisplayConsole%MP1SPMGauge
	end function

	real(8) function GetMP2SPMGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMP2SPMGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetMP2SPMGauge' :: GetMP2SPMGauge
		implicit none
		GetMP2SPMGauge = DataDisplayConsole%MP2SPMGauge
	end function

	real(8) function GetReturnLineTempGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetReturnLineTempGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetReturnLineTempGauge' :: GetReturnLineTempGauge
		implicit none
		GetReturnLineTempGauge = DataDisplayConsole%ReturnLineTempGauge
	end function

	real(8) function GetRotaryTorqueGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetRotaryTorqueGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetRotaryTorqueGauge' :: GetRotaryTorqueGauge
		implicit none
		GetRotaryTorqueGauge = DataDisplayConsole%RotaryTorqueGauge
	end function

	real(8) function GetRotaryRPMGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetRotaryRPMGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetRotaryRPMGauge' :: GetRotaryRPMGauge
		implicit none
		GetRotaryRPMGauge = DataDisplayConsole%RotaryRPMGauge
	end function

	integer function GetAcidGasDetectionLED()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetAcidGasDetectionLED
	!DEC$ ATTRIBUTES ALIAS: 'GetAcidGasDetectionLED' :: GetAcidGasDetectionLED
		implicit none
		GetAcidGasDetectionLED = DataDisplayConsole%AcidGasDetectionLED
	end function

	real(8) function GetTotalStrokeCounter()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetTotalStrokeCounter
	!DEC$ ATTRIBUTES ALIAS: 'GetTotalStrokeCounter' :: GetTotalStrokeCounter
		implicit none
		GetTotalStrokeCounter = DataDisplayConsole%TotalStrokeCounter
		!GetTotalStrokeCounter = 456.9
	end function

	real(8) function GetPitGainLossGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetPitGainLossGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetPitGainLossGauge' :: GetPitGainLossGauge
		implicit none
		GetPitGainLossGauge = DataDisplayConsole%PitGainLossGauge
		!GetPitGainLossGauge = 44
	end function

	real(8) function GetMudTanksVolumeGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMudTanksVolumeGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetMudTanksVolumeGauge' :: GetMudTanksVolumeGauge
		implicit none
		GetMudTanksVolumeGauge = DataDisplayConsole%MudTanksVolumeGauge / 42.0
	end function

	integer function GetMVTAlarmLED()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMVTAlarmLED
	!DEC$ ATTRIBUTES ALIAS: 'GetMVTAlarmLED' :: GetMVTAlarmLED
		implicit none
		GetMVTAlarmLED = DataDisplayConsole%MVTAlarmLED
		!GetMVTAlarmLED = 1
	end function

	real(8) function GetReturnMudFlowGauge()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetReturnMudFlowGauge
	!DEC$ ATTRIBUTES ALIAS: 'GetReturnMudFlowGauge' :: GetReturnMudFlowGauge
		implicit none
		GetReturnMudFlowGauge = DataDisplayConsole%ReturnMudFlowGauge
		!GetReturnMudFlowGauge = 12
	end function

	real(8) function GetFillStrokeCounter()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetFillStrokeCounter
	!DEC$ ATTRIBUTES ALIAS: 'GetFillStrokeCounter' :: GetFillStrokeCounter
		implicit none
		GetFillStrokeCounter = DataDisplayConsole%FillStrokeCounter
	end function

	real(8) function GetMFFITotalStrokeCounter()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMFFITotalStrokeCounter
	!DEC$ ATTRIBUTES ALIAS: 'GetMFFITotalStrokeCounter' :: GetMFFITotalStrokeCounter
		implicit none
		GetMFFITotalStrokeCounter = DataDisplayConsole%MFFITotalStrokeCounter
	end function

	integer function GetMFFIAlarmLED()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMFFIAlarmLED
	!DEC$ ATTRIBUTES ALIAS: 'GetMFFIAlarmLED' :: GetMFFIAlarmLED
		implicit none
		GetMFFIAlarmLED = DataDisplayConsole%MFFIAlarmLED
		!GetMFFIAlarmLED = 1
	end function

	integer function GetMFFIPumpLED()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMFFIPumpLED
	!DEC$ ATTRIBUTES ALIAS: 'GetMFFIPumpLED' :: GetMFFIPumpLED
		implicit none
		GetMFFIPumpLED = DataDisplayConsole%MFFIPumpLED
	end function

	real(8) function GetTotalWellDepth()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetTotalWellDepth
	!DEC$ ATTRIBUTES ALIAS: 'GetTotalWellDepth' :: GetTotalWellDepth
		implicit none
		GetTotalWellDepth = DataDisplayConsole%TotalWellDepth
	end function

	real(8) function GetBitDepth()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetBitDepth
	!DEC$ ATTRIBUTES ALIAS: 'GetBitDepth' :: GetBitDepth
		implicit none
		GetBitDepth = DataDisplayConsole%BitDepth
	end function

	real(8) function GetHookLoad()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetHookLoad
	!DEC$ ATTRIBUTES ALIAS: 'GetHookLoad' :: GetHookLoad
		implicit none
		GetHookLoad = DataDisplayConsole%HookLoad
	end function

	real(8) function GetStandPipePressure2()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetStandPipePressure2
	!DEC$ ATTRIBUTES ALIAS: 'GetStandPipePressure2' :: GetStandPipePressure2
		implicit none
		GetStandPipePressure2 = DataDisplayConsole%StandPipePressure
	end function

	real(8) function GetCasingPressure2()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetCasingPressure2
	!DEC$ ATTRIBUTES ALIAS: 'GetCasingPressure2' :: GetCasingPressure2
		implicit none
		GetCasingPressure2 = DataDisplayConsole%CasingPressure
	end function

	real(8) function GetMP1SPM()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMP1SPM
	!DEC$ ATTRIBUTES ALIAS: 'GetMP1SPM' :: GetMP1SPM
		implicit none
		GetMP1SPM = DataDisplayConsole%MP1SPM
	end function

	real(8) function GetMP2SPM()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMP2SPM
	!DEC$ ATTRIBUTES ALIAS: 'GetMP2SPM' :: GetMP2SPM
		implicit none
		GetMP2SPM = DataDisplayConsole%MP2SPM
	end function

	real(8) function GetRTTorque()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetRTTorque
	!DEC$ ATTRIBUTES ALIAS: 'GetRTTorque' :: GetRTTorque
		implicit none
		GetRTTorque = DataDisplayConsole%RTTorque
	end function

	real(8) function GetRTRPM()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetRTRPM
	!DEC$ ATTRIBUTES ALIAS: 'GetRTRPM' :: GetRTRPM
		implicit none
		GetRTRPM = DataDisplayConsole%RTRPM
	end function

	real(8) function GetWOP()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetWOP
	!DEC$ ATTRIBUTES ALIAS: 'GetWOP' :: GetWOP
		implicit none
		GetWOP = DataDisplayConsole%WOP
	end function

	real(8) function GetROP()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetROP
	!DEC$ ATTRIBUTES ALIAS: 'GetROP' :: GetROP
		implicit none
		GetROP = DataDisplayConsole%ROP
	end function

	real(8) function GetMudWeightIn()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMudWeightIn
	!DEC$ ATTRIBUTES ALIAS: 'GetMudWeightIn' :: GetMudWeightIn
		implicit none
		GetMudWeightIn = DataDisplayConsole%MudWeightIn
	end function

	real(8) function GetMudWeightOut()
	!DEC$ ATTRIBUTES DLLEXPORT :: GetMudWeightOut
	!DEC$ ATTRIBUTES ALIAS: 'GetMudWeightOut' :: GetMudWeightOut
		implicit none
		GetMudWeightOut = DataDisplayConsole%MudWeightOut
    end function
    
    logical function GetBuzzer1()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetBuzzer1
    !DEC$ ATTRIBUTES ALIAS: 'GetBuzzer1' :: GetBuzzer1
	    implicit none
	    GetBuzzer1 = DataDisplayConsole%Buzzer1
	    !GetBuzzer1 = .true.
    end function

    logical function GetBuzzer2()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetBuzzer2
    !DEC$ ATTRIBUTES ALIAS: 'GetBuzzer2' :: GetBuzzer2
	    implicit none
	    GetBuzzer2 = DataDisplayConsole%Buzzer2
	    !GetBuzzer2 = .true.
    end function

    logical function GetBuzzer3()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetBuzzer3
    !DEC$ ATTRIBUTES ALIAS: 'GetBuzzer3' :: GetBuzzer3
	    implicit none
	    GetBuzzer3 = DataDisplayConsole%Buzzer3
	    !GetBuzzer3 = .true.
    end function

    logical function GetBuzzer4()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetBuzzer4
    !DEC$ ATTRIBUTES ALIAS: 'GetBuzzer4' :: GetBuzzer4
	    implicit none
	    GetBuzzer4 = DataDisplayConsole%Buzzer4
	    !GetBuzzer4 = .true.
    end function
    
    
    
    
    
    
    
    
    
    
    !portable
    real(8) function GetPortWeightOnBit()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetPortWeightOnBit
    !DEC$ ATTRIBUTES ALIAS: 'GetPortWeightOnBit' :: GetPortWeightOnBit
	    implicit none
	    GetPortWeightOnBit = DataDisplayConsole%PortWeightOnBit
    end function

    real(8) function GetPortHookLoad()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetPortHookLoad
    !DEC$ ATTRIBUTES ALIAS: 'GetPortHookLoad' :: GetPortHookLoad
	    implicit none
	    GetPortHookLoad = DataDisplayConsole%PortHookLoad
    end function

    real(8) function GetPortCasingPressure()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetPortCasingPressure
    !DEC$ ATTRIBUTES ALIAS: 'GetPortCasingPressure' :: GetPortCasingPressure
	    implicit none
	    GetPortCasingPressure = DataDisplayConsole%PortCasingPressure
    end function

    real(8) function GetPortPumpPressure()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetPortPumpPressure
    !DEC$ ATTRIBUTES ALIAS: 'GetPortPumpPressure' :: GetPortPumpPressure
	    implicit none
	    GetPortPumpPressure = DataDisplayConsole%PortPumpPressure
    end function


end module CDataDisplayConsole