|
|
@@ -1,21 +1,394 @@ |
|
|
|
integer :: MudBucket = 0 |
|
|
|
integer :: Elevator = 0 |
|
|
|
integer :: FillupHead = 0 |
|
|
|
integer :: Ibop = 0 |
|
|
|
integer :: Kelly = 0 |
|
|
|
integer :: MouseHole = 0 |
|
|
|
integer :: OperationCondition = 0 |
|
|
|
integer :: SafetyValve = 0 |
|
|
|
integer :: operation = 0 |
|
|
|
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 |
|
|
|
! make adjustments |
|
|
|
call data%state%manifold%Valve(1)%AdjacentTo(91) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(2)%AdjacentTo(92) |
|
|
|
call data%state%manifold%Valve(2)%AdjacentTo(117) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(3)%AdjacentTo(93) |
|
|
|
call data%state%manifold%Valve(3)%AdjacentTo(118) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(4)%AdjacentTo(94) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(5)%AdjacentTo(95) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(6)%AdjacentTo(91) |
|
|
|
call data%state%manifold%Valve(6)%AdjacentTo(92) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(7)%AdjacentTo(92) |
|
|
|
call data%state%manifold%Valve(7)%AdjacentTo(93) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(8)%AdjacentTo(93) |
|
|
|
call data%state%manifold%Valve(8)%AdjacentTo(94) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(9)%AdjacentTo(91) |
|
|
|
call data%state%manifold%Valve(9)%AdjacentTo(96) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(10)%AdjacentTo(94) |
|
|
|
call data%state%manifold%Valve(10)%AdjacentTo(98) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(11)%AdjacentTo(96) |
|
|
|
call data%state%manifold%Valve(11)%AdjacentTo(97) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(12)%AdjacentTo(97) |
|
|
|
call data%state%manifold%Valve(12)%AdjacentTo(98) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(13)%AdjacentTo(96) |
|
|
|
call data%state%manifold%Valve(13)%AdjacentTo(99) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(14)%AdjacentTo(78) |
|
|
|
call data%state%manifold%Valve(14)%AdjacentTo(97) |
|
|
|
!call Valve(14)%AdjacentTo(126) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(15)%AdjacentTo(98) |
|
|
|
call data%state%manifold%Valve(15)%AdjacentTo(99) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(16)%AdjacentTo(121) |
|
|
|
!call Valve(16)%AdjacentTo() |
|
|
|
|
|
|
|
call data%state%manifold%Valve(17)%AdjacentTo(122) |
|
|
|
!call Valve(17)%AdjacentTo() |
|
|
|
|
|
|
|
call data%state%manifold%Valve(18)%AdjacentTo(123) |
|
|
|
!call Valve(18)%AdjacentTo() |
|
|
|
|
|
|
|
call data%state%manifold%Valve(19)%AdjacentTo(101) |
|
|
|
call data%state%manifold%Valve(19)%AdjacentTo(102) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(20)%AdjacentTo(100) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(21)%AdjacentTo(101) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(22)%AdjacentTo(102) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(23)%AdjacentTo(71) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(24)%AdjacentTo(71) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(25)%AdjacentTo(108) |
|
|
|
call data%state%manifold%Valve(25)%AdjacentTo(118) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(26)%AdjacentTo(109) |
|
|
|
call data%state%manifold%Valve(26)%AdjacentTo(117) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(27)%AdjacentTo(32) |
|
|
|
call data%state%manifold%Valve(27)%AdjacentTo(108) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(28)%AdjacentTo(33) |
|
|
|
call data%state%manifold%Valve(28)%AdjacentTo(108) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(29)%AdjacentTo(110) |
|
|
|
call data%state%manifold%Valve(29)%AdjacentTo(113) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(30)%AdjacentTo(34) |
|
|
|
call data%state%manifold%Valve(30)%AdjacentTo(109) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(31)%AdjacentTo(35) |
|
|
|
call data%state%manifold%Valve(31)%AdjacentTo(109) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(32)%AdjacentTo(27) |
|
|
|
call data%state%manifold%Valve(32)%AdjacentTo(61) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(33)%AdjacentTo(28) |
|
|
|
call data%state%manifold%Valve(33)%AdjacentTo(62) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(34)%AdjacentTo(30) |
|
|
|
call data%state%manifold%Valve(34)%AdjacentTo(63) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(35)%AdjacentTo(31) |
|
|
|
call data%state%manifold%Valve(35)%AdjacentTo(64) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(36)%AdjacentTo(116) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(37)%AdjacentTo(78) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(38)%AdjacentTo(71) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(39)%AdjacentTo(77) |
|
|
|
|
|
|
|
!call Valve(40)%AdjacentTo(105) |
|
|
|
call data%state%manifold%Valve(40)%AdjacentTo(80) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(41)%AdjacentTo(77) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(42)%AdjacentTo(71) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(43)%AdjacentTo(106) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(44)%AdjacentTo(77) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(45)%AdjacentTo(71) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(46)%AdjacentTo(104) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(47)%AdjacentTo(104) |
|
|
|
call data%state%manifold%Valve(47)%AdjacentTo(117) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(48)%AdjacentTo(69) |
|
|
|
call data%state%manifold%Valve(48)%AdjacentTo(79) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(49)%AdjacentTo(104) |
|
|
|
call data%state%manifold%Valve(49)%AdjacentTo(79) |
|
|
|
|
|
|
|
!call Valve(50)%AdjacentTo(48) |
|
|
|
call data%state%manifold%Valve(50)%AdjacentTo(51) |
|
|
|
!call Valve(50)%AdjacentTo(54) |
|
|
|
call data%state%manifold%Valve(50)%AdjacentTo(104) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(51)%AdjacentTo(50) |
|
|
|
call data%state%manifold%Valve(51)%AdjacentTo(52) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(52)%AdjacentTo(51) |
|
|
|
!call Valve(52)%AdjacentTo(127) |
|
|
|
call data%state%manifold%Valve(52)%AdjacentTo(80) |
|
|
|
|
|
|
|
!call Valve(53)%AdjacentTo(103) |
|
|
|
!call Valve(53)%AdjacentTo(105) |
|
|
|
call data%state%manifold%Valve(53)%AdjacentTo(80) |
|
|
|
|
|
|
|
!call Valve(54)%AdjacentTo(69) |
|
|
|
!call Valve(54)%AdjacentTo(124) |
|
|
|
|
|
|
|
!call Valve(55)%AdjacentTo(103) |
|
|
|
!call Valve(55)%AdjacentTo(124) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(56)%AdjacentTo(128) |
|
|
|
call data%state%manifold%Valve(56)%AdjacentTo(127) |
|
|
|
|
|
|
|
!call Valve(57)%AdjacentTo(14) |
|
|
|
!call Valve(57)%AdjacentTo(103) |
|
|
|
!call Valve(57)%AdjacentTo(126) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(58)%AdjacentTo(78) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(59)%AdjacentTo(78) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(60)%AdjacentTo(78) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(61)%AdjacentTo(32) |
|
|
|
call data%state%manifold%Valve(61)%AdjacentTo(115) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(62)%AdjacentTo(33) |
|
|
|
call data%state%manifold%Valve(62)%AdjacentTo(114) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(63)%AdjacentTo(112) |
|
|
|
call data%state%manifold%Valve(63)%AdjacentTo(34) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(64)%AdjacentTo(35) |
|
|
|
call data%state%manifold%Valve(64)%AdjacentTo(111) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(65)%AdjacentTo(120) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(66)%AdjacentTo(120) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(67)%AdjacentTo(73) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(68)%AdjacentTo(125) |
|
|
|
call data%state%manifold%Valve(68)%AdjacentTo(126) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(69)%AdjacentTo(48) |
|
|
|
call data%state%manifold%Valve(69)%AdjacentTo(124) |
|
|
|
|
|
|
|
!call Valve(70)%AdjacentTo() |
|
|
|
!call Valve(70)%AdjacentTo() |
|
|
|
|
|
|
|
call data%state%manifold%Valve(71)%AdjacentTo(20) |
|
|
|
call data%state%manifold%Valve(71)%AdjacentTo(44) |
|
|
|
call data%state%manifold%Valve(71)%AdjacentTo(59) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(72)%AdjacentTo(21) |
|
|
|
call data%state%manifold%Valve(72)%AdjacentTo(23) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(73)%AdjacentTo(22) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(74)%AdjacentTo(24) |
|
|
|
|
|
|
|
!call Valve(75)%AdjacentTo() |
|
|
|
|
|
|
|
!call Valve(76)%AdjacentTo() |
|
|
|
|
|
|
|
call data%state%manifold%Valve(77)%AdjacentTo(43) |
|
|
|
call data%state%manifold%Valve(77)%AdjacentTo(58) |
|
|
|
|
|
|
|
!call Valve(78)%AdjacentTo() |
|
|
|
|
|
|
|
call data%state%manifold%Valve(79)%AdjacentTo(48) |
|
|
|
call data%state%manifold%Valve(79)%AdjacentTo(49) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(80)%AdjacentTo(52) |
|
|
|
call data%state%manifold%Valve(80)%AdjacentTo(107) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(81)%AdjacentTo(53) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(82)%AdjacentTo(16) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(83)%AdjacentTo(17) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(84)%AdjacentTo(18) |
|
|
|
|
|
|
|
!call Valve(85)%AdjacentTo() |
|
|
|
|
|
|
|
!call Valve(86)%AdjacentTo() |
|
|
|
|
|
|
|
!call Valve(87)%AdjacentTo() |
|
|
|
|
|
|
|
!call Valve(88)%AdjacentTo() |
|
|
|
|
|
|
|
!!call Valve(89)%AdjacentTo() |
|
|
|
|
|
|
|
!call Valve(90)%AdjacentTo() |
|
|
|
|
|
|
|
call data%state%manifold%Valve(91)%AdjacentTo(6) |
|
|
|
call data%state%manifold%Valve(91)%AdjacentTo(9) |
|
|
|
call data%state%manifold%Valve(91)%AdjacentTo(75) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(92)%AdjacentTo(6) |
|
|
|
call data%state%manifold%Valve(92)%AdjacentTo(7) |
|
|
|
call data%state%manifold%Valve(92)%AdjacentTo(2) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(93)%AdjacentTo(3) |
|
|
|
call data%state%manifold%Valve(93)%AdjacentTo(7) |
|
|
|
call data%state%manifold%Valve(93)%AdjacentTo(8) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(94)%AdjacentTo(8) |
|
|
|
call data%state%manifold%Valve(94)%AdjacentTo(10) |
|
|
|
call data%state%manifold%Valve(94)%AdjacentTo(95) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(95)%AdjacentTo(76) |
|
|
|
call data%state%manifold%Valve(95)%AdjacentTo(94) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(96)%AdjacentTo(9) |
|
|
|
call data%state%manifold%Valve(96)%AdjacentTo(11) |
|
|
|
call data%state%manifold%Valve(96)%AdjacentTo(13) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(97)%AdjacentTo(11) |
|
|
|
call data%state%manifold%Valve(97)%AdjacentTo(12) |
|
|
|
call data%state%manifold%Valve(97)%AdjacentTo(14) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(98)%AdjacentTo(10) |
|
|
|
call data%state%manifold%Valve(98)%AdjacentTo(12) |
|
|
|
call data%state%manifold%Valve(98)%AdjacentTo(15) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(99)%AdjacentTo(13) |
|
|
|
call data%state%manifold%Valve(99)%AdjacentTo(15) |
|
|
|
call data%state%manifold%Valve(99)%AdjacentTo(125) |
|
|
|
|
|
|
|
!call Valve(100)%AdjacentTo(16) |
|
|
|
call data%state%manifold%Valve(100)%AdjacentTo(82) |
|
|
|
call data%state%manifold%Valve(100)%AdjacentTo(101) |
|
|
|
|
|
|
|
!call Valve(101)%AdjacentTo(17) |
|
|
|
call data%state%manifold%Valve(101)%AdjacentTo(19) |
|
|
|
call data%state%manifold%Valve(101)%AdjacentTo(83) |
|
|
|
call data%state%manifold%Valve(101)%AdjacentTo(100) |
|
|
|
|
|
|
|
!call Valve(102)%AdjacentTo(18) |
|
|
|
call data%state%manifold%Valve(102)%AdjacentTo(19) |
|
|
|
call data%state%manifold%Valve(102)%AdjacentTo(84) |
|
|
|
|
|
|
|
!call Valve(103)%AdjacentTo(53) |
|
|
|
!call Valve(103)%AdjacentTo(56) |
|
|
|
call data%state%manifold%Valve(103)%AdjacentTo(124) |
|
|
|
!call Valve(103)%AdjacentTo(56) |
|
|
|
!call Valve(103)%AdjacentTo(78) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(104)%AdjacentTo(46) |
|
|
|
call data%state%manifold%Valve(104)%AdjacentTo(47) |
|
|
|
call data%state%manifold%Valve(104)%AdjacentTo(49) |
|
|
|
call data%state%manifold%Valve(104)%AdjacentTo(50) |
|
|
|
|
|
|
|
!call Valve(105)%AdjacentTo(53) |
|
|
|
!call Valve(105)%AdjacentTo(107) |
|
|
|
!call Valve(105)%AdjacentTo(127) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(106)%AdjacentTo(40) |
|
|
|
call data%state%manifold%Valve(106)%AdjacentTo(45) |
|
|
|
|
|
|
|
|
|
|
|
call data%state%manifold%Valve(107)%AdjacentTo(41) |
|
|
|
!call Valve(107)%AdjacentTo(105) |
|
|
|
call data%state%manifold%Valve(107)%AdjacentTo(119) |
|
|
|
!call Valve(107)%AdjacentTo(42) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(108)%AdjacentTo(25) |
|
|
|
call data%state%manifold%Valve(108)%AdjacentTo(27) |
|
|
|
call data%state%manifold%Valve(108)%AdjacentTo(28) |
|
|
|
call data%state%manifold%Valve(108)%AdjacentTo(110) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(109)%AdjacentTo(26) |
|
|
|
call data%state%manifold%Valve(109)%AdjacentTo(30) |
|
|
|
call data%state%manifold%Valve(109)%AdjacentTo(31) |
|
|
|
call data%state%manifold%Valve(109)%AdjacentTo(110) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(110)%AdjacentTo(29) |
|
|
|
call data%state%manifold%Valve(110)%AdjacentTo(85) |
|
|
|
call data%state%manifold%Valve(110)%AdjacentTo(108) |
|
|
|
call data%state%manifold%Valve(110)%AdjacentTo(109) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(111)%AdjacentTo(37) |
|
|
|
call data%state%manifold%Valve(111)%AdjacentTo(64) |
|
|
|
call data%state%manifold%Valve(111)%AdjacentTo(112) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(112)%AdjacentTo(63) |
|
|
|
call data%state%manifold%Valve(112)%AdjacentTo(111) |
|
|
|
call data%state%manifold%Valve(112)%AdjacentTo(113) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(113)%AdjacentTo(29) |
|
|
|
call data%state%manifold%Valve(113)%AdjacentTo(112) |
|
|
|
call data%state%manifold%Valve(113)%AdjacentTo(114) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(114)%AdjacentTo(62) |
|
|
|
call data%state%manifold%Valve(114)%AdjacentTo(113) |
|
|
|
call data%state%manifold%Valve(114)%AdjacentTo(115) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(115)%AdjacentTo(36) |
|
|
|
call data%state%manifold%Valve(115)%AdjacentTo(61) |
|
|
|
call data%state%manifold%Valve(115)%AdjacentTo(114) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(116)%AdjacentTo(38) |
|
|
|
call data%state%manifold%Valve(116)%AdjacentTo(39) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(117)%AdjacentTo(2) |
|
|
|
call data%state%manifold%Valve(117)%AdjacentTo(26) |
|
|
|
call data%state%manifold%Valve(117)%AdjacentTo(47) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(118)%AdjacentTo(3) |
|
|
|
call data%state%manifold%Valve(118)%AdjacentTo(25) |
|
|
|
call data%state%manifold%Valve(118)%AdjacentTo(46) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(119)%AdjacentTo(42) |
|
|
|
call data%state%manifold%Valve(119)%AdjacentTo(60) |
|
|
|
call data%state%manifold%Valve(119)%AdjacentTo(107) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(120)%AdjacentTo(71) |
|
|
|
|
|
|
|
!call Valve(121)%AdjacentTo(16) |
|
|
|
call data%state%manifold%Valve(121)%AdjacentTo(1) |
|
|
|
call data%state%manifold%Valve(121)%AdjacentTo(65) |
|
|
|
|
|
|
|
!call Valve(122)%AdjacentTo(17) |
|
|
|
call data%state%manifold%Valve(122)%AdjacentTo(4) |
|
|
|
call data%state%manifold%Valve(122)%AdjacentTo(66) |
|
|
|
|
|
|
|
!call Valve(123)%AdjacentTo(18) |
|
|
|
call data%state%manifold%Valve(123)%AdjacentTo(5) |
|
|
|
call data%state%manifold%Valve(123)%AdjacentTo(67) |
|
|
|
|
|
|
|
!call Valve(124)%AdjacentTo(54) |
|
|
|
!call Valve(124)%AdjacentTo(55) |
|
|
|
call data%state%manifold%Valve(124)%AdjacentTo(69) |
|
|
|
call data%state%manifold%Valve(124)%AdjacentTo(103) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(125)%AdjacentTo(68) |
|
|
|
call data%state%manifold%Valve(125)%AdjacentTo(99) |
|
|
|
! call Valve(125)%AdjacentTo(126) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(126)%AdjacentTo(128) |
|
|
|
call data%state%manifold%Valve(126)%AdjacentTo(68) |
|
|
|
!call Valve(126)%AdjacentTo(125) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(127)%AdjacentTo(56) |
|
|
|
call data%state%manifold%Valve(127)%AdjacentTo(78) |
|
|
|
!call Valve(127)%AdjacentTo(105) |
|
|
|
|
|
|
|
call data%state%manifold%Valve(128)%AdjacentTo(56) |
|
|
|
call data%state%manifold%Valve(128)%AdjacentTo(126) |