SimulationCore2/CSharp/OperationScenarios/UnitySignals/UnitySignalsVariables.f90

module UnitySignalVariables
    ! use CVoidEventHandlerCollection
    ! use CIntegerEventHandlerCollection

    enum, bind(c)
        enumerator SLIPS_NEUTRAL
        enumerator SLIPS_SET_BEGIN
        enumerator SLIPS_SET_END
        enumerator SLIPS_UNSET_BEGIN
        enumerator SLIPS_UNSET_END
    end enum

    type:: UnitySignalsType
        ! used only in set and get (unitysignals.f90)
        integer :: MudBucket = 0
        ! used only in set and get (unitysignals.f90) and indirectly in Evaluate...
        integer :: Elevator = 0
        ! used only in set and get (unitysignals.f90) and indirectly in Evaluate...
        integer :: FillupHead = 0
        integer :: Ibop = 0
        integer :: Kelly = 0
        integer :: MouseHole = 0
        integer :: OperationCondition = 0
        integer :: SafetyValve = 0
        integer :: operation = 0
        !previous value is 0 (neutral),set to set_end by mahmood
        integer :: Slips = SLIPS_SET_END 
        integer :: Slips_S = 0
        integer :: Swing = 0
        integer :: Swing_S = 0
        integer :: TdsBackupClamp = 0
        integer :: TdsSpine = 0
        integer :: TdsSwing = 0
        integer :: TdsTong = 0
        integer :: Tong = 0
        integer :: Tong_S = 0
        integer :: TdsConnectionModes = 0
        integer :: TdsElevatorModes = 0
    end type UnitySignalsType

    enum, bind(c)
        enumerator TONG_NEUTRAL
        enumerator TONG_BREAKOUT_BEGIN
        enumerator TONG_BREAKOUT_END
        enumerator TONG_MAKEUP_BEGIN
        enumerator TONG_MAKEUP_END
    end enum
    enum, bind(c)    
        enumerator TDS_SWING_NEUTRAL
        enumerator TDS_SWING_OFF_BEGIN
        enumerator TDS_SWING_OFF_END
        enumerator TDS_SWING_DRILL_BEGIN
        enumerator TDS_SWING_DRILL_END
        enumerator TDS_SWING_TILT_BEGIN
        enumerator TDS_SWING_TILT_END
    end enum
    enum, bind(c)    
        enumerator TDS_SPINE_NEUTRAL
        enumerator TDS_SPINE_CONNECT_BEGIN
        enumerator TDS_SPINE_CONNECT_END
        enumerator TDS_SPINE_DISCONNECT_BEGIN
        enumerator TDS_SPINE_DISCONNECT_END
    end enum
    enum, bind(c)    
        enumerator BACKUP_CLAMP_OFF_END
        enumerator BACKUP_CLAMP_OFF_BEGIN
        enumerator BACKUP_CLAMP_FW_BEGIN
        enumerator BACKUP_CLAMP_FW_END
    end enum
    enum, bind(c)    
        enumerator SWING_NEUTRAL
        enumerator SWING_MOUSE_HOLE_BEGIN
        enumerator SWING_MOUSE_HOLE_END
        enumerator SWING_RAT_HOLE_BEGIN
        enumerator SWING_RAT_HOLE_END
        enumerator SWING_WELL_BEGIN
        enumerator SWING_WELL_END
    end enum
    enum, bind(c)
        enumerator TDS_TONG_BREAKOUT_END
        enumerator TDS_TONG_BREAKOUT_BEGIN
        enumerator TDS_TONG_MAKEUP_BEGIN
        enumerator TDS_TONG_MAKEUP_END
    end enum
    enum, bind(c)    
        enumerator SAFETY_VALVE_NEUTRAL
        enumerator SAFETY_VALVE_REMOVE
        enumerator SAFETY_VALVE_INSTALL
    end enum
    enum, bind(c)
        enumerator OPERATION_DRILL
        enumerator OPERATION_TRIP
    end enum
    enum, bind(c)    
        enumerator MOUSE_HOLE_NEUTRAL
        enumerator MOUSE_HOLE_FILL
        enumerator MOUSE_HOLE_EMPTY
    end enum
    enum, bind(c)    
        enumerator KELLY_NEUTRAL
        enumerator KELLY_INSTALL
        enumerator KELLY_REMOVE
    end enum
    enum, bind(c)    
        !enumerator FILLUP_HEAD_NEUTRAL
        enumerator FILLUP_HEAD_REMOVE
        enumerator FILLUP_HEAD_INSTALL
    end enum
    enum, bind(c)    
        enumerator ELEVATOR_NEUTRAL
        enumerator ELEVATOR_LATCH_STRING_BEGIN
        enumerator ELEVATOR_LATCH_STRING_END
        
        enumerator ELEVATOR_UNLATCH_STRING_BEGIN
        enumerator ELEVATOR_UNLATCH_STRING_END
        
        enumerator ELEVATOR_LATCH_STAND_BEGIN
        enumerator ELEVATOR_LATCH_STAND_END
        
        enumerator ELEVATOR_UNLATCH_STAND_BEGIN
        enumerator ELEVATOR_UNLATCH_STAND_END
        
        enumerator ELEVATOR_LATCH_SINGLE_BEGIN
        enumerator ELEVATOR_LATCH_SINGLE_END
        
        enumerator ELEVATOR_UNLATCH_SINGLE_BEGIN
        enumerator ELEVATOR_UNLATCH_SINGLE_END
    end enum
    enum, bind(c)
        !enumerator MUD_BUCKET_NEUTRAL
        enumerator MUD_BUCKET_REMOVE
        enumerator MUD_BUCKET_INSTALL
    end enum
    enum, bind(c)
        !enumerator IBOP_NEUTRAL
        enumerator IBOP_REMOVE
        enumerator IBOP_INSTALL
    end enum
    enum, bind(c)
        enumerator TDS_CONNECTION_NOTHING
        enumerator TDS_CONNECTION_STRING
        enumerator TDS_CONNECTION_SPINE
    end enum
    enum, bind(c)
        enumerator TDS_ELEVATOR_CONNECTION_NOTHING
        enumerator TDS_ELEVATOR_CONNECTION_STRING
        enumerator TDS_ELEVATOR_CONNECTION_SINGLE
        enumerator TDS_ELEVATOR_CONNECTION_STAND
        enumerator TDS_ELEVATOR_LATCH_STRING
        enumerator TDS_ELEVATOR_LATCH_SINGLE
        enumerator TDS_ELEVATOR_LATCH_STAND
    end enum

    contains
    
end module UnitySignalVariables