SimulationCore2/CSharp/Problems/CChokeProblemsVariables.f90

module CChokeProblemsVariables
    use CProblemDifinition
    
	implicit none    
	public 
    
    ! Input vars
    type:: ChokeProblemsType
        type(CProblem) :: HydraulicChoke1Plugged
        type(CProblem) :: HydraulicChoke1Fail
        type(CProblem) :: HydraulicChoke1Washout
        integer :: HydraulicChoke1PluggedPercent
        type(CProblem) :: HydraulicChoke2Plugged
        type(CProblem) :: HydraulicChoke2Fail
        type(CProblem) :: HydraulicChoke2Washout
        integer :: HydraulicChoke2PluggedPercent
        type(CProblem) :: ManualChoke1Plugged
        type(CProblem) :: ManualChoke1Fail
        type(CProblem) :: ManualChoke1Washout
        integer :: ManualChoke1PluggedPercent
        type(CProblem) :: ManualChoke2Plugged
        type(CProblem) :: ManualChoke2Fail
        type(CProblem) :: ManualChoke2Washout
        integer :: ManualChoke2PluggedPercent
        type(CProblem) :: ChokePanelAirFail
    end type ChokeProblemsType
    type(ChokeProblemsType)::ChokeProblems
    ! procedure (ActionInteger), pointer :: HydraulicChoke1PluggedPtr
    ! procedure (ActionInteger), pointer :: HydraulicChoke1FailPtr
    ! procedure (ActionInteger), pointer :: HydraulicChoke1WashoutPtr
    ! procedure (ActionInteger), pointer :: HydraulicChoke2PluggedPtr
    ! procedure (ActionInteger), pointer :: HydraulicChoke2FailPtr
    ! procedure (ActionInteger), pointer :: HydraulicChoke2WashoutPtr
    ! procedure (ActionInteger), pointer :: ManualChoke1PluggedPtr
    ! procedure (ActionInteger), pointer :: ManualChoke1FailPtr
    ! procedure (ActionInteger), pointer :: ManualChoke1WashoutPtr
    ! procedure (ActionInteger), pointer :: ManualChoke2PluggedPtr
    ! procedure (ActionInteger), pointer :: ManualChoke2FailPtr
    ! procedure (ActionInteger), pointer :: ManualChoke2WashoutPtr
    ! procedure (ActionInteger), pointer :: ChokePanelAirFailPtr
    
    contains   
    
    subroutine ProcessChokeProblemsDueTime(time)
        implicit none
        integer :: time
        if(ChokeProblems%HydraulicChoke1Plugged%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%HydraulicChoke1Plugged, ChangeHydraulicChoke1Plugged, time)
        if(ChokeProblems%HydraulicChoke1Fail%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%HydraulicChoke1Fail, ChangeHydraulicChoke1Fail, time)
        if(ChokeProblems%HydraulicChoke1Washout%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%HydraulicChoke1Washout, ChangeHydraulicChoke1Washout, time)
        if(ChokeProblems%HydraulicChoke2Plugged%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%HydraulicChoke2Plugged, ChangeHydraulicChoke2Plugged, time)
        if(ChokeProblems%HydraulicChoke2Fail%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%HydraulicChoke2Fail, ChangeHydraulicChoke2Fail, time)
        if(ChokeProblems%HydraulicChoke2Washout%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%HydraulicChoke2Washout, ChangeHydraulicChoke2Washout, time)
        if(ChokeProblems%ManualChoke1Plugged%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%ManualChoke1Plugged, ChangeManualChoke1Plugged, time)
        if(ChokeProblems%ManualChoke1Fail%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%ManualChoke1Fail, ChangeManualChoke1Fail, time)
        if(ChokeProblems%ManualChoke1Washout%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%ManualChoke1Washout, ChangeManualChoke1Washout, time)
        if(ChokeProblems%ManualChoke2Plugged%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%ManualChoke2Plugged, ChangeManualChoke2Plugged, time)
        if(ChokeProblems%ManualChoke2Fail%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%ManualChoke2Fail, ChangeManualChoke2Fail, time)
        if(ChokeProblems%ManualChoke2Washout%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%ManualChoke2Washout, ChangeManualChoke2Washout, time)
        if(ChokeProblems%ChokePanelAirFail%ProblemType == Time_ProblemType) call ProcessDueTime(ChokeProblems%ChokePanelAirFail, ChangeChokePanelAirFail, time)
    end subroutine
	
	subroutine ProcessChokeProblemsDuePumpStrokes(strokes)
        implicit none
        integer :: strokes
        if(ChokeProblems%HydraulicChoke1Plugged%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%HydraulicChoke1Plugged, ChangeHydraulicChoke1Plugged, strokes)
        if(ChokeProblems%HydraulicChoke1Fail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%HydraulicChoke1Fail, ChangeHydraulicChoke1Fail, strokes)
        if(ChokeProblems%HydraulicChoke1Washout%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%HydraulicChoke1Washout, ChangeHydraulicChoke1Washout, strokes)
        if(ChokeProblems%HydraulicChoke2Plugged%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%HydraulicChoke2Plugged, ChangeHydraulicChoke2Plugged, strokes)
        if(ChokeProblems%HydraulicChoke2Fail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%HydraulicChoke2Fail, ChangeHydraulicChoke2Fail, strokes)
        if(ChokeProblems%HydraulicChoke2Washout%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%HydraulicChoke2Washout, ChangeHydraulicChoke2Washout, strokes)
        if(ChokeProblems%ManualChoke1Plugged%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%ManualChoke1Plugged, ChangeManualChoke1Plugged, strokes)
        if(ChokeProblems%ManualChoke1Fail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%ManualChoke1Fail, ChangeManualChoke1Fail, strokes)
        if(ChokeProblems%ManualChoke1Washout%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%ManualChoke1Washout, ChangeManualChoke1Washout, strokes)
        if(ChokeProblems%ManualChoke2Plugged%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%ManualChoke2Plugged, ChangeManualChoke2Plugged, strokes)
        if(ChokeProblems%ManualChoke2Fail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%ManualChoke2Fail, ChangeManualChoke2Fail, strokes)
        if(ChokeProblems%ManualChoke2Washout%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%ManualChoke2Washout, ChangeManualChoke2Washout, strokes)
        if(ChokeProblems%ChokePanelAirFail%ProblemType == PumpStrokes_ProblemType) call ProcessDuePumpStrokes(ChokeProblems%ChokePanelAirFail, ChangeChokePanelAirFail, strokes)
    end subroutine
	
	subroutine ProcessChokeProblemsDueVolumePumped(volume)
        implicit none
        real(8) :: volume
        if(ChokeProblems%HydraulicChoke1Plugged%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%HydraulicChoke1Plugged, ChangeHydraulicChoke1Plugged, volume)
        if(ChokeProblems%HydraulicChoke1Fail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%HydraulicChoke1Fail, ChangeHydraulicChoke1Fail, volume)
        if(ChokeProblems%HydraulicChoke1Washout%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%HydraulicChoke1Washout, ChangeHydraulicChoke1Washout, volume)
        if(ChokeProblems%HydraulicChoke2Plugged%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%HydraulicChoke2Plugged, ChangeHydraulicChoke2Plugged, volume)
        if(ChokeProblems%HydraulicChoke2Fail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%HydraulicChoke2Fail, ChangeHydraulicChoke2Fail, volume)
        if(ChokeProblems%HydraulicChoke2Washout%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%HydraulicChoke2Washout, ChangeHydraulicChoke2Washout, volume)
        if(ChokeProblems%ManualChoke1Plugged%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%ManualChoke1Plugged, ChangeManualChoke1Plugged, volume)
        if(ChokeProblems%ManualChoke1Fail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%ManualChoke1Fail, ChangeManualChoke1Fail, volume)
        if(ChokeProblems%ManualChoke1Washout%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%ManualChoke1Washout, ChangeManualChoke1Washout, volume)
        if(ChokeProblems%ManualChoke2Plugged%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%ManualChoke2Plugged, ChangeManualChoke2Plugged, volume)
        if(ChokeProblems%ManualChoke2Fail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%ManualChoke2Fail, ChangeManualChoke2Fail, volume)
        if(ChokeProblems%ManualChoke2Washout%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%ManualChoke2Washout, ChangeManualChoke2Washout, volume)
        if(ChokeProblems%ChokePanelAirFail%ProblemType == VolumePumped_ProblemType) call ProcessDueVolumePumped(ChokeProblems%ChokePanelAirFail, ChangeChokePanelAirFail, volume)
    end subroutine
	
	subroutine ProcessChokeProblemsDueDistanceDrilled(distance)
        implicit none
        real(8) :: distance
        if(ChokeProblems%HydraulicChoke1Plugged%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%HydraulicChoke1Plugged, ChangeHydraulicChoke1Plugged, distance)
        if(ChokeProblems%HydraulicChoke1Fail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%HydraulicChoke1Fail, ChangeHydraulicChoke1Fail, distance)
        if(ChokeProblems%HydraulicChoke1Washout%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%HydraulicChoke1Washout, ChangeHydraulicChoke1Washout, distance)
        if(ChokeProblems%HydraulicChoke2Plugged%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%HydraulicChoke2Plugged, ChangeHydraulicChoke2Plugged, distance)
        if(ChokeProblems%HydraulicChoke2Fail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%HydraulicChoke2Fail, ChangeHydraulicChoke2Fail, distance)
        if(ChokeProblems%HydraulicChoke2Washout%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%HydraulicChoke2Washout, ChangeHydraulicChoke2Washout, distance)
        if(ChokeProblems%ManualChoke1Plugged%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%ManualChoke1Plugged, ChangeManualChoke1Plugged, distance)
        if(ChokeProblems%ManualChoke1Fail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%ManualChoke1Fail, ChangeManualChoke1Fail, distance)
        if(ChokeProblems%ManualChoke1Washout%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%ManualChoke1Washout, ChangeManualChoke1Washout, distance)
        if(ChokeProblems%ManualChoke2Plugged%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%ManualChoke2Plugged, ChangeManualChoke2Plugged, distance)
        if(ChokeProblems%ManualChoke2Fail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%ManualChoke2Fail, ChangeManualChoke2Fail, distance)
        if(ChokeProblems%ManualChoke2Washout%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%ManualChoke2Washout, ChangeManualChoke2Washout, distance)
        if(ChokeProblems%ChokePanelAirFail%ProblemType == DistanceDrilled_ProblemType) call ProcessDueDistanceDrilled(ChokeProblems%ChokePanelAirFail, ChangeChokePanelAirFail, distance)
    end subroutine
	
    
    
    
    subroutine ChangeHydraulicChoke1Plugged(status)
        USE CHOKEVARIABLES
        implicit none
        integer, intent (in) :: status
        ! if(associated(HydraulicChoke1PluggedPtr)) call HydraulicChoke1PluggedPtr(status)
        if(status == Clear_StatusType) CHOOKE(1)%PlugMalf = 0
        if(status == Executed_StatusType) CHOOKE(1)%PlugMalf = 1
    endsubroutine
    
    subroutine ChangeHydraulicChoke1Fail(status)
        USE CHOKEVARIABLES
        implicit none
        integer, intent (in) :: status
        ! if(associated(HydraulicChoke1FailPtr)) call HydraulicChoke1FailPtr(status)
        if(status == Clear_StatusType) CHOOKE(1)%FailMalf = 0
        if(status == Executed_StatusType) CHOOKE(1)%FailMalf = 1
    endsubroutine
    
    subroutine ChangeHydraulicChoke1Washout(status)
        USE CHOKEVARIABLES
        use CChokeManifoldVariables
        implicit none
        integer, intent (in) :: status
        ! if(associated(HydraulicChoke1WashoutPtr)) call HydraulicChoke1WashoutPtr(status)
        if(status == Clear_StatusType) CHOOKE(1)%WashoutMalf = 0
        if(status == Executed_StatusType) CHOOKE(1)%WashoutMalf = 1
        
        if(status == Clear_StatusType) ChokeManifold%HyChock1OnProblem = .false.
        if(status == Executed_StatusType) ChokeManifold%HyChock1OnProblem = .true.
    endsubroutine
    
    subroutine ChangeHydraulicChoke2Plugged(status)
        USE CHOKEVARIABLES
        implicit none
        integer, intent (in) :: status
        ! if(associated(HydraulicChoke2PluggedPtr)) call HydraulicChoke2PluggedPtr(status)
        if(status == Clear_StatusType) CHOOKE(2)%PlugMalf = 0
        if(status == Executed_StatusType) CHOOKE(2)%PlugMalf = 1
    endsubroutine
    
    subroutine ChangeHydraulicChoke2Fail(status)
        USE CHOKEVARIABLES
        implicit none
        integer, intent (in) :: status
        ! if(associated(HydraulicChoke2FailPtr)) call HydraulicChoke2FailPtr(status)
        if(status == Clear_StatusType) CHOOKE(2)%FailMalf = 0
        if(status == Executed_StatusType) CHOOKE(2)%FailMalf = 1
    endsubroutine
    
    subroutine ChangeHydraulicChoke2Washout(status)
        USE CHOKEVARIABLES
        use CChokeManifoldVariables
        implicit none
        integer, intent (in) :: status
        ! if(associated(HydraulicChoke2WashoutPtr)) call HydraulicChoke2WashoutPtr(status)
        if(status == Clear_StatusType) CHOOKE(2)%WashoutMalf = 0
        if(status == Executed_StatusType) CHOOKE(2)%WashoutMalf = 1
        
        if(status == Clear_StatusType) ChokeManifold%HyChock2OnProblem = .false.
        if(status == Executed_StatusType) ChokeManifold%HyChock2OnProblem = .true.
    endsubroutine
    
    subroutine ChangeManualChoke1Plugged(status)
        USE FricPressDropVarsModule
        implicit none
        integer, intent (in) :: status
        ! if(associated(ManualChoke1PluggedPtr)) call ManualChoke1PluggedPtr(status)
        if(status == Clear_StatusType)          FricPressDropVars%ManChoke1Plug = 0
        if(status == Executed_StatusType)       FricPressDropVars%ManChoke1Plug = 1
    endsubroutine
    
    subroutine ChangeManualChoke1Fail(status)
        implicit none
        integer, intent (in) :: status
        ! if(associated(ManualChoke1FailPtr)) call ManualChoke1FailPtr(status)
        !if(status == Clear_StatusType) print*,'On_ManualChoke1Fail_Clear'
        !if(status == Executed_StatusType) print*,'On_ManualChoke1Fail_Execute'
    endsubroutine
    
    subroutine ChangeManualChoke1Washout(status)
        USE FricPressDropVarsModule
        use CChokeManifoldVariables
        implicit none
        integer, intent (in) :: status
        ! if(associated(ManualChoke1WashoutPtr)) call ManualChoke1WashoutPtr(status)
        if(status == Clear_StatusType)          FricPressDropVars%ManChoke1Washout = 0
        if(status == Executed_StatusType)       FricPressDropVars%ManChoke1Washout = 1
        
        if(status == Clear_StatusType) ChokeManifold%LeftManChokeOnProblem = .false.
        if(status == Executed_StatusType) ChokeManifold%LeftManChokeOnProblem = .true.
    endsubroutine
    
    subroutine ChangeManualChoke2Plugged(status)
        USE FricPressDropVarsModule
        implicit none
        integer, intent (in) :: status
        ! if(associated(ManualChoke2PluggedPtr)) call ManualChoke2PluggedPtr(status)
        if(status == Clear_StatusType)          FricPressDropVars%ManChoke2Plug = 0
        if(status == Executed_StatusType)       FricPressDropVars%ManChoke2Plug = 1
    endsubroutine
    
    subroutine ChangeManualChoke2Fail(status)
        implicit none
        integer, intent (in) :: status
        ! if(associated(ManualChoke2FailPtr)) call ManualChoke2FailPtr(status)
        !if(status == Clear_StatusType) print*,'On_ManualChoke2Fail_Clear'
        !if(status == Executed_StatusType) print*,'On_ManualChoke2Fail_Execute'
    endsubroutine
    
    subroutine ChangeManualChoke2Washout(status)
        USE FricPressDropVarsModule
        use CChokeManifoldVariables
        implicit none
        integer, intent (in) :: status
        ! if(associated(ManualChoke2WashoutPtr)) call ManualChoke2WashoutPtr(status)
        if(status == Clear_StatusType)          FricPressDropVars%ManChoke2Washout = 0
        if(status == Executed_StatusType)       FricPressDropVars%ManChoke2Washout = 1
        
        if(status == Clear_StatusType) ChokeManifold%RightManChokeOnProblem = .false.
        if(status == Executed_StatusType) ChokeManifold%RightManChokeOnProblem = .true.
    endsubroutine
    
    subroutine ChangeChokePanelAirFail(status)
        USE CHOKEVARIABLES
        implicit none
        integer, intent (in) :: status
        ! if(associated(ChokePanelAirFailPtr)) call ChokePanelAirFailPtr(status)
        if(status == Clear_StatusType) AirDrivenPump%ChokeAirFail = 0
        if(status == Executed_StatusType) AirDrivenPump%ChokeAirFail = 1
    endsubroutine
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ! subroutine SubscribeHydraulicChoke1Plugged(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeHydraulicChoke1Plugged
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeHydraulicChoke1Plugged' :: SubscribeHydraulicChoke1Plugged
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     HydraulicChoke1PluggedPtr => v
    ! end subroutine

    ! subroutine SubscribeHydraulicChoke1Fail(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeHydraulicChoke1Fail
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeHydraulicChoke1Fail' :: SubscribeHydraulicChoke1Fail
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     HydraulicChoke1FailPtr => v
    ! end subroutine

    ! subroutine SubscribeHydraulicChoke1Washout(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeHydraulicChoke1Washout
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeHydraulicChoke1Washout' :: SubscribeHydraulicChoke1Washout
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     HydraulicChoke1WashoutPtr => v
    ! end subroutine

    ! subroutine SubscribeHydraulicChoke2Plugged(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeHydraulicChoke2Plugged
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeHydraulicChoke2Plugged' :: SubscribeHydraulicChoke2Plugged
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     HydraulicChoke2PluggedPtr => v
    ! end subroutine

    ! subroutine SubscribeHydraulicChoke2Fail(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeHydraulicChoke2Fail
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeHydraulicChoke2Fail' :: SubscribeHydraulicChoke2Fail
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     HydraulicChoke2FailPtr => v
    ! end subroutine

    ! subroutine SubscribeHydraulicChoke2Washout(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeHydraulicChoke2Washout
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeHydraulicChoke2Washout' :: SubscribeHydraulicChoke2Washout
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     HydraulicChoke2WashoutPtr => v
    ! end subroutine

    ! subroutine SubscribeManualChoke1Plugged(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeManualChoke1Plugged
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeManualChoke1Plugged' :: SubscribeManualChoke1Plugged
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     ManualChoke1PluggedPtr => v
    ! end subroutine

    ! subroutine SubscribeManualChoke1Fail(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeManualChoke1Fail
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeManualChoke1Fail' :: SubscribeManualChoke1Fail
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     ManualChoke1FailPtr => v
    ! end subroutine

    ! subroutine SubscribeManualChoke1Washout(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeManualChoke1Washout
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeManualChoke1Washout' :: SubscribeManualChoke1Washout
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     ManualChoke1WashoutPtr => v
    ! end subroutine

    ! subroutine SubscribeManualChoke2Plugged(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeManualChoke2Plugged
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeManualChoke2Plugged' :: SubscribeManualChoke2Plugged
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     ManualChoke2PluggedPtr => v
    ! end subroutine

    ! subroutine SubscribeManualChoke2Fail(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeManualChoke2Fail
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeManualChoke2Fail' :: SubscribeManualChoke2Fail
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     ManualChoke2FailPtr => v
    ! end subroutine

    ! subroutine SubscribeManualChoke2Washout(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeManualChoke2Washout
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeManualChoke2Washout' :: SubscribeManualChoke2Washout
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     ManualChoke2WashoutPtr => v
    ! end subroutine

    ! subroutine SubscribeChokePanelAirFail(v)
    ! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeChokePanelAirFail
    ! !DEC$ ATTRIBUTES ALIAS: 'SubscribeChokePanelAirFail' :: SubscribeChokePanelAirFail
	!     implicit none
	!     procedure (ActionInteger) :: v
	!     ChokePanelAirFailPtr => v
    ! end subroutine

end module CChokeProblemsVariables