mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: c9211482b7
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'c9211482b7'
${ noResults }
SimulationCore2/CSharp/Equipments/MudPathFinding/CManifolds.i90

1358 lines
38 KiB
Raw Blame History 

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Equipments/MudPathFinding/CManifolds.f90"

  2. module CManifolds

  3.     use CStack

  4.     use CArrangement

  5. ! use CPathChangeEvents

  6. ! use CDrillingConsoleVariables

  7.     use SimulationVariables

  8. ! use ConfigurationVariables, only: EquipmentControl

  9.     

  10.     implicit none  

  11.     

  12.     public    

  13.     integer, parameter :: ValveCount = 128

  14.     integer, parameter :: MinSource = 71  

  15.     integer, parameter :: MaxSource = 90  

  16.     integer, parameter :: MinRelation = 91  

  17.     integer, parameter :: MaxRelation = 128

  18. 

  19.     Type::ManifoldType

  20.         type(Arrangement) :: Valve(ValveCount)

  21.         type(Path), allocatable :: OpenPaths(:)

  22.         type(Stack) :: Fringe

  23.         logical :: IsRepititveOutput

  24.         

  25.         logical :: IsSafetyValveInstalled

  26.         logical :: IsSafetyValveInstalled_KellyMode

  27.         logical :: IsSafetyValveInstalled_TripMode

  28.         logical :: IsSafetyValveInstalled_TopDrive

  29.         logical :: SafetyValve

  30.         logical :: IsIBopInstalled

  31.         logical :: IBop

  32.         logical :: IsKellyCockInstalled

  33.         logical :: KellyCock

  34.         logical :: IsTopDriveIBopInstalled

  35.         logical :: TopDriveIBop

  36.         logical :: IsFloatValveInstalled

  37.         logical :: FloatValve

  38.         logical :: IsPathsDirty = .false.

  39.         logical :: IsTraverse = .false.

  40.     End type ManifoldType

  41.     type(ManifoldType)::Manifold

  42.     contains    

  43.     

  44.     subroutine PathFinding_Setup()

  45. ! use CSimulationVariables

  46.         implicit none

  47. 		Manifold%IsTraverse = .false.

  48.         call Setup()

  49. !call OnSimulationInitialization%Add(PathFinding_Init)

  50. !call OnSimulationStop%Add(PathFinding_Init)

  51. !!**call OnpPathFindingStep%Add(PathFinding_Step)

  52. !!**call OnpPathFindingOutput%Add(PathFinding_Output)

  53. ! !**call OnpPathFindingMain%Add(PathFindingMainBody)

  54.     end subroutine

  55.     

  56.     subroutine PathFinding_Init

  57.         implicit none

  58. 		Manifold%IsTraverse = .false.

  59.         call Setup()

  60.     end subroutine PathFinding_Init

  61.     

  62.     subroutine PathFinding_Step

  63.         if (Manifold%IsPathsDirty) then

  64.             Manifold%IsPathsDirty = .false.

  65.             call Traverse()

  66.         endif

  67. end subroutine PathFinding_Step

  68.     

  69. ! subroutine PathFinding_Output

  70. !     implicit none

  71. ! end subroutine PathFinding_Output

  72.     

  73. ! subroutine PathFindingMainBody

  74. !     ! use CSimulationVariables

  75. !     implicit none

  76. !     loop : do

  77. !         if(IsStopped) call Quit()

  78. !         call sleepqq(50)

  79. !         if (Manifold%IsPathsDirty) then

  80. !             Manifold%IsPathsDirty = .false.

  81. !             call Traverse()

  82. !         endif

  83. !     end do loop

  84. ! end subroutine PathFindingMainBody

  85.     

  86.     subroutine Traverse()

  87.         use CLog5

  88.         implicit none

  89.         integer :: i, Duration

  90.         integer, dimension(8) :: StartTime,EndTime !TODO: clean up

  91.         call DATE_AND_TIME(values=StartTime) !TODO: clean up

  92.         

  93. !**call BeforeTraverse%RunAll()

  94.         

  95.         

  96.         if(allocated(Manifold%OpenPaths)) deallocate(Manifold%OpenPaths)

  97.         do i=MinSource, MaxSource 

  98.             if(IsValveOpen(i)) then

  99.                 call AddRootNode(i)

  100.                 call AddChildren(Manifold%Valve(i))

  101.             endif

  102.         enddo

  103.         

  104.         call PostProcess(Manifold%OpenPaths)

  105.         

  106. !**call AfterTraverse%RunAll()

  107. 		

  108.         Manifold%IsTraverse = .true.

  109. 		

  110. !TODO: clean up

  111. # 118

  112. 

  113.         

  114.     endsubroutine

  115.     

  116.     subroutine PostProcess(pathArr)

  117.         implicit none

  118.         type(Path), allocatable, intent(inout) :: pathArr(:)

  119.         integer :: i

  120.         

  121.         if(.not.allocated(pathArr)) return

  122.         

  123.         i = 1

  124.         do

  125.             call pathArr(i)%Purge(MinRelation, MaxRelation)

  126.             

  127.             if(pathArr(i)%Length() <= 2) then

  128.                 call RemovePath(pathArr, i)

  129.             else

  130.                 i = i + 1

  131.             endif

  132.             

  133.             if(i > size(pathArr)) exit      

  134.         enddo

  135.         

  136.     end subroutine

  137.         

  138.     subroutine AddRootNode(valve)

  139.         implicit none

  140.         integer, intent(in) :: valve

  141.         call Manifold%Fringe%Push(valve)

  142.     end subroutine

  143.     

  144.     recursive subroutine AddChildren(node)

  145.         implicit none

  146.         type(Arrangement), intent(inout) :: node

  147.         integer :: i,t 

  148.         

  149.         do i=1, Manifold%Valve(node%Number)%Length()

  150.             t = Manifold%Valve(node%Number)%Adjacent(i)

  151.             

  152.             if(IsValveOpen(t)) then

  153.                 

  154.                 if(Manifold%Fringe%DoesHave(t)) cycle

  155.                 

  156.                 call Manifold%Fringe%Push(t)

  157.                 

  158.                 if(Manifold%Valve(t)%IsSource()) then

  159.                     call AddPath(Manifold%OpenPaths, Manifold%Fringe%List)

  160.                     call Manifold%Fringe%Pop()

  161.                     cycle

  162.                 endif

  163.                 

  164.                 call AddChildren(Manifold%Valve(node%Adjacent(i)))

  165.                 

  166.             end if

  167.         enddo

  168.         call Manifold%Fringe%Pop()

  169.     end subroutine

  170.     

  171.     logical function IsValveOpen(no)

  172.         implicit none

  173.         integer, intent(in) :: no

  174.         

  175.         IsValveOpen = Manifold%Valve(no)%Status

  176.         

  177.     end function

  178.     

  179.     subroutine AddPath(pathArr, p)

  180.         implicit none

  181.         type(Path), intent(in) :: p

  182.         type(Path), allocatable, intent(inout) :: pathArr(:)

  183.         type(Path), allocatable :: tempArr(:)

  184.         integer :: i, isize

  185.         

  186.         if(p%IsNull()) return

  187.         if(p%Length()<=1) return

  188.         

  189. !**call OnpPathOpen%RunAll(p%Valves)

  190.         

  191.         if(allocated(pathArr)) then

  192.             isize = size(pathArr)

  193.             

  194.             

  195. ! check to see if already have a path same as p

  196.             do i=1,isize          

  197.                 if(pathArr(i)%First()==p%First() .and. pathArr(i)%Last()==p%Last()) then

  198. ! if there is then

  199. ! check to see if both have exacly a same length

  200.                     if(pathArr(i)%Length()==p%Length())then

  201. ! now they are the same so ignore adding this one

  202.                         return

  203.                     else

  204. !if they have different lengths then choose the shorter one

  205.                         if(pathArr(i)%Length()>p%Length())pathArr(i) = p

  206.                         return

  207.                     endif

  208.                     

  209.                 endif

  210.             end do

  211.             

  212.             

  213.             

  214. !TODO: if p last valve is input source then ignore adding it

  215. !TODO: if p start valve is output source then ignore adding it

  216.             

  217.             

  218.             

  219. ! if p is a new entry then add it to the collections of found paths

  220.             allocate(tempArr(isize+1))

  221.             do i=1,isize          

  222.                 tempArr(i) = pathArr(i)

  223.             end do

  224.             tempArr(isize+1) = p

  225.             deallocate(pathArr)

  226.             call move_alloc(tempArr, pathArr)

  227.         else

  228.             allocate(pathArr(1))

  229.             pathArr(1) = p

  230.         end if

  231.         

  232.     endsubroutine

  233.     

  234.     subroutine RemovePath(pathArr, index)

  235.         implicit none

  236.         integer, intent(in) :: index

  237.         type(Path), allocatable, intent(inout) :: pathArr(:)

  238.         type(Path), allocatable :: tempArr(:)

  239.         integer :: i

  240.         logical :: found

  241.         

  242.         if(index <= 0 .or. index > size(pathArr)) return

  243.         if(.not.allocated(pathArr))return

  244.         allocate(tempArr(size(pathArr)-1))

  245.         found = .false.

  246.         do i=1, size(pathArr)

  247.             if(i==index) then

  248.                 found = .true.

  249.                 cycle

  250.             end if

  251.             if(found) then

  252.                 tempArr(i-1) = pathArr(i)

  253. !!**call OnpPathClose%RunAll(pathArr(i)%Valves)

  254.             else 

  255.                 tempArr(i) = pathArr(i)

  256.             endif

  257.         end do

  258.         deallocate(pathArr)

  259.         call move_alloc(tempArr, pathArr)

  260.         

  261.     endsubroutine

  262.     

  263.     subroutine Setup()

  264.         implicit none

  265.         integer :: i

  266.         

  267. ! initialize all valves

  268.         do i = 1, ValveCount

  269.             call Manifold%Valve(i)%init(i)

  270.         end do

  271.         

  272. ! open source valves

  273.         do i = MinSource , MaxSource

  274.             Manifold%Valve(i)%Status = .true.

  275.             Manifold%Valve(i)%ValveType = InputOutput

  276.         end do

  277.         

  278.         do i = MinRelation , MaxRelation

  279.             Manifold%Valve(i)%Status = .true.

  280.             Manifold%Valve(i)%ValveType = Relation

  281.         end do

  282.         

  283.         

  284.         

  285. ! make adjustments

  286.         call Manifold%Valve(1)%AdjacentTo(91)

  287.         

  288.         call Manifold%Valve(2)%AdjacentTo(92)

  289.         call Manifold%Valve(2)%AdjacentTo(117)

  290.         

  291.         call Manifold%Valve(3)%AdjacentTo(93)

  292.         call Manifold%Valve(3)%AdjacentTo(118)

  293.         

  294.         call Manifold%Valve(4)%AdjacentTo(94)

  295.         

  296.         call Manifold%Valve(5)%AdjacentTo(95)

  297.         

  298.         call Manifold%Valve(6)%AdjacentTo(91)

  299.         call Manifold%Valve(6)%AdjacentTo(92)

  300.         

  301.         call Manifold%Valve(7)%AdjacentTo(92)

  302.         call Manifold%Valve(7)%AdjacentTo(93)

  303.         

  304.         call Manifold%Valve(8)%AdjacentTo(93)

  305.         call Manifold%Valve(8)%AdjacentTo(94)

  306.         

  307.         call Manifold%Valve(9)%AdjacentTo(91)

  308.         call Manifold%Valve(9)%AdjacentTo(96)

  309.         

  310.         call Manifold%Valve(10)%AdjacentTo(94)

  311.         call Manifold%Valve(10)%AdjacentTo(98)

  312.         

  313.         call Manifold%Valve(11)%AdjacentTo(96)

  314.         call Manifold%Valve(11)%AdjacentTo(97)

  315.         

  316.         call Manifold%Valve(12)%AdjacentTo(97)

  317.         call Manifold%Valve(12)%AdjacentTo(98)

  318.         

  319.         call Manifold%Valve(13)%AdjacentTo(96)

  320.         call Manifold%Valve(13)%AdjacentTo(99) 

  321.         

  322.         call Manifold%Valve(14)%AdjacentTo(78)

  323.         call Manifold%Valve(14)%AdjacentTo(97)

  324. !call Valve(14)%AdjacentTo(126)

  325.         

  326.         call Manifold%Valve(15)%AdjacentTo(98)

  327.         call Manifold%Valve(15)%AdjacentTo(99)

  328.         

  329.         call Manifold%Valve(16)%AdjacentTo(121)

  330. !call Valve(16)%AdjacentTo()

  331.         

  332.         call Manifold%Valve(17)%AdjacentTo(122)

  333. !call Valve(17)%AdjacentTo()

  334.         

  335.         call Manifold%Valve(18)%AdjacentTo(123)

  336. !call Valve(18)%AdjacentTo()

  337.         

  338.         call Manifold%Valve(19)%AdjacentTo(101)

  339.         call Manifold%Valve(19)%AdjacentTo(102)

  340.         

  341.         call Manifold%Valve(20)%AdjacentTo(100)

  342.         

  343.         call Manifold%Valve(21)%AdjacentTo(101)

  344.         

  345.         call Manifold%Valve(22)%AdjacentTo(102)

  346.         

  347.         call Manifold%Valve(23)%AdjacentTo(71)

  348.         

  349.         call Manifold%Valve(24)%AdjacentTo(71)

  350.         

  351.         call Manifold%Valve(25)%AdjacentTo(108)

  352.         call Manifold%Valve(25)%AdjacentTo(118)

  353.         

  354.         call Manifold%Valve(26)%AdjacentTo(109)

  355.         call Manifold%Valve(26)%AdjacentTo(117)

  356.         

  357.         call Manifold%Valve(27)%AdjacentTo(32)

  358.         call Manifold%Valve(27)%AdjacentTo(108)

  359.         

  360.         call Manifold%Valve(28)%AdjacentTo(33)

  361.         call Manifold%Valve(28)%AdjacentTo(108)

  362.         

  363.         call Manifold%Valve(29)%AdjacentTo(110)

  364.         call Manifold%Valve(29)%AdjacentTo(113)

  365.         

  366.         call Manifold%Valve(30)%AdjacentTo(34)

  367.         call Manifold%Valve(30)%AdjacentTo(109)

  368.         

  369.         call Manifold%Valve(31)%AdjacentTo(35)

  370.         call Manifold%Valve(31)%AdjacentTo(109)

  371.         

  372.         call Manifold%Valve(32)%AdjacentTo(27)

  373.         call Manifold%Valve(32)%AdjacentTo(61)

  374.         

  375.         call Manifold%Valve(33)%AdjacentTo(28)

  376.         call Manifold%Valve(33)%AdjacentTo(62)

  377.         

  378.         call Manifold%Valve(34)%AdjacentTo(30)

  379.         call Manifold%Valve(34)%AdjacentTo(63)

  380.         

  381.         call Manifold%Valve(35)%AdjacentTo(31)

  382.         call Manifold%Valve(35)%AdjacentTo(64)

  383.         

  384.         call Manifold%Valve(36)%AdjacentTo(116)

  385.         

  386.         call Manifold%Valve(37)%AdjacentTo(78)

  387.         

  388.         call Manifold%Valve(38)%AdjacentTo(71)

  389.         

  390.         call Manifold%Valve(39)%AdjacentTo(77)

  391.         

  392. !call Valve(40)%AdjacentTo(105)

  393.         call Manifold%Valve(40)%AdjacentTo(80)

  394.         

  395.         call Manifold%Valve(41)%AdjacentTo(77)

  396.         

  397.         call Manifold%Valve(42)%AdjacentTo(71)

  398.         

  399.         call Manifold%Valve(43)%AdjacentTo(106)

  400.         

  401.         call Manifold%Valve(44)%AdjacentTo(77)

  402.         

  403.         call Manifold%Valve(45)%AdjacentTo(71)

  404.         

  405.         call Manifold%Valve(46)%AdjacentTo(104)

  406.         

  407.         call Manifold%Valve(47)%AdjacentTo(104)

  408.         call Manifold%Valve(47)%AdjacentTo(117)

  409.         

  410.         call Manifold%Valve(48)%AdjacentTo(69)

  411.         call Manifold%Valve(48)%AdjacentTo(79)

  412.         

  413.         call Manifold%Valve(49)%AdjacentTo(104)

  414.         call Manifold%Valve(49)%AdjacentTo(79)

  415.         

  416. !call Valve(50)%AdjacentTo(48)

  417.         call Manifold%Valve(50)%AdjacentTo(51)

  418. !call Valve(50)%AdjacentTo(54)

  419.         call Manifold%Valve(50)%AdjacentTo(104)

  420.         

  421.         call Manifold%Valve(51)%AdjacentTo(50)

  422.         call Manifold%Valve(51)%AdjacentTo(52)

  423.         

  424.         call Manifold%Valve(52)%AdjacentTo(51)

  425. !call Valve(52)%AdjacentTo(127)

  426.         call Manifold%Valve(52)%AdjacentTo(80)

  427.         

  428. !call Valve(53)%AdjacentTo(103)

  429. !call Valve(53)%AdjacentTo(105)

  430.         call Manifold%Valve(53)%AdjacentTo(80)

  431.         

  432. !call Valve(54)%AdjacentTo(69)

  433. !call Valve(54)%AdjacentTo(124)

  434.         

  435. !call Valve(55)%AdjacentTo(103)

  436. !call Valve(55)%AdjacentTo(124)

  437.         

  438.         call Manifold%Valve(56)%AdjacentTo(128)

  439.         call Manifold%Valve(56)%AdjacentTo(127)

  440.         

  441. !call Valve(57)%AdjacentTo(14)

  442. !call Valve(57)%AdjacentTo(103)

  443. !call Valve(57)%AdjacentTo(126)

  444.         

  445.         call Manifold%Valve(58)%AdjacentTo(78)

  446.         

  447.         call Manifold%Valve(59)%AdjacentTo(78)

  448.         

  449.         call Manifold%Valve(60)%AdjacentTo(78)

  450.         

  451.         call Manifold%Valve(61)%AdjacentTo(32)

  452.         call Manifold%Valve(61)%AdjacentTo(115)

  453.         

  454.         call Manifold%Valve(62)%AdjacentTo(33)

  455.         call Manifold%Valve(62)%AdjacentTo(114)

  456.         

  457.         call Manifold%Valve(63)%AdjacentTo(112)

  458.         call Manifold%Valve(63)%AdjacentTo(34)

  459.         

  460.         call Manifold%Valve(64)%AdjacentTo(35)

  461.         call Manifold%Valve(64)%AdjacentTo(111)

  462.         

  463.         call Manifold%Valve(65)%AdjacentTo(120)

  464.         

  465.         call Manifold%Valve(66)%AdjacentTo(120)

  466.         

  467.         call Manifold%Valve(67)%AdjacentTo(73)

  468.         

  469.         call Manifold%Valve(68)%AdjacentTo(125)

  470.         call Manifold%Valve(68)%AdjacentTo(126)

  471.         

  472.         call Manifold%Valve(69)%AdjacentTo(48)

  473.         call Manifold%Valve(69)%AdjacentTo(124)

  474.         

  475. !call Valve(70)%AdjacentTo()

  476. !call Valve(70)%AdjacentTo()

  477.         

  478.         call Manifold%Valve(71)%AdjacentTo(20)

  479.         call Manifold%Valve(71)%AdjacentTo(44)

  480.         call Manifold%Valve(71)%AdjacentTo(59)

  481.         

  482.         call Manifold%Valve(72)%AdjacentTo(21)

  483.         call Manifold%Valve(72)%AdjacentTo(23)

  484.         

  485.         call Manifold%Valve(73)%AdjacentTo(22)

  486.         

  487.         call Manifold%Valve(74)%AdjacentTo(24)

  488.         

  489. !call Valve(75)%AdjacentTo()

  490.         

  491. !call Valve(76)%AdjacentTo()

  492.         

  493.         call Manifold%Valve(77)%AdjacentTo(43)

  494.         call Manifold%Valve(77)%AdjacentTo(58)

  495.         

  496. !call Valve(78)%AdjacentTo()

  497.         

  498.         call Manifold%Valve(79)%AdjacentTo(48)

  499.         call Manifold%Valve(79)%AdjacentTo(49)

  500.         

  501.         call Manifold%Valve(80)%AdjacentTo(52)

  502.         call Manifold%Valve(80)%AdjacentTo(107)

  503.         

  504.         call Manifold%Valve(81)%AdjacentTo(53)

  505.         

  506.         call Manifold%Valve(82)%AdjacentTo(16)

  507.         

  508.         call Manifold%Valve(83)%AdjacentTo(17)

  509.         

  510.         call Manifold%Valve(84)%AdjacentTo(18)

  511.         

  512. !call Valve(85)%AdjacentTo()

  513.         

  514. !call Valve(86)%AdjacentTo()

  515.         

  516. !call Valve(87)%AdjacentTo()

  517.         

  518. !call Valve(88)%AdjacentTo()

  519.         

  520. !!call Valve(89)%AdjacentTo()

  521.         

  522. !call Valve(90)%AdjacentTo()

  523.         

  524.         call Manifold%Valve(91)%AdjacentTo(6)

  525.         call Manifold%Valve(91)%AdjacentTo(9)

  526.         call Manifold%Valve(91)%AdjacentTo(75)

  527.         

  528.         call Manifold%Valve(92)%AdjacentTo(6)

  529.         call Manifold%Valve(92)%AdjacentTo(7)

  530.         call Manifold%Valve(92)%AdjacentTo(2)

  531.         

  532.         call Manifold%Valve(93)%AdjacentTo(3)

  533.         call Manifold%Valve(93)%AdjacentTo(7)

  534.         call Manifold%Valve(93)%AdjacentTo(8)

  535.         

  536.         call Manifold%Valve(94)%AdjacentTo(8)

  537.         call Manifold%Valve(94)%AdjacentTo(10)

  538.         call Manifold%Valve(94)%AdjacentTo(95)  

  539.         

  540.         call Manifold%Valve(95)%AdjacentTo(76)

  541.         call Manifold%Valve(95)%AdjacentTo(94)

  542.         

  543.         call Manifold%Valve(96)%AdjacentTo(9)

  544.         call Manifold%Valve(96)%AdjacentTo(11)

  545.         call Manifold%Valve(96)%AdjacentTo(13)

  546.         

  547.         call Manifold%Valve(97)%AdjacentTo(11)

  548.         call Manifold%Valve(97)%AdjacentTo(12)

  549.         call Manifold%Valve(97)%AdjacentTo(14)

  550.         

  551.         call Manifold%Valve(98)%AdjacentTo(10)

  552.         call Manifold%Valve(98)%AdjacentTo(12)

  553.         call Manifold%Valve(98)%AdjacentTo(15)

  554.         

  555.         call Manifold%Valve(99)%AdjacentTo(13)

  556.         call Manifold%Valve(99)%AdjacentTo(15)

  557.         call Manifold%Valve(99)%AdjacentTo(125)

  558.         

  559. !call Valve(100)%AdjacentTo(16)

  560.         call Manifold%Valve(100)%AdjacentTo(82)

  561.         call Manifold%Valve(100)%AdjacentTo(101)

  562.         

  563. !call Valve(101)%AdjacentTo(17)

  564.         call Manifold%Valve(101)%AdjacentTo(19)

  565.         call Manifold%Valve(101)%AdjacentTo(83)

  566.         call Manifold%Valve(101)%AdjacentTo(100)

  567.         

  568. !call Valve(102)%AdjacentTo(18)

  569.         call Manifold%Valve(102)%AdjacentTo(19)

  570.         call Manifold%Valve(102)%AdjacentTo(84)

  571.         

  572. !call Valve(103)%AdjacentTo(53)

  573. !call Valve(103)%AdjacentTo(56)

  574.         call Manifold%Valve(103)%AdjacentTo(124)

  575. !call Valve(103)%AdjacentTo(56)

  576. !call Valve(103)%AdjacentTo(78)

  577.         

  578.         call Manifold%Valve(104)%AdjacentTo(46)

  579.         call Manifold%Valve(104)%AdjacentTo(47)

  580.         call Manifold%Valve(104)%AdjacentTo(49)

  581.         call Manifold%Valve(104)%AdjacentTo(50)

  582.         

  583. !call Valve(105)%AdjacentTo(53)

  584. !call Valve(105)%AdjacentTo(107)

  585. !call Valve(105)%AdjacentTo(127)

  586.         

  587.         call Manifold%Valve(106)%AdjacentTo(40)

  588.         call Manifold%Valve(106)%AdjacentTo(45)

  589.         

  590.         

  591.         call Manifold%Valve(107)%AdjacentTo(41)

  592. !call Valve(107)%AdjacentTo(105)

  593.         call Manifold%Valve(107)%AdjacentTo(119)

  594. !call Valve(107)%AdjacentTo(42)

  595.         

  596.         call Manifold%Valve(108)%AdjacentTo(25)

  597.         call Manifold%Valve(108)%AdjacentTo(27)

  598.         call Manifold%Valve(108)%AdjacentTo(28)

  599.         call Manifold%Valve(108)%AdjacentTo(110)

  600.         

  601.         call Manifold%Valve(109)%AdjacentTo(26)

  602.         call Manifold%Valve(109)%AdjacentTo(30)

  603.         call Manifold%Valve(109)%AdjacentTo(31)

  604.         call Manifold%Valve(109)%AdjacentTo(110)

  605.         

  606.         call Manifold%Valve(110)%AdjacentTo(29)

  607.         call Manifold%Valve(110)%AdjacentTo(85)

  608.         call Manifold%Valve(110)%AdjacentTo(108)

  609.         call Manifold%Valve(110)%AdjacentTo(109)

  610.         

  611.         call Manifold%Valve(111)%AdjacentTo(37)

  612.         call Manifold%Valve(111)%AdjacentTo(64)

  613.         call Manifold%Valve(111)%AdjacentTo(112)

  614.         

  615.         call Manifold%Valve(112)%AdjacentTo(63)

  616.         call Manifold%Valve(112)%AdjacentTo(111)

  617.         call Manifold%Valve(112)%AdjacentTo(113)

  618.         

  619.         call Manifold%Valve(113)%AdjacentTo(29)

  620.         call Manifold%Valve(113)%AdjacentTo(112)

  621.         call Manifold%Valve(113)%AdjacentTo(114)

  622.         

  623.         call Manifold%Valve(114)%AdjacentTo(62)

  624.         call Manifold%Valve(114)%AdjacentTo(113)

  625.         call Manifold%Valve(114)%AdjacentTo(115)

  626.         

  627.         call Manifold%Valve(115)%AdjacentTo(36)

  628.         call Manifold%Valve(115)%AdjacentTo(61)

  629.         call Manifold%Valve(115)%AdjacentTo(114)

  630.         

  631.         call Manifold%Valve(116)%AdjacentTo(38)

  632.         call Manifold%Valve(116)%AdjacentTo(39)

  633.         

  634.         call Manifold%Valve(117)%AdjacentTo(2)

  635.         call Manifold%Valve(117)%AdjacentTo(26)

  636.         call Manifold%Valve(117)%AdjacentTo(47)

  637.         

  638.         call Manifold%Valve(118)%AdjacentTo(3)

  639.         call Manifold%Valve(118)%AdjacentTo(25)

  640.         call Manifold%Valve(118)%AdjacentTo(46)

  641.         

  642.         call Manifold%Valve(119)%AdjacentTo(42)

  643.         call Manifold%Valve(119)%AdjacentTo(60)

  644.         call Manifold%Valve(119)%AdjacentTo(107)

  645.         

  646.         call Manifold%Valve(120)%AdjacentTo(71)

  647.         

  648. !call Valve(121)%AdjacentTo(16)

  649.         call Manifold%Valve(121)%AdjacentTo(1)

  650.         call Manifold%Valve(121)%AdjacentTo(65)

  651.         

  652. !call Valve(122)%AdjacentTo(17)

  653.         call Manifold%Valve(122)%AdjacentTo(4)

  654.         call Manifold%Valve(122)%AdjacentTo(66)

  655.         

  656. !call Valve(123)%AdjacentTo(18)

  657.         call Manifold%Valve(123)%AdjacentTo(5)

  658.         call Manifold%Valve(123)%AdjacentTo(67)

  659.         

  660. !call Valve(124)%AdjacentTo(54)

  661. !call Valve(124)%AdjacentTo(55)

  662.         call Manifold%Valve(124)%AdjacentTo(69)

  663.         call Manifold%Valve(124)%AdjacentTo(103)

  664.         

  665.         call Manifold%Valve(125)%AdjacentTo(68)

  666.         call Manifold%Valve(125)%AdjacentTo(99)

  667. ! call Valve(125)%AdjacentTo(126)

  668.         

  669.         call Manifold%Valve(126)%AdjacentTo(128)

  670.         call Manifold%Valve(126)%AdjacentTo(68)        

  671. !call Valve(126)%AdjacentTo(125)

  672.         

  673.         call Manifold%Valve(127)%AdjacentTo(56)

  674.         call Manifold%Valve(127)%AdjacentTo(78)

  675. !call Valve(127)%AdjacentTo(105)

  676.         

  677.         call Manifold%Valve(128)%AdjacentTo(56)

  678.         call Manifold%Valve(128)%AdjacentTo(126)

  679.         

  680.         

  681. ! initialization

  682.         call ChangeValve(60, .true.)

  683.         call RemoveIBop()

  684.         call ToggleFillupHead(.false.)

  685.         call ToggleMudBox(.false.)

  686.         call RemoveTopDriveIBop()

  687.         call InstallSafetyValve_KellyMode()

  688.         call KellyDisconnected()

  689.     end subroutine

  690.     

  691.     

  692.     

  693.     subroutine KellyConnected()

  694. !use CLog3

  695.         implicit none

  696.         

  697.         call Manifold%Valve(127)%RemoveAdjacent(78)

  698.         

  699.         call Manifold%Valve(127)%AdjacentTo(103)

  700.         call Manifold%Valve(103)%AdjacentTo(127)

  701.         

  702. # 711

  703. 

  704.         Manifold%IsPathsDirty = .true.

  705.     end subroutine

  706.     

  707.     subroutine KellyDisconnected()

  708. !use CLog3

  709.         implicit none

  710.         

  711.         call Manifold%Valve(127)%RemoveAdjacent(103)

  712.         call Manifold%Valve(103)%RemoveAdjacent(127)

  713.         

  714.         call Manifold%Valve(127)%AdjacentTo(78)

  715.         

  716. # 727

  717. 

  718. 

  719.         Manifold%IsPathsDirty = .true.

  720.         

  721.     end subroutine

  722.     

  723.     

  724.     

  725.     

  726.     

  727.     

  728.     

  729.     

  730.     

  731.     subroutine InstallSafetyValve_KellyMode()

  732.         implicit none

  733.         Manifold%IsSafetyValveInstalled_KellyMode = .true.

  734.         

  735.         call RemoveTopDriveIBop()

  736.         

  737. ! Remove Safey Valve (54)

  738.         call Manifold%Valve(124)%RemoveAdjacent(54)

  739.         call Manifold%Valve(54)%RemoveAdjacent(124)

  740.         

  741.         call Manifold%Valve(69)%RemoveAdjacent(54)

  742.         call Manifold%Valve(54)%RemoveAdjacent(69)

  743.         

  744. ! Remove 126-103 cnn

  745.         call Manifold%Valve(128)%RemoveAdjacent(127)

  746.         call Manifold%Valve(127)%RemoveAdjacent(128)

  747.                 

  748. ! now make cnn

  749.         call Manifold%Valve(124)%AdjacentTo(69)

  750.         call Manifold%Valve(69)%AdjacentTo(124)

  751.         

  752.         call Manifold%Valve(128)%AdjacentTo(56)

  753.         

  754.         call Manifold%Valve(56)%AdjacentTo(128)

  755.         call Manifold%Valve(56)%AdjacentTo(127)

  756.         

  757.         call Manifold%Valve(127)%AdjacentTo(56)

  758.         

  759. # 771

  760. 

  761.         

  762.         data%Equipments%DrillingConsole%IRSafetyValveLed = 1

  763.         call OpenSafetyValve_KellyMode()

  764.     end subroutine

  765.     

  766.     subroutine RemoveSafetyValve_KellyMode()

  767.         implicit none

  768.         Manifold%IsSafetyValveInstalled_KellyMode = .false.

  769.         

  770.         call Manifold%Valve(128)%RemoveAdjacent(56)

  771.         call Manifold%Valve(56)%RemoveAdjacent(128)

  772.         

  773.         call Manifold%Valve(127)%RemoveAdjacent(56)

  774.         call Manifold%Valve(56)%RemoveAdjacent(127)

  775.         

  776.         call Manifold%Valve(127)%AdjacentTo(128)

  777.         call Manifold%Valve(128)%AdjacentTo(127)

  778.         

  779.         data%Equipments%DrillingConsole%IRSafetyValveLed = 0

  780.         call CloseSafetyValve_KellyMode()

  781.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  782.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  783.         

  784. # 797

  785. 

  786.         

  787.     end subroutine

  788.     

  789.     subroutine OpenSafetyValve_KellyMode()

  790.         implicit none

  791.         if(.not.Manifold%IsSafetyValveInstalled_KellyMode) return

  792.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 1

  793.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  794.         Manifold%SafetyValve = .true.

  795.         call ChangeValve(56, Manifold%SafetyValve)

  796.         

  797. # 811

  798. 

  799.         

  800.     end subroutine

  801.     

  802.     subroutine CloseSafetyValve_KellyMode()

  803.         implicit none

  804.         if(.not.Manifold%IsSafetyValveInstalled_KellyMode) return

  805.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 1

  806.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  807.         Manifold%SafetyValve = .false.

  808.         call ChangeValve(56, Manifold%SafetyValve)

  809.         

  810. # 825

  811. 

  812.         

  813.     end subroutine

  814.     

  815.     

  816.     

  817.     

  818.     

  819.     

  820.     

  821.     

  822.     

  823.     

  824.     subroutine InstallSafetyValve_TripMode()

  825.         implicit none

  826.         Manifold%IsSafetyValveInstalled_TripMode = .true.

  827.         

  828.         call Manifold%Valve(128)%RemoveAdjacent(56)

  829.         call Manifold%Valve(56)%RemoveAdjacent(128)

  830.         

  831.         call Manifold%Valve(127)%RemoveAdjacent(56)

  832.         call Manifold%Valve(56)%RemoveAdjacent(127)

  833.         

  834.         call Manifold%Valve(69)%RemoveAdjacent(124)

  835.         call Manifold%Valve(124)%RemoveAdjacent(69)

  836.         

  837.         

  838.         call Manifold%Valve(127)%AdjacentTo(128)

  839.         call Manifold%Valve(128)%AdjacentTo(127)

  840.         

  841.         call Manifold%Valve(124)%AdjacentTo(54)

  842.         call Manifold%Valve(54)%AdjacentTo(124)

  843.         

  844.         call Manifold%Valve(54)%AdjacentTo(69)

  845.         call Manifold%Valve(69)%AdjacentTo(54)

  846.                 

  847.         data%Equipments%DrillingConsole%IRSafetyValveLed = 1

  848.         call OpenSafetyValve_TripMode()

  849.         

  850. # 866

  851. 

  852.         

  853.     end subroutine

  854.     

  855.     subroutine RemoveSafetyValve_TripMode()

  856.         implicit none

  857.         Manifold%IsSafetyValveInstalled_TripMode = .false.

  858.         

  859.         call Manifold%Valve(124)%RemoveAdjacent(54)

  860.         call Manifold%Valve(54)%RemoveAdjacent(124)

  861.         

  862.         call Manifold%Valve(54)%RemoveAdjacent(69)

  863.         call Manifold%Valve(69)%RemoveAdjacent(54)

  864.         

  865.         call Manifold%Valve(124)%AdjacentTo(69)

  866.         call Manifold%Valve(69)%AdjacentTo(124)

  867.         

  868.         data%Equipments%DrillingConsole%IRSafetyValveLed = 0

  869.         call CloseSafetyValve_TripMode()

  870.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  871.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  872.         

  873. # 890

  874. 

  875.         

  876.     end subroutine

  877.     

  878.     subroutine OpenSafetyValve_TripMode()

  879.         implicit none

  880.         if(.not.Manifold%IsSafetyValveInstalled_TripMode) return

  881.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 1

  882.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  883.         Manifold%SafetyValve = .true.

  884.         call ChangeValve(54, Manifold%SafetyValve)

  885.         

  886. # 904

  887. 

  888.         

  889.     end subroutine

  890.     

  891.     subroutine CloseSafetyValve_TripMode()

  892.         implicit none

  893.         if(.not.Manifold%IsSafetyValveInstalled_TripMode) return

  894.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 1

  895.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  896.         Manifold%SafetyValve = .false.

  897.         call ChangeValve(54, Manifold%SafetyValve)

  898.         

  899. # 918

  900. 

  901.         

  902.     end subroutine

  903.     

  904.     

  905.     

  906.     

  907.     

  908.     

  909.     

  910.     

  911.     subroutine InstallSafetyValve_TopDrive()

  912.         implicit none

  913.         Manifold%IsSafetyValveInstalled_TopDrive = .true.

  914.         

  915.         call Manifold%Valve(128)%RemoveAdjacent(56)

  916.         call Manifold%Valve(56)%RemoveAdjacent(128)

  917.         

  918.         call Manifold%Valve(127)%RemoveAdjacent(56)

  919.         call Manifold%Valve(56)%RemoveAdjacent(127)

  920.         

  921.         call Manifold%Valve(69)%RemoveAdjacent(124)

  922.         call Manifold%Valve(124)%RemoveAdjacent(69)

  923.         

  924.         call Manifold%Valve(124)%AdjacentTo(54)

  925.         call Manifold%Valve(54)%AdjacentTo(124)

  926.         

  927.         call Manifold%Valve(54)%AdjacentTo(69)

  928.         call Manifold%Valve(69)%AdjacentTo(54)

  929.         

  930.         data%Equipments%DrillingConsole%IRSafetyValveLed = 1

  931.         call OpenSafetyValve_TopDrive()

  932.         

  933. # 953

  934. 

  935.         

  936.     end subroutine

  937.     

  938.     subroutine RemoveSafetyValve_TopDrive()

  939.         implicit none

  940.         Manifold%IsSafetyValveInstalled_TopDrive = .false.

  941.         

  942.         call Manifold%Valve(124)%RemoveAdjacent(54)

  943.         call Manifold%Valve(54)%RemoveAdjacent(124)

  944.         

  945.         call Manifold%Valve(54)%RemoveAdjacent(69)

  946.         call Manifold%Valve(69)%RemoveAdjacent(54)

  947.         

  948.         call Manifold%Valve(124)%AdjacentTo(69)

  949.         call Manifold%Valve(69)%AdjacentTo(124)

  950.         

  951.         data%Equipments%DrillingConsole%IRSafetyValveLed = 0

  952.         call CloseSafetyValve_TopDrive()

  953.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  954.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  955.         

  956. # 977

  957. 

  958.         

  959.     end subroutine

  960.     

  961.     subroutine OpenSafetyValve_TopDrive()

  962.         implicit none

  963.         if(.not.Manifold%IsSafetyValveInstalled_TopDrive) return

  964.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 1

  965.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  966.         Manifold%SafetyValve = .true.

  967.         

  968. # 990

  969. 

  970.         

  971.         call ChangeValve(54, Manifold%SafetyValve)

  972.     end subroutine

  973.     

  974.     subroutine CloseSafetyValve_TopDrive()

  975.         implicit none

  976.         if(.not.Manifold%IsSafetyValveInstalled_TopDrive) return

  977.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 1

  978.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  979.         Manifold%SafetyValve = .false.

  980.         

  981. # 1004

  982. 

  983.         

  984.         call ChangeValve(54, Manifold%SafetyValve)

  985.     end subroutine

  986.     

  987.     

  988.     

  989.     

  990.     

  991.     

  992.     

  993.     

  994.     

  995.     subroutine InstallIBop()

  996.         implicit none

  997.         Manifold%IsIBopInstalled = .true.

  998.         

  999.         call Manifold%Valve(103)%RemoveAdjacent(124)

  1000.         call Manifold%Valve(124)%RemoveAdjacent(103)

  1001.         

  1002.         call Manifold%Valve(55)%AdjacentTo(103)

  1003.         call Manifold%Valve(55)%AdjacentTo(124)

  1004.         

  1005.         call Manifold%Valve(103)%AdjacentTo(55)

  1006.         call Manifold%Valve(124)%AdjacentTo(55)

  1007.         

  1008. # 1032

  1009. 

  1010.         

  1011.         data%Equipments%DrillingConsole%IRIBopLed = 1

  1012.         call OpenIBop()

  1013.     end subroutine

  1014.     

  1015.     subroutine RemoveIBop()

  1016.         implicit none

  1017.         Manifold%IsIBopInstalled = .false.

  1018.         

  1019.         call Manifold%Valve(55)%RemoveAdjacent(103)

  1020.         call Manifold%Valve(55)%RemoveAdjacent(124)

  1021.         

  1022.         call Manifold%Valve(103)%RemoveAdjacent(55)

  1023.         call Manifold%Valve(124)%RemoveAdjacent(55)

  1024.         

  1025.         call Manifold%Valve(103)%AdjacentTo(124)

  1026.         call Manifold%Valve(124)%AdjacentTo(103)

  1027.         

  1028. # 1053

  1029. 

  1030.         

  1031.         data%Equipments%DrillingConsole%IRIBopLed = 0

  1032.         Manifold%IBop = .false.

  1033.         call ChangeValve(55, Manifold%IBop)

  1034.     end subroutine

  1035.     

  1036.     subroutine OpenIBop()

  1037.         implicit none

  1038.         if(.not.Manifold%IsIBopInstalled) return

  1039.         Manifold%IBop = .true.

  1040.         

  1041. # 1067

  1042. 

  1043.         

  1044.         call ChangeValve(55, Manifold%IBop)

  1045.     end subroutine

  1046.     

  1047.     subroutine CloseIBop()

  1048.         implicit none

  1049.         if(.not.Manifold%IsIBopInstalled) return

  1050.         Manifold%IBop = .false.

  1051.         

  1052. # 1079

  1053. 

  1054.         

  1055.         call ChangeValve(55, Manifold%IBop)

  1056.     end subroutine

  1057.     

  1058.     

  1059.     

  1060.     

  1061.     

  1062.     

  1063.     subroutine InstallKellyCock()

  1064.         implicit none

  1065.         Manifold%IsKellyCockInstalled = .true.

  1066.         

  1067.         call Manifold%Valve(125)%RemoveAdjacent(126)

  1068.         call Manifold%Valve(126)%RemoveAdjacent(125)

  1069.         

  1070.         call Manifold%Valve(125)%AdjacentTo(68)

  1071.         

  1072.         call Manifold%Valve(68)%AdjacentTo(125)

  1073.         call Manifold%Valve(68)%AdjacentTo(126)

  1074.         

  1075.         call Manifold%Valve(126)%AdjacentTo(68)

  1076.         

  1077. # 1105

  1078. 

  1079.         

  1080.         call OpenKellyCock()

  1081.     end subroutine

  1082.     

  1083.     subroutine RemoveKellyCock()

  1084.         implicit none

  1085.         Manifold%IsKellyCockInstalled = .false.

  1086.         

  1087.         call Manifold%Valve(125)%RemoveAdjacent(68)

  1088.         call Manifold%Valve(126)%RemoveAdjacent(68)

  1089.         

  1090.         call Manifold%Valve(68)%RemoveAdjacent(125)

  1091.         call Manifold%Valve(68)%RemoveAdjacent(126)

  1092.         

  1093.         call Manifold%Valve(125)%AdjacentTo(126)

  1094.         call Manifold%Valve(126)%AdjacentTo(125)

  1095.         

  1096.         Manifold%KellyCock = .false.

  1097.         call ChangeValve(68, Manifold%KellyCock)

  1098.         data%Equipments%DrillingConsole%CloseKellyCockLed = 0

  1099.         data%Equipments%DrillingConsole%OpenKellyCockLed = 0

  1100.         

  1101. # 1130

  1102. 

  1103.         

  1104.     end subroutine

  1105.     

  1106.     subroutine OpenKellyCock()

  1107.         implicit none

  1108.         if(.not.Manifold%IsKellyCockInstalled) return

  1109.         data%Equipments%DrillingConsole%OpenKellyCockLed = 1

  1110.         data%Equipments%DrillingConsole%CloseKellyCockLed = 0

  1111.         Manifold%KellyCock = .true.

  1112.         

  1113. # 1143

  1114. 

  1115.         

  1116.         call ChangeValve(68, Manifold%KellyCock)

  1117.     end subroutine

  1118.     

  1119.     subroutine CloseKellyCock()

  1120.         implicit none

  1121.         if(.not.Manifold%IsKellyCockInstalled) return

  1122.         data%Equipments%DrillingConsole%CloseKellyCockLed = 1

  1123.         data%Equipments%DrillingConsole%OpenKellyCockLed = 0

  1124.         Manifold%KellyCock = .false.

  1125. 

  1126. # 1157

  1127. 

  1128.         

  1129.         call ChangeValve(68, Manifold%KellyCock)

  1130.     end subroutine

  1131.     

  1132.     

  1133.     

  1134.     

  1135.     

  1136.     

  1137.     

  1138.     

  1139.     subroutine InstallTopDriveIBop()

  1140.         implicit none

  1141.         Manifold%IsTopDriveIBopInstalled = .true.

  1142.         

  1143.         call Manifold%Valve(126)%RemoveAdjacent(128)

  1144.         call Manifold%Valve(128)%RemoveAdjacent(126)

  1145.         

  1146.         

  1147.         call Manifold%Valve(126)%AdjacentTo(70)

  1148.         call Manifold%Valve(70)%AdjacentTo(126)

  1149.         

  1150.         call Manifold%Valve(128)%AdjacentTo(70)

  1151.         call Manifold%Valve(70)%AdjacentTo(128)

  1152.         

  1153. # 1185

  1154. 

  1155.         call OpenTopDriveIBop()

  1156.     end subroutine

  1157.     

  1158.     subroutine RemoveTopDriveIBop()

  1159.         implicit none

  1160.         Manifold%IsTopDriveIBopInstalled = .false.

  1161.         

  1162.         call Manifold%Valve(126)%RemoveAdjacent(70)

  1163.         call Manifold%Valve(70)%RemoveAdjacent(126)

  1164.         

  1165.         call Manifold%Valve(128)%RemoveAdjacent(70)

  1166.         call Manifold%Valve(70)%RemoveAdjacent(128)

  1167.         

  1168.         call Manifold%Valve(126)%AdjacentTo(128)

  1169.         call Manifold%Valve(128)%AdjacentTo(126)

  1170.         

  1171. # 1204

  1172. 

  1173.         Manifold%TopDriveIBop = .false.

  1174.         call ChangeValve(70, Manifold%TopDriveIBop)

  1175.     end subroutine

  1176.     

  1177.     subroutine OpenTopDriveIBop()

  1178.         implicit none

  1179.         if(.not.Manifold%IsTopDriveIBopInstalled) return

  1180.         Manifold%TopDriveIBop = .true.

  1181.         call ChangeValve(70, Manifold%TopDriveIBop)

  1182. # 1216

  1183. 

  1184.     end subroutine

  1185.     

  1186.     subroutine CloseTopDriveIBop()

  1187.         implicit none

  1188.         if(.not.Manifold%IsTopDriveIBopInstalled) return

  1189.         Manifold%TopDriveIBop = .false.

  1190.         call ChangeValve(70, Manifold%TopDriveIBop)

  1191. # 1226

  1192. 

  1193.     end subroutine

  1194.     

  1195.     

  1196.     

  1197.     

  1198.     

  1199.     

  1200.     

  1201.     

  1202.     

  1203.     subroutine InstallFloatValve()

  1204.         implicit none

  1205.         Manifold%IsFloatValveInstalled = .true.

  1206.         

  1207.         call Manifold%Valve(69)%RemoveAdjacent(79)

  1208.         call Manifold%Valve(79)%RemoveAdjacent(69)

  1209.         

  1210.         call Manifold%Valve(48)%AdjacentTo(69)

  1211.         call Manifold%Valve(48)%AdjacentTo(79)

  1212.         

  1213.         call Manifold%Valve(69)%AdjacentTo(48)

  1214.         call Manifold%Valve(79)%AdjacentTo(48)

  1215. # 1251

  1216. 

  1217.         call OpenFloatValve()

  1218.     end subroutine

  1219.     

  1220.     subroutine RemoveFloatValve()

  1221.         implicit none

  1222.         Manifold%IsFloatValveInstalled = .false.

  1223.         

  1224.         call Manifold%Valve(48)%RemoveAdjacent(69)

  1225.         call Manifold%Valve(48)%RemoveAdjacent(79)

  1226.         

  1227.         call Manifold%Valve(69)%RemoveAdjacent(48)

  1228.         call Manifold%Valve(79)%RemoveAdjacent(48)

  1229.         

  1230.         call Manifold%Valve(69)%AdjacentTo(79)

  1231.         call Manifold%Valve(79)%AdjacentTo(69)

  1232. # 1269

  1233. 

  1234.         Manifold%FloatValve = .false.

  1235.         call ChangeValve(48, Manifold%FloatValve)

  1236.     end subroutine

  1237.     

  1238.     subroutine OpenFloatValve()

  1239.         implicit none

  1240.         if(.not.Manifold%IsFloatValveInstalled) return

  1241.         Manifold%FloatValve = .true.

  1242. # 1280

  1243. 

  1244.         call ChangeValve(48, Manifold%FloatValve)

  1245.     end subroutine

  1246.     

  1247.     subroutine CloseFloatValve()

  1248.         implicit none

  1249.         if(.not.Manifold%IsFloatValveInstalled) return

  1250.         Manifold%FloatValve = .false.

  1251. # 1290

  1252. 

  1253.         call ChangeValve(48, Manifold%FloatValve)

  1254.     end subroutine

  1255.     

  1256.     

  1257.     

  1258.     

  1259.     

  1260.     

  1261.     

  1262.     subroutine ToggleFillupHead(v)

  1263.         implicit none

  1264.         logical, intent(in) :: v

  1265.         if(v) then

  1266.             call Manifold%Valve(14)%RemoveAdjacent(78)

  1267.             

  1268.             call Manifold%Valve(14)%AdjacentTo(57)

  1269.             call Manifold%Valve(57)%AdjacentTo(14)

  1270.             call Manifold%Valve(57)%AdjacentTo(103)

  1271.             call Manifold%Valve(103)%AdjacentTo(57)

  1272.             

  1273.         else

  1274.             call Manifold%Valve(14)%RemoveAdjacent(57)

  1275.             call Manifold%Valve(57)%RemoveAdjacent(14)

  1276.             call Manifold%Valve(57)%RemoveAdjacent(103)

  1277.             call Manifold%Valve(103)%RemoveAdjacent(57)

  1278.             

  1279.             call Manifold%Valve(14)%AdjacentTo(78)

  1280.         endif

  1281.         Manifold%IsPathsDirty = .true.

  1282.         call ChangeValve(57, .true.)

  1283.     end subroutine

  1284.     

  1285.     subroutine ToggleMudBox(v)

  1286.         implicit none

  1287.         logical, intent(in) :: v

  1288.         call ChangeValve(53, v)

  1289.     end subroutine   

  1290.     

  1291.     

  1292.     

  1293.     

  1294.     

  1295.     

  1296.     

  1297.     

  1298.     

  1299.     subroutine ToggleMiddleRams(v)

  1300.         implicit none

  1301.         logical, intent(in) :: v

  1302.         Manifold%Valve(50)%Status = v

  1303.         call ChangeValve(69, v)

  1304.     end subroutine

  1305.     

  1306.     

  1307.     

  1308.     

  1309.     

  1310.     

  1311.     

  1312.     

  1313.     subroutine ChangeValve(i, state)

  1314.         implicit none

  1315.         integer, intent(in) :: i

  1316.         logical, intent(in) :: state

  1317.         

  1318.         if(Manifold%Valve(i)%Status==state) return

  1319.         Manifold%Valve(i)%Status = state

  1320.         if(i == 41 .or. i == 42) then

  1321.             if(Manifold%Valve(41)%Status == .false. .and. Manifold%Valve(42)%Status == .false.) then

  1322.                 Manifold%Valve(60)%Status = .true.

  1323.             else

  1324.                 Manifold%Valve(60)%Status = .false.

  1325.             endif

  1326.         endif

  1327. # 1367

  1328. 

  1329. !call Traverse()

  1330.         Manifold%IsPathsDirty = .true.

  1331.     end subroutine

  1332.     

  1333.     

  1334.     

  1335.     

  1336.         

  1337.     subroutine DisplayOpenPaths()

  1338.         implicit none

  1339.         integer :: i

  1340.         if(allocated(Manifold%OpenPaths)) then

  1341.             do i = 1, size(Manifold%OpenPaths)

  1342.                 call Manifold%OpenPaths(i)%Display()

  1343.             end do

  1344.         end if

  1345.     end subroutine

  1346.     

  1347.     subroutine DisplayOpenPathsWrite()

  1348.         implicit none

  1349.         integer :: i

  1350.         if(allocated(Manifold%OpenPaths)) then

  1351.             do i = 1, size(Manifold%OpenPaths)

  1352.                 call Manifold%OpenPaths(i)%DisplayWrite()

  1353.             end do

  1354.         end if

  1355.     end subroutine

  1356.     

  1357. end module CManifolds