SimulationCore2/CSharp/OperationScenarios/Unity/CUnityOutputs.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/OperationScenarios/Unity/CUnityOutputs.f90"
module CUnityOutputs
    implicit none    
    type :: UnityOutputsType    
        real(8) :: KellyHoseVibrationRate
        real(8) :: BlowoutFromStringPercent
        real(8) :: Pedal
        real(8) :: FlowRate
        real(8) :: RotaryRpm
        logical :: BlowoutFromString    
        logical :: BlowoutFromAnnular
        logical :: FlowFromReturnLine
        real :: FlowFromKelly
        real :: FlowFromFillupHead
        logical :: FlowKellyDisconnect
        logical :: FlowPipeDisconnect
    end type UnityOutputsType
    type(UnityOutputsType):: UnityOutputs

    contains

! subroutine Setup()
!     use CDataDisplayConsole
! use ConfigurationVariables
!     implicit none
!     ! PumpsSpmChanges => Calc_KellyHoseVibrationRate
!     ! call data%Equipments%DataDisplayConsole%OnRotaryRpmChange%Add(Set_RotaryRpm)
! end subroutine
    
    
    
    
    
    
    
    
    
    
    subroutine Set_BlowoutFromString(v)
        implicit none
        logical, intent (in) :: v
        UnityOutputs%BlowoutFromString = v
# 44

    end subroutine
    
    logical function Get_BlowoutFromString()
        implicit none
        Get_BlowoutFromString = UnityOutputs%BlowoutFromString
    end function 
    
    subroutine Set_BlowoutFromAnnular(v)
        implicit none
        logical, intent (in) :: v
        UnityOutputs%BlowoutFromAnnular = v
# 58

    end subroutine
    
    logical function Get_BlowoutFromAnnular()
        implicit none
        Get_BlowoutFromAnnular = UnityOutputs%BlowoutFromAnnular
    end function
    
    
    
    
    
    subroutine Set_FlowFromReturnLine(v)
        implicit none
        logical, intent (in) :: v
        UnityOutputs%FlowFromReturnLine = v
# 76

    end subroutine
    
    logical function Get_FlowFromReturnLine()
        implicit none
        Get_FlowFromReturnLine = UnityOutputs%FlowFromReturnLine
    end function
    
    
    
    subroutine Set_FlowFromKelly(v)
        implicit none
        real, intent (in) :: v
        UnityOutputs%FlowFromKelly = v
# 92

    end subroutine
    
    real function Get_FlowFromKelly()
        implicit none
        Get_FlowFromKelly = UnityOutputs%FlowFromKelly
    end function
    
    
    
    
    
    subroutine Set_FlowFromFillupHead(v)
        implicit none
        real, intent (in) :: v
        UnityOutputs%FlowFromFillupHead = v
# 110

    end subroutine
    
    real function Get_FlowFromFillupHead()
        implicit none
        Get_FlowFromFillupHead = UnityOutputs%FlowFromFillupHead
    end function
    
    
    
    
    
    
    subroutine Set_FlowKellyDisconnect(v)
        implicit none
        logical, intent (in) :: v
        UnityOutputs%FlowKellyDisconnect = v
# 129

    end subroutine
    
    logical function Get_FlowKellyDisconnect()
        implicit none
        Get_FlowKellyDisconnect = UnityOutputs%FlowKellyDisconnect
    end function
    
    
    
    
    subroutine Set_FlowPipeDisconnect(v)
        implicit none
        logical, intent (in) :: v
        UnityOutputs%FlowPipeDisconnect = v
# 146

    end subroutine
    
    logical function Get_FlowPipeDisconnect()
        implicit none
        Get_FlowPipeDisconnect = UnityOutputs%FlowPipeDisconnect
    end function
    
    subroutine Set_BlowoutFromStringPercent(v)
        implicit none
        real(8), intent (in) :: v
        UnityOutputs%BlowoutFromStringPercent = v
# 160

    end subroutine
    
    real(8) function GetBlowoutFromStringPercent()
	    implicit none
	    GetBlowoutFromStringPercent = UnityOutputs%BlowoutFromStringPercent
    end function
    
    subroutine Calc_KellyHoseVibrationRate(spm1, spm2)
        use CScaleRange
        implicit none
        real(8), intent (in) :: spm1, spm2
        real :: total
        total = (spm1 + spm2)/2
        UnityOutputs%KellyHoseVibrationRate = ScaleRange(total, 0.0, 10.0, 0.0, 120.0)
# 177

    end subroutine
    
    real(8) function GetKellyHoseVibrationRate()
	    implicit none
	    GetKellyHoseVibrationRate = UnityOutputs%KellyHoseVibrationRate
    end function    
    
    subroutine Set_Pedal(v)
        implicit none
        real(8), intent (in) :: v
        UnityOutputs%Pedal = v
# 191

    end subroutine
    
    real(8) function GetPedal()
	    implicit none
	    GetPedal = UnityOutputs%Pedal
    end function
    
    subroutine Set_FlowRate(v)
        implicit none
        real(8), intent (in) :: v
        UnityOutputs%FlowRate = v
# 205

    end subroutine
    
    
    real(8) function GetFlowRate()
	    implicit none
	    GetFlowRate = UnityOutputs%FlowRate
    end function
    subroutine Set_RotaryRpm(v)
        implicit none
        real(8), intent (in) :: v
        UnityOutputs%RotaryRpm = v
# 219

    end subroutine
    
    real(8) function GetRotaryRpm()
	    implicit none
	    GetRotaryRpm = UnityOutputs%RotaryRpm
    end function
end module CUnityOutputs