SimulationCore2/CSharp/OperationScenarios/SoftwareInputs.i90

# 1 "/home/admin/SimulationCore2/CSharp/OperationScenarios/SoftwareInputs.f90"
module SoftwareInputsModule
    use SimulationVariables

    contains

    subroutine Set_ZeroStringSpeed(v)
        implicit none
        logical , intent(in) :: v
# 11

        data%State%softwareInputs%ZeroStringSpeed = v
# 15

! call data%State%softwareInputs%OnZeroStringSpeedChange%RunAll()
    end subroutine
    
    logical function Get_ZeroStringSpeed()
        implicit none
        if(abs(data%State%Drawworks%HookLinearVelocity_final)<0.2) then
            Get_ZeroStringSpeed = .TRUE.
        else
            Get_ZeroStringSpeed = .FALSE.
        endif
!data%State%softwareInputs%ZeroStringSpeed
!Get_ZeroStringSpeed = .true.
    end function
    
    subroutine Set_TdsStemJointHeight(v)
        implicit none
        real , intent(in) :: v
# 35

        data%State%softwareInputs%TdsStemJointHeight = v
# 39

! call data%State%softwareInputs%OnTdsStemJointHeightChange%RunAll()
    end subroutine
    
    real function Get_TdsStemJointHeight()
        implicit none
        Get_TdsStemJointHeight = data%State%softwareInputs%TdsStemJointHeight
    end function
    
    
    subroutine Set_StringPressure(v)
        implicit none
        real , intent(in) :: v
# 54

        data%State%softwareInputs%StringPressure = v
# 58

! call data%State%softwareInputs%OnStringPressureChange%RunAll()
    end subroutine
    
    real function Get_StringPressure()
        implicit none
        Get_StringPressure = data%State%softwareInputs%StringPressure
    end function

    subroutine Set_StandRack(v)
        implicit none
        integer , intent(in) :: v
# 72

        data%State%softwareInputs%StandRack = v
# 76

! call data%State%softwareInputs%OnStandRackChanged%RunAll()
    end subroutine
    
    integer function Get_StandRack()
        implicit none
        Get_StandRack = data%State%softwareInputs%StandRack
    end function
    
    subroutine Set_SlackOff(v)
        implicit none
        logical , intent(in) :: v
# 90

        data%State%softwareInputs%SlackOff = v
# 94

! call data%State%softwareInputs%OnSlackOffChange%RunAll()
    end subroutine
    
    logical function Get_SlackOff()
        implicit none
        Get_SlackOff = data%State%softwareInputs%SlackOff
    end function
    
    subroutine Set_SafetyValveHeight(v)
        implicit none
        real , intent(in) :: v
# 108

        data%State%softwareInputs%SafetyValveHeight = v
# 112

! call data%State%softwareInputs%OnSafetyValveHeightChange%RunAll()
    end subroutine
    
    real function Get_SafetyValveHeight()
        implicit none
        Get_SafetyValveHeight = data%State%softwareInputs%SafetyValveHeight
!Get_SafetyValveHeight = 23
    end function
    
    
    subroutine Set_NearFloorConnection(v)
        implicit none
        real , intent(in) :: v
# 128

        data%State%softwareInputs%NearFloorConnection = v
# 132

! call data%State%softwareInputs%OnNearFloorConnectionChange%RunAll()
    end subroutine
    
    real function Get_NearFloorConnection()
        implicit none
        Get_NearFloorConnection = data%State%softwareInputs%NearFloorConnection
!Get_NearFloorConnection = 4
    end function

    subroutine Set_IbopHeight(v)
        implicit none
        real , intent(in) :: v
# 147

        data%State%softwareInputs%IbopHeight = v
# 151

! call data%State%softwareInputs%OnIbopHeightChange%RunAll()
    end subroutine
    
    real function Get_IbopHeight()
        implicit none
        Get_IbopHeight = data%State%softwareInputs%IbopHeight
!Get_IbopHeight = 23.0
    end function
    
!//TODO: Investigate this hookheight! why two hook height?!
    subroutine Set_HookHeight(v)
        implicit none
        real , intent(in) :: v
# 167

            data%State%softwareInputs%HookHeight = v
# 171

! call data%State%softwareInputs%OnHookHeightChange%RunAll()
    end subroutine
    
    real function Get_HookHeight()
        implicit none
! Get_HookHeight = data%State%softwareInputs%HookHeight
        Get_HookHeight = data%State%Drawworks%Hook_Height_final
    end function    
end module SoftwareInputsModule