SimulationCore2/CSharp/OperationScenarios/Unity/CUnityOutputs.f90

module CUnityOutputs
    implicit none    
    
    real(8) :: KellyHoseVibrationRate
    real(8) :: BlowoutFromStringPercent
    real(8) :: Pedal
    real(8) :: FlowRate
    real(8) :: RotaryRpm
    !logical :: Signal1
    !logical :: Signal2
    !logical :: Signal3
    !logical :: Signal4
    !logical :: Signal5
    !logical :: Signal6
    !logical :: Signal7
    !logical :: Signal8
    !logical :: Signal9
    !logical :: Signal10  
    logical :: BlowoutFromString    
    logical :: BlowoutFromAnnular    
    logical :: FlowFromReturnLine    
    real :: FlowFromKelly
    real :: FlowFromFillupHead
    logical :: FlowKellyDisconnect   
    logical :: FlowPipeDisconnect    
    
    
    private :: KellyHoseVibrationRate
    private :: BlowoutFromStringPercent
    private :: Pedal
    private :: FlowRate
    private :: RotaryRpm
    !private :: Signal1
    !private :: Signal2
    !private :: Signal3
    !private :: Signal4
    !private :: Signal5
    !private :: Signal6
    !private :: Signal7
    !private :: Signal8
    !private :: Signal9
    !private :: Signal10
    private :: BlowoutFromString
    private :: BlowoutFromAnnular
    private :: FlowFromReturnLine
    private :: FlowFromKelly
    private :: FlowFromFillupHead
    private :: FlowKellyDisconnect
    private :: FlowPipeDisconnect
        
    public
    
    contains

    subroutine Setup()
        use CDataDisplayConsoleVariables
        implicit none
        PumpsSpmChanges => Calc_KellyHoseVibrationRate
        call DataDisplayConsole%OnRotaryRpmChange%Add(Set_RotaryRpm)
    end subroutine
    
    
    
    
    
    
    
    
    
    
    subroutine Set_BlowoutFromString(v)
        implicit none
        logical, intent (in) :: v
        BlowoutFromString = v
#ifdef deb
        print*, 'BlowoutFromString=', v
#endif
    end subroutine
    
    logical function Get_BlowoutFromString()
        implicit none
        Get_BlowoutFromString = BlowoutFromString
    end function
    
    subroutine Set_BlowoutFromString_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_BlowoutFromString_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_BlowoutFromString_WN' :: Set_BlowoutFromString_WN
        implicit none
        logical, intent (in) :: v
        call Set_BlowoutFromString(v)
    end subroutine
    
    logical function Get_BlowoutFromString_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: Get_BlowoutFromString_WN
    !DEC$ ATTRIBUTES ALIAS: 'Get_BlowoutFromString_WN' :: Get_BlowoutFromString_WN
        implicit none
        Get_BlowoutFromString_WN = BlowoutFromString
        !Get_BlowoutFromString = .TRUE.
    end function
    
    
    
    subroutine Set_BlowoutFromAnnular(v)
        implicit none
        logical, intent (in) :: v
        BlowoutFromAnnular = v
#ifdef deb
        print*, 'BlowoutFromAnnular=', v
#endif
    end subroutine
    
    logical function Get_BlowoutFromAnnular()
        implicit none
        Get_BlowoutFromAnnular = BlowoutFromAnnular
    end function
    
    subroutine Set_BlowoutFromAnnular_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_BlowoutFromAnnular_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_BlowoutFromAnnular_WN' :: Set_BlowoutFromAnnular_WN
        implicit none
        logical, intent (in) :: v
        call Set_BlowoutFromAnnular(v)
    end subroutine
    
    logical function Get_BlowoutFromAnnular_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: Get_BlowoutFromAnnular_WN
    !DEC$ ATTRIBUTES ALIAS: 'Get_BlowoutFromAnnular_WN' :: Get_BlowoutFromAnnular_WN
        implicit none
        Get_BlowoutFromAnnular_WN = BlowoutFromAnnular
    end function
    
    
    
    
    
    subroutine Set_FlowFromReturnLine(v)
        implicit none
        logical, intent (in) :: v
        FlowFromReturnLine = v
#ifdef deb
        print*, 'FlowFromReturnLine=', v
#endif
    end subroutine
    
    logical function Get_FlowFromReturnLine()
        implicit none
        Get_FlowFromReturnLine = FlowFromReturnLine
    end function
    
    
    subroutine Set_FlowFromReturnLine_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_FlowFromReturnLine_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_FlowFromReturnLine_WN' :: Set_FlowFromReturnLine_WN
        implicit none
        logical, intent (in) :: v
        call Set_FlowFromReturnLine(v)
    end subroutine
    
    logical function Get_FlowFromReturnLine_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: Get_FlowFromReturnLine_WN
    !DEC$ ATTRIBUTES ALIAS: 'Get_FlowFromReturnLine_WN' :: Get_FlowFromReturnLine_WN
        implicit none
        Get_FlowFromReturnLine_WN = FlowFromReturnLine
        !Get_FlowFromReturnLine_WN = .FALSE.
    end function
    
    
    
    subroutine Set_FlowFromKelly(v)
        implicit none
        real, intent (in) :: v
        FlowFromKelly = v
#ifdef deb
        print*, 'FlowFromKelly=', v
#endif
    end subroutine
    
    real function Get_FlowFromKelly()
        implicit none
        Get_FlowFromKelly = FlowFromKelly
    end function
    
    
    subroutine Set_FlowFromKelly_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_FlowFromKelly_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_FlowFromKelly_WN' :: Set_FlowFromKelly_WN
        implicit none
        real, intent (in) :: v
        call Set_FlowFromKelly(v)
    end subroutine
    
    real function Get_FlowFromKelly_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: Get_FlowFromKelly_WN
    !DEC$ ATTRIBUTES ALIAS: 'Get_FlowFromKelly_WN' :: Get_FlowFromKelly_WN
        implicit none
#ifdef deb
        print*, 'FlowFromKellyR=', FlowFromKelly
#endif
        Get_FlowFromKelly_WN = FlowFromKelly
        !Get_FlowFromKelly = .FALSE.
    end function
    
    
    
    
    subroutine Set_FlowFromFillupHead(v)
        implicit none
        real, intent (in) :: v
        FlowFromFillupHead = v
#ifdef deb
        print*, 'FlowFromFillupHead=', v
#endif
    end subroutine
    
    real function Get_FlowFromFillupHead()
        implicit none
        Get_FlowFromFillupHead = FlowFromFillupHead
    end function
    
    
    subroutine Set_FlowFromFillupHead_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_FlowFromFillupHead_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_FlowFromFillupHead_WN' :: Set_FlowFromFillupHead_WN
        implicit none
        real, intent (in) :: v
        call Set_FlowFromFillupHead(v)
    end subroutine
    
    real function Get_FlowFromFillupHead_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: Get_FlowFromFillupHead_WN
    !DEC$ ATTRIBUTES ALIAS: 'Get_FlowFromFillupHead_WN' :: Get_FlowFromFillupHead_WN
        implicit none
#ifdef deb
        print*, 'FlowFromFillupHeadR=', FlowFromFillupHead
#endif
        Get_FlowFromFillupHead_WN = FlowFromFillupHead
        !Get_FlowFromFillupHead = .FALSE.
    end function
    
    
    
    
    
    subroutine Set_FlowKellyDisconnect(v)
        implicit none
        logical, intent (in) :: v
        FlowKellyDisconnect = v
#ifdef deb
        print*, 'FlowKellyDisconnect=', v
#endif
    end subroutine
    
    logical function Get_FlowKellyDisconnect()
        implicit none
        Get_FlowKellyDisconnect = FlowKellyDisconnect
    end function
    
    
    subroutine Set_FlowKellyDisconnect_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_FlowKellyDisconnect_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_FlowKellyDisconnect_WN' :: Set_FlowKellyDisconnect_WN
        implicit none
        logical, intent (in) :: v
        call Set_FlowKellyDisconnect(v)
    end subroutine
    
    logical function Get_FlowKellyDisconnect_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: Get_FlowKellyDisconnect_WN
    !DEC$ ATTRIBUTES ALIAS: 'Get_FlowKellyDisconnect_WN' :: Get_FlowKellyDisconnect_WN
        implicit none
        Get_FlowKellyDisconnect_WN = FlowKellyDisconnect
        !Get_FlowKellyDisconnect_WN = .false.
    end function
    
    
    
    
    subroutine Set_FlowPipeDisconnect(v)
        implicit none
        logical, intent (in) :: v
        FlowPipeDisconnect = v
#ifdef deb
        print*, 'FlowPipeDisconnect=', v
#endif
    end subroutine
    
    logical function Get_FlowPipeDisconnect()
        implicit none
        Get_FlowPipeDisconnect = FlowPipeDisconnect
    end function
    
    
    subroutine Set_FlowPipeDisconnect_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_FlowPipeDisconnect_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_FlowPipeDisconnect_WN' :: Set_FlowPipeDisconnect_WN
        implicit none
        logical, intent (in) :: v
        call Set_FlowPipeDisconnect(v)
    end subroutine
    
    logical function Get_FlowPipeDisconnect_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: Get_FlowPipeDisconnect_WN
    !DEC$ ATTRIBUTES ALIAS: 'Get_FlowPipeDisconnect_WN' :: Get_FlowPipeDisconnect_WN
        implicit none
        Get_FlowPipeDisconnect_WN = FlowPipeDisconnect
        !Get_FlowPipeDisconnect_WN = .false.
    end function
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    subroutine Set_BlowoutFromStringPercent(v)
        implicit none
        real(8), intent (in) :: v
        BlowoutFromStringPercent = v
#ifdef deb
        print*, 'BlowoutFromStringPercent=', v
#endif
    end subroutine
    
    real(8) function GetBlowoutFromStringPercent()
	    implicit none
	    GetBlowoutFromStringPercent = BlowoutFromStringPercent
    end function
    
    
    
    subroutine Set_BlowoutFromStringPercent_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_BlowoutFromStringPercent_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_BlowoutFromStringPercent_WN' :: Set_BlowoutFromStringPercent_WN
        implicit none
        real(8), intent (in) :: v
        call Set_BlowoutFromStringPercent(v)
    end subroutine
    
    real(8) function GetBlowoutFromStringPercent_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetBlowoutFromStringPercent_WN
    !DEC$ ATTRIBUTES ALIAS: 'GetBlowoutFromStringPercent_WN' :: GetBlowoutFromStringPercent_WN
	    implicit none
	    GetBlowoutFromStringPercent_WN = BlowoutFromStringPercent
	    !GetBlowoutFromStringPercent_WN = 0d0
    end function
    
    
    
    
    
    
    
    
    subroutine Calc_KellyHoseVibrationRate(spm1, spm2)
        use CScaleRange
        implicit none
        real(8), intent (in) :: spm1, spm2
        real :: total
        total = (spm1 + spm2)/2
        KellyHoseVibrationRate = ScaleRange(total, 0.0, 10.0, 0.0, 120.0)
#ifdef deb
        print*, 'KellyHoseVibrationRate=', KellyHoseVibrationRate
#endif
    end subroutine
    
    real(8) function GetKellyHoseVibrationRate()
	    implicit none
	    GetKellyHoseVibrationRate = KellyHoseVibrationRate
    end function
    
    real(8) function GetKellyHoseVibrationRate_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetKellyHoseVibrationRate_WN
    !DEC$ ATTRIBUTES ALIAS: 'GetKellyHoseVibrationRate_WN' :: GetKellyHoseVibrationRate_WN
	    implicit none
	    GetKellyHoseVibrationRate_WN = KellyHoseVibrationRate
    end function
    
    
    
    
    subroutine Set_Pedal(v)
        implicit none
        real(8), intent (in) :: v
        Pedal = v
#ifdef deb
        print*, 'Pedal=', v
#endif
    end subroutine
    
    real(8) function GetPedal()
	    implicit none
	    GetPedal = Pedal
    end function
    
    subroutine Set_Pedal_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_Pedal_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_Pedal_WN' :: Set_Pedal_WN
        implicit none
        real(8), intent (in) :: v
        call Set_Pedal(v)
    end subroutine
    
    real(8) function GetPedal_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetPedal_WN
    !DEC$ ATTRIBUTES ALIAS: 'GetPedal_WN' :: GetPedal_WN
	    implicit none
	    GetPedal_WN = Pedal
	    !GetPedal = 50d0
    end function
    
    
    
    
    
    subroutine Set_FlowRate(v)
        implicit none
        real(8), intent (in) :: v
        FlowRate = v
#ifdef deb
        print*, 'FlowRate=', v
#endif
    end subroutine
    
    
    real(8) function GetFlowRate()
	    implicit none
	    GetFlowRate = FlowRate
    end function
    
    
    subroutine Set_FlowRate_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_FlowRate_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_FlowRate_WN' :: Set_FlowRate_WN
        implicit none
        real(8), intent (in) :: v
        call Set_FlowRate(v)
    end subroutine
    
    real(8) function GetFlowRate_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetFlowRate_WN
    !DEC$ ATTRIBUTES ALIAS: 'GetFlowRate_WN' :: GetFlowRate_WN
	    implicit none
	    GetFlowRate_WN = FlowRate
	    !GetFlowRate_WN = 50d0
    end function
    
    
    
    
    subroutine Set_RotaryRpm(v)
        implicit none
        real(8), intent (in) :: v
        RotaryRpm = v
#ifdef deb
        print*, 'RotaryRpm=', v
#endif
    end subroutine
    
    real(8) function GetRotaryRpm()
	    implicit none
	    GetRotaryRpm = RotaryRpm
    end function

    
    subroutine Set_RotaryRpm_WN(v)
    !DEC$ ATTRIBUTES DLLEXPORT :: Set_RotaryRpm_WN
    !DEC$ ATTRIBUTES ALIAS: 'Set_RotaryRpm_WN' :: Set_RotaryRpm_WN
        implicit none
        real(8), intent (in) :: v
        call Set_RotaryRpm(v)
    end subroutine
    
    real(8) function GetRotaryRpm_WN()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetRotaryRpm_WN
    !DEC$ ATTRIBUTES ALIAS: 'GetRotaryRpm_WN' :: GetRotaryRpm_WN
	    implicit none
	    GetRotaryRpm_WN = RotaryRpm
    end function
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    logical function GetSignal1()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetSignal1
    !DEC$ ATTRIBUTES ALIAS: 'GetSignal1' :: GetSignal1
	    implicit none
	    !GetSignal1 = Signal1
	    GetSignal1 = .false.
    end function

    logical function GetSignal2()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetSignal2
    !DEC$ ATTRIBUTES ALIAS: 'GetSignal2' :: GetSignal2
	    implicit none
	    !GetSignal2 = Signal2
	    GetSignal2 = .false.
    end function

    logical function GetSignal3()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetSignal3
    !DEC$ ATTRIBUTES ALIAS: 'GetSignal3' :: GetSignal3
	    implicit none
	    !GetSignal3 = Signal3
	    GetSignal3 = .false.
    end function

    logical function GetSignal4()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetSignal4
    !DEC$ ATTRIBUTES ALIAS: 'GetSignal4' :: GetSignal4
	    implicit none
	    !GetSignal4 = Signal4
	    GetSignal4 = .false.
    end function

    logical function GetSignal5()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetSignal5
    !DEC$ ATTRIBUTES ALIAS: 'GetSignal5' :: GetSignal5
	    implicit none
	    !GetSignal5 = Signal5
	    GetSignal5 = .false.
    end function

    logical function GetSignal6()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetSignal6
    !DEC$ ATTRIBUTES ALIAS: 'GetSignal6' :: GetSignal6
	    implicit none
	    !GetSignal6 = Signal6
	    GetSignal6 = .false.
    end function

    logical function GetSignal7()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetSignal7
    !DEC$ ATTRIBUTES ALIAS: 'GetSignal7' :: GetSignal7
	    implicit none
	    !GetSignal7 = Signal7
	    GetSignal7 = .false.
    end function

    logical function GetSignal8()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetSignal8
    !DEC$ ATTRIBUTES ALIAS: 'GetSignal8' :: GetSignal8
	    implicit none
	    !GetSignal8 = Signal8
	    GetSignal8 = .false.
    end function

    logical function GetSignal9()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetSignal9
    !DEC$ ATTRIBUTES ALIAS: 'GetSignal9' :: GetSignal9
	    implicit none
	    !GetSignal9 = Signal9
	    GetSignal9 = .false.
    end function

    logical function GetSignal10()
    !DEC$ ATTRIBUTES DLLEXPORT :: GetSignal10
    !DEC$ ATTRIBUTES ALIAS: 'GetSignal10' :: GetSignal10
	    implicit none
	    !GetSignal10 = Signal10
	    GetSignal10 = .false.
    end function

    
    
end module CUnityOutputs