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