Simulation Core
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。
 
 
 
 
 
 

146 行
4.5 KiB

  1. module UnitySignalVariables
  2. ! use CVoidEventHandlerCollection
  3. ! use CIntegerEventHandlerCollection
  4. type:: UnitySignalsType
  5. integer :: MudBucket = 0
  6. integer :: Elevator = 0
  7. integer :: FillupHead = 0
  8. integer :: Ibop = 0
  9. integer :: Kelly = 0
  10. integer :: MouseHole = 0
  11. integer :: OperationCondition = 0
  12. integer :: SafetyValve = 0
  13. integer :: operation = 0
  14. integer :: Slips = 0
  15. integer :: Slips_S = 0
  16. integer :: Swing = 0
  17. integer :: Swing_S = 0
  18. integer :: TdsBackupClamp = 0
  19. integer :: TdsSpine = 0
  20. integer :: TdsSwing = 0
  21. integer :: TdsTong = 0
  22. integer :: Tong = 0
  23. integer :: Tong_S = 0
  24. integer :: TdsConnectionModes = 0
  25. integer :: TdsElevatorModes = 0
  26. end type UnitySignalsType
  27. enum, bind(c)
  28. enumerator TONG_NEUTRAL
  29. enumerator TONG_BREAKOUT_BEGIN
  30. enumerator TONG_BREAKOUT_END
  31. enumerator TONG_MAKEUP_BEGIN
  32. enumerator TONG_MAKEUP_END
  33. end enum
  34. enum, bind(c)
  35. enumerator TDS_SWING_NEUTRAL
  36. enumerator TDS_SWING_OFF_BEGIN
  37. enumerator TDS_SWING_OFF_END
  38. enumerator TDS_SWING_DRILL_BEGIN
  39. enumerator TDS_SWING_DRILL_END
  40. enumerator TDS_SWING_TILT_BEGIN
  41. enumerator TDS_SWING_TILT_END
  42. end enum
  43. enum, bind(c)
  44. enumerator TDS_SPINE_NEUTRAL
  45. enumerator TDS_SPINE_CONNECT_BEGIN
  46. enumerator TDS_SPINE_CONNECT_END
  47. enumerator TDS_SPINE_DISCONNECT_BEGIN
  48. enumerator TDS_SPINE_DISCONNECT_END
  49. end enum
  50. enum, bind(c)
  51. enumerator BACKUP_CLAMP_OFF_END
  52. enumerator BACKUP_CLAMP_OFF_BEGIN
  53. enumerator BACKUP_CLAMP_FW_BEGIN
  54. enumerator BACKUP_CLAMP_FW_END
  55. end enum
  56. enum, bind(c)
  57. enumerator SWING_NEUTRAL
  58. enumerator SWING_MOUSE_HOLE_BEGIN
  59. enumerator SWING_MOUSE_HOLE_END
  60. enumerator SWING_RAT_HOLE_BEGIN
  61. enumerator SWING_RAT_HOLE_END
  62. enumerator SWING_WELL_BEGIN
  63. enumerator SWING_WELL_END
  64. end enum
  65. enum, bind(c)
  66. enumerator TDS_TONG_BREAKOUT_END
  67. enumerator TDS_TONG_BREAKOUT_BEGIN
  68. enumerator TDS_TONG_MAKEUP_BEGIN
  69. enumerator TDS_TONG_MAKEUP_END
  70. end enum
  71. enum, bind(c)
  72. enumerator SAFETY_VALVE_NEUTRAL
  73. enumerator SAFETY_VALVE_REMOVE
  74. enumerator SAFETY_VALVE_INSTALL
  75. end enum
  76. enum, bind(c)
  77. enumerator OPERATION_DRILL
  78. enumerator OPERATION_TRIP
  79. end enum
  80. enum, bind(c)
  81. enumerator SLIPS_NEUTRAL
  82. enumerator SLIPS_SET_BEGIN
  83. enumerator SLIPS_SET_END
  84. enumerator SLIPS_UNSET_BEGIN
  85. enumerator SLIPS_UNSET_END
  86. enumerator MOUSE_HOLE_NEUTRAL
  87. enumerator MOUSE_HOLE_FILL
  88. enumerator MOUSE_HOLE_EMPTY
  89. enumerator KELLY_NEUTRAL
  90. enumerator KELLY_INSTALL
  91. enumerator KELLY_REMOVE
  92. !enumerator FILLUP_HEAD_NEUTRAL
  93. enumerator FILLUP_HEAD_REMOVE
  94. enumerator FILLUP_HEAD_INSTALL
  95. enumerator ELEVATOR_NEUTRAL
  96. enumerator ELEVATOR_LATCH_STRING_BEGIN
  97. enumerator ELEVATOR_LATCH_STRING_END
  98. enumerator ELEVATOR_UNLATCH_STRING_BEGIN
  99. enumerator ELEVATOR_UNLATCH_STRING_END
  100. enumerator ELEVATOR_LATCH_STAND_BEGIN
  101. enumerator ELEVATOR_LATCH_STAND_END
  102. enumerator ELEVATOR_UNLATCH_STAND_BEGIN
  103. enumerator ELEVATOR_UNLATCH_STAND_END
  104. enumerator ELEVATOR_LATCH_SINGLE_BEGIN
  105. enumerator ELEVATOR_LATCH_SINGLE_END
  106. enumerator ELEVATOR_UNLATCH_SINGLE_BEGIN
  107. enumerator ELEVATOR_UNLATCH_SINGLE_END
  108. !enumerator MUD_BUCKET_NEUTRAL
  109. enumerator MUD_BUCKET_REMOVE
  110. enumerator MUD_BUCKET_INSTALL
  111. !enumerator IBOP_NEUTRAL
  112. enumerator IBOP_REMOVE
  113. enumerator IBOP_INSTALL
  114. enumerator TDS_CONNECTION_NOTHING
  115. enumerator TDS_CONNECTION_STRING
  116. enumerator TDS_CONNECTION_SPINE
  117. enumerator TDS_ELEVATOR_CONNECTION_NOTHING
  118. enumerator TDS_ELEVATOR_CONNECTION_STRING
  119. enumerator TDS_ELEVATOR_CONNECTION_SINGLE
  120. enumerator TDS_ELEVATOR_CONNECTION_STAND
  121. enumerator TDS_ELEVATOR_LATCH_STRING
  122. enumerator TDS_ELEVATOR_LATCH_SINGLE
  123. enumerator TDS_ELEVATOR_LATCH_STAND
  124. end enum
  125. contains
  126. end module UnitySignalVariables