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.
64 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: dbb110d1b9
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'dbb110d1b9'
${ noResults }
SimulationCore2/CSharp/Equipments/MudPathFinding/CManifolds.i90

1355 lines
38 KiB
Raw Blame History 

  1. # 1 "/home/admin/SimulationCore2/CSharp/Equipments/MudPathFinding/CManifolds.f90"

  2. module CManifolds

  3.     use CStack

  4.     use CArrangement

  5.     use SimulationVariables

  6.     

  7.     implicit none  

  8.     

  9.     public    

  10.     integer, parameter :: ValveCount = 128

  11.     integer, parameter :: MinSource = 71  

  12.     integer, parameter :: MaxSource = 90  

  13.     integer, parameter :: MinRelation = 91  

  14.     integer, parameter :: MaxRelation = 128

  15. 

  16.     Type::ManifoldType

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

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

  19.         type(Stack) :: Fringe

  20.         logical :: IsRepititveOutput

  21.         

  22.         logical :: IsSafetyValveInstalled

  23.         logical :: IsSafetyValveInstalled_KellyMode

  24.         logical :: IsSafetyValveInstalled_TripMode

  25.         logical :: IsSafetyValveInstalled_TopDrive

  26.         logical :: SafetyValve

  27.         logical :: IsIBopInstalled

  28.         logical :: IBop

  29.         logical :: IsKellyCockInstalled

  30.         logical :: KellyCock

  31.         logical :: IsTopDriveIBopInstalled

  32.         logical :: TopDriveIBop

  33.         logical :: IsFloatValveInstalled

  34.         logical :: FloatValve

  35.         logical :: IsPathsDirty = .false.

  36.         logical :: IsTraverse = .false.

  37.     End type ManifoldType

  38.     type(ManifoldType)::Manifold

  39.     contains    

  40.     

  41.     subroutine PathFinding_Setup()

  42. ! use CSimulationVariables

  43.         implicit none

  44. 		Manifold%IsTraverse = .false.

  45.         call Setup()

  46. !call OnSimulationInitialization%Add(PathFinding_Init)

  47. !call OnSimulationStop%Add(PathFinding_Init)

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

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

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

  51.     end subroutine

  52.     

  53.     subroutine PathFinding_Init

  54.         implicit none

  55. 		Manifold%IsTraverse = .false.

  56.         call Setup()

  57.     end subroutine PathFinding_Init

  58.     

  59.     subroutine PathFinding_Step

  60.         if (Manifold%IsPathsDirty) then

  61.             Manifold%IsPathsDirty = .false.

  62.             call Traverse()

  63.         endif

  64. end subroutine PathFinding_Step

  65.     

  66. ! subroutine PathFinding_Output

  67. !     implicit none

  68. ! end subroutine PathFinding_Output

  69.     

  70. ! subroutine PathFindingMainBody

  71. !     ! use CSimulationVariables

  72. !     implicit none

  73. !     loop : do

  74. !         if(IsStopped) call Quit()

  75. !         call sleepqq(50)

  76. !         if (Manifold%IsPathsDirty) then

  77. !             Manifold%IsPathsDirty = .false.

  78. !             call Traverse()

  79. !         endif

  80. !     end do loop

  81. ! end subroutine PathFindingMainBody

  82.     

  83.     subroutine Traverse()

  84.         use CLog5

  85.         implicit none

  86.         integer :: i, Duration

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

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

  89.         

  90. !**call BeforeTraverse%RunAll()

  91.         

  92.         

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

  94.         do i=MinSource, MaxSource 

  95.             if(IsValveOpen(i)) then

  96.                 call AddRootNode(i)

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

  98.             endif

  99.         enddo

  100.         

  101.         call PostProcess(Manifold%OpenPaths)

  102.         

  103. !**call AfterTraverse%RunAll()

  104. 		

  105.         Manifold%IsTraverse = .true.

  106. 		

  107. !TODO: clean up

  108. # 115

  109. 

  110.         

  111.     endsubroutine

  112.     

  113.     subroutine PostProcess(pathArr)

  114.         implicit none

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

  116.         integer :: i

  117.         

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

  119.         

  120.         i = 1

  121.         do

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

  123.             

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

  125.                 call RemovePath(pathArr, i)

  126.             else

  127.                 i = i + 1

  128.             endif

  129.             

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

  131.         enddo

  132.         

  133.     end subroutine

  134.         

  135.     subroutine AddRootNode(valve)

  136.         implicit none

  137.         integer, intent(in) :: valve

  138.         call Manifold%Fringe%Push(valve)

  139.     end subroutine

  140.     

  141.     recursive subroutine AddChildren(node)

  142.         implicit none

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

  144.         integer :: i,t 

  145.         

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

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

  148.             

  149.             if(IsValveOpen(t)) then

  150.                 

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

  152.                 

  153.                 call Manifold%Fringe%Push(t)

  154.                 

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

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

  157.                     call Manifold%Fringe%Pop()

  158.                     cycle

  159.                 endif

  160.                 

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

  162.                 

  163.             end if

  164.         enddo

  165.         call Manifold%Fringe%Pop()

  166.     end subroutine

  167.     

  168.     logical function IsValveOpen(no)

  169.         implicit none

  170.         integer, intent(in) :: no

  171.         

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

  173.         

  174.     end function

  175.     

  176.     subroutine AddPath(pathArr, p)

  177.         implicit none

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

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

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

  181.         integer :: i, isize

  182.         

  183.         if(p%IsNull()) return

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

  185.         

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

  187.         

  188.         if(allocated(pathArr)) then

  189.             isize = size(pathArr)

  190.             

  191.             

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

  193.             do i=1,isize          

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

  195. ! if there is then

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

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

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

  199.                         return

  200.                     else

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

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

  203.                         return

  204.                     endif

  205.                     

  206.                 endif

  207.             end do

  208.             

  209.             

  210.             

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

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

  213.             

  214.             

  215.             

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

  217.             allocate(tempArr(isize+1))

  218.             do i=1,isize          

  219.                 tempArr(i) = pathArr(i)

  220.             end do

  221.             tempArr(isize+1) = p

  222.             deallocate(pathArr)

  223.             call move_alloc(tempArr, pathArr)

  224.         else

  225.             allocate(pathArr(1))

  226.             pathArr(1) = p

  227.         end if

  228.         

  229.     endsubroutine

  230.     

  231.     subroutine RemovePath(pathArr, index)

  232.         implicit none

  233.         integer, intent(in) :: index

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

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

  236.         integer :: i

  237.         logical :: found

  238.         

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

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

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

  242.         found = .false.

  243.         do i=1, size(pathArr)

  244.             if(i==index) then

  245.                 found = .true.

  246.                 cycle

  247.             end if

  248.             if(found) then

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

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

  251.             else 

  252.                 tempArr(i) = pathArr(i)

  253.             endif

  254.         end do

  255.         deallocate(pathArr)

  256.         call move_alloc(tempArr, pathArr)

  257.         

  258.     endsubroutine

  259.     

  260.     subroutine Setup()

  261.         implicit none

  262.         integer :: i

  263.         

  264. ! initialize all valves

  265.         do i = 1, ValveCount

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

  267.         end do

  268.         

  269. ! open source valves

  270.         do i = MinSource , MaxSource

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

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

  273.         end do

  274.         

  275.         do i = MinRelation , MaxRelation

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

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

  278.         end do

  279.         

  280.         

  281.         

  282. ! make adjustments

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

  284.         

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

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

  287.         

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

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

  290.         

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

  292.         

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

  294.         

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

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

  297.         

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

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

  300.         

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

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

  303.         

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

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

  306.         

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

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

  309.         

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

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

  312.         

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

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

  315.         

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

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

  318.         

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

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

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

  322.         

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

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

  325.         

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

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

  328.         

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

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

  331.         

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

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

  334.         

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

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

  337.         

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

  339.         

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

  341.         

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

  343.         

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

  345.         

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

  347.         

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

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

  350.         

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

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

  353.         

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

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

  356.         

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

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

  359.         

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

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

  362.         

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

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

  365.         

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

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

  368.         

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

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

  371.         

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

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

  374.         

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

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

  377.         

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

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

  380.         

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

  382.         

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

  384.         

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

  386.         

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

  388.         

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

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

  391.         

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

  393.         

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

  395.         

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

  397.         

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

  399.         

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

  401.         

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

  403.         

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

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

  406.         

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

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

  409.         

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

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

  412.         

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

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

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

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

  417.         

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

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

  420.         

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

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

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

  424.         

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

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

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

  428.         

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

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

  431.         

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

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

  434.         

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

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

  437.         

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

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

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

  441.         

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

  443.         

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

  445.         

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

  447.         

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

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

  450.         

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

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

  453.         

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

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

  456.         

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

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

  459.         

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

  461.         

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

  463.         

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

  465.         

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

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

  468.         

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

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

  471.         

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

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

  474.         

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

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

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

  478.         

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

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

  481.         

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

  483.         

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

  485.         

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

  487.         

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

  489.         

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

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

  492.         

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

  494.         

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

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

  497.         

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

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

  500.         

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

  502.         

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

  504.         

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

  506.         

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

  508.         

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

  510.         

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

  512.         

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

  514.         

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

  516.         

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

  518.         

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

  520.         

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

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

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

  524.         

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

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

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

  528.         

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

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

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

  532.         

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

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

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

  536.         

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

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

  539.         

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

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

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

  543.         

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

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

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

  547.         

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

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

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

  551.         

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

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

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

  555.         

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

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

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

  559.         

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

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

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

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

  564.         

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

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

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

  568.         

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

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

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

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

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

  574.         

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

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

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

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

  579.         

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

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

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

  583.         

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

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

  586.         

  587.         

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

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

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

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

  592.         

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

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

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

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

  597.         

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

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

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

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

  602.         

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

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

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

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

  607.         

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

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

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

  611.         

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

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

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

  615.         

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

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

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

  619.         

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

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

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

  623.         

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

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

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

  627.         

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

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

  630.         

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

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

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

  634.         

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

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

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

  638.         

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

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

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

  642.         

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

  644.         

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

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

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

  648.         

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

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

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

  652.         

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

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

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

  656.         

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

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

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

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

  661.         

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

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

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

  665.         

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

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

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

  669.         

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

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

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

  673.         

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

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

  676.         

  677.         

  678. ! initialization

  679.         call ChangeValve(60, .true.)

  680.         call RemoveIBop()

  681.         call ToggleFillupHead(.false.)

  682.         call ToggleMudBox(.false.)

  683.         call RemoveTopDriveIBop()

  684.         call InstallSafetyValve_KellyMode()

  685.         call KellyDisconnected()

  686.     end subroutine

  687.     

  688.     

  689.     

  690.     subroutine KellyConnected()

  691. !use CLog3

  692.         implicit none

  693.         

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

  695.         

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

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

  698.         

  699. # 708

  700. 

  701.         Manifold%IsPathsDirty = .true.

  702.     end subroutine

  703.     

  704.     subroutine KellyDisconnected()

  705. !use CLog3

  706.         implicit none

  707.         

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

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

  710.         

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

  712.         

  713. # 724

  714. 

  715. 

  716.         Manifold%IsPathsDirty = .true.

  717.         

  718.     end subroutine

  719.     

  720.     

  721.     

  722.     

  723.     

  724.     

  725.     

  726.     

  727.     

  728.     subroutine InstallSafetyValve_KellyMode()

  729.         implicit none

  730.         Manifold%IsSafetyValveInstalled_KellyMode = .true.

  731.         

  732.         call RemoveTopDriveIBop()

  733.         

  734. ! Remove Safey Valve (54)

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

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

  737.         

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

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

  740.         

  741. ! Remove 126-103 cnn

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

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

  744.                 

  745. ! now make cnn

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

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

  748.         

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

  750.         

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

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

  753.         

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

  755.         

  756. # 768

  757. 

  758.         

  759.         data%Equipments%DrillingConsole%IRSafetyValveLed = 1

  760.         call OpenSafetyValve_KellyMode()

  761.     end subroutine

  762.     

  763.     subroutine RemoveSafetyValve_KellyMode()

  764.         implicit none

  765.         Manifold%IsSafetyValveInstalled_KellyMode = .false.

  766.         

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

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

  769.         

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

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

  772.         

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

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

  775.         

  776.         data%Equipments%DrillingConsole%IRSafetyValveLed = 0

  777.         call CloseSafetyValve_KellyMode()

  778.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  779.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  780.         

  781. # 794

  782. 

  783.         

  784.     end subroutine

  785.     

  786.     subroutine OpenSafetyValve_KellyMode()

  787.         implicit none

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

  789.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 1

  790.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  791.         Manifold%SafetyValve = .true.

  792.         call ChangeValve(56, Manifold%SafetyValve)

  793.         

  794. # 808

  795. 

  796.         

  797.     end subroutine

  798.     

  799.     subroutine CloseSafetyValve_KellyMode()

  800.         implicit none

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

  802.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 1

  803.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  804.         Manifold%SafetyValve = .false.

  805.         call ChangeValve(56, Manifold%SafetyValve)

  806.         

  807. # 822

  808. 

  809.         

  810.     end subroutine

  811.     

  812.     

  813.     

  814.     

  815.     

  816.     

  817.     

  818.     

  819.     

  820.     

  821.     subroutine InstallSafetyValve_TripMode()

  822.         implicit none

  823.         Manifold%IsSafetyValveInstalled_TripMode = .true.

  824.         

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

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

  827.         

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

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

  830.         

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

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

  833.         

  834.         

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

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

  837.         

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

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

  840.         

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

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

  843.                 

  844.         data%Equipments%DrillingConsole%IRSafetyValveLed = 1

  845.         call OpenSafetyValve_TripMode()

  846.         

  847. # 863

  848. 

  849.         

  850.     end subroutine

  851.     

  852.     subroutine RemoveSafetyValve_TripMode()

  853.         implicit none

  854.         Manifold%IsSafetyValveInstalled_TripMode = .false.

  855.         

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

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

  858.         

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

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

  861.         

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

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

  864.         

  865.         data%Equipments%DrillingConsole%IRSafetyValveLed = 0

  866.         call CloseSafetyValve_TripMode()

  867.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  868.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  869.         

  870. # 887

  871. 

  872.         

  873.     end subroutine

  874.     

  875.     subroutine OpenSafetyValve_TripMode()

  876.         implicit none

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

  878.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 1

  879.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  880.         Manifold%SafetyValve = .true.

  881.         call ChangeValve(54, Manifold%SafetyValve)

  882.         

  883. # 901

  884. 

  885.         

  886.     end subroutine

  887.     

  888.     subroutine CloseSafetyValve_TripMode()

  889.         implicit none

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

  891.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 1

  892.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  893.         Manifold%SafetyValve = .false.

  894.         call ChangeValve(54, Manifold%SafetyValve)

  895.         

  896. # 915

  897. 

  898.         

  899.     end subroutine

  900.     

  901.     

  902.     

  903.     

  904.     

  905.     

  906.     

  907.     

  908.     subroutine InstallSafetyValve_TopDrive()

  909.         implicit none

  910.         Manifold%IsSafetyValveInstalled_TopDrive = .true.

  911.         

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

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

  914.         

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

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

  917.         

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

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

  920.         

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

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

  923.         

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

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

  926.         

  927.         data%Equipments%DrillingConsole%IRSafetyValveLed = 1

  928.         call OpenSafetyValve_TopDrive()

  929.         

  930. # 950

  931. 

  932.         

  933.     end subroutine

  934.     

  935.     subroutine RemoveSafetyValve_TopDrive()

  936.         implicit none

  937.         Manifold%IsSafetyValveInstalled_TopDrive = .false.

  938.         

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

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

  941.         

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

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

  944.         

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

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

  947.         

  948.         data%Equipments%DrillingConsole%IRSafetyValveLed = 0

  949.         call CloseSafetyValve_TopDrive()

  950.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  951.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  952.         

  953. # 974

  954. 

  955.         

  956.     end subroutine

  957.     

  958.     subroutine OpenSafetyValve_TopDrive()

  959.         implicit none

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

  961.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 1

  962.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 0

  963.         Manifold%SafetyValve = .true.

  964.         

  965. # 987

  966. 

  967.         

  968.         call ChangeValve(54, Manifold%SafetyValve)

  969.     end subroutine

  970.     

  971.     subroutine CloseSafetyValve_TopDrive()

  972.         implicit none

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

  974.         data%Equipments%DrillingConsole%CloseSafetyValveLed = 1

  975.         data%Equipments%DrillingConsole%OpenSafetyValveLed = 0

  976.         Manifold%SafetyValve = .false.

  977.         

  978. # 1001

  979. 

  980.         

  981.         call ChangeValve(54, Manifold%SafetyValve)

  982.     end subroutine

  983.     

  984.     

  985.     

  986.     

  987.     

  988.     

  989.     

  990.     

  991.     

  992.     subroutine InstallIBop()

  993.         implicit none

  994.         Manifold%IsIBopInstalled = .true.

  995.         

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

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

  998.         

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

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

  1001.         

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

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

  1004.         

  1005. # 1029

  1006. 

  1007.         

  1008.         data%Equipments%DrillingConsole%IRIBopLed = 1

  1009.         call OpenIBop()

  1010.     end subroutine

  1011.     

  1012.     subroutine RemoveIBop()

  1013.         implicit none

  1014.         Manifold%IsIBopInstalled = .false.

  1015.         

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

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

  1018.         

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

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

  1021.         

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

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

  1024.         

  1025. # 1050

  1026. 

  1027.         

  1028.         data%Equipments%DrillingConsole%IRIBopLed = 0

  1029.         Manifold%IBop = .false.

  1030.         call ChangeValve(55, Manifold%IBop)

  1031.     end subroutine

  1032.     

  1033.     subroutine OpenIBop()

  1034.         implicit none

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

  1036.         Manifold%IBop = .true.

  1037.         

  1038. # 1064

  1039. 

  1040.         

  1041.         call ChangeValve(55, Manifold%IBop)

  1042.     end subroutine

  1043.     

  1044.     subroutine CloseIBop()

  1045.         implicit none

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

  1047.         Manifold%IBop = .false.

  1048.         

  1049. # 1076

  1050. 

  1051.         

  1052.         call ChangeValve(55, Manifold%IBop)

  1053.     end subroutine

  1054.     

  1055.     

  1056.     

  1057.     

  1058.     

  1059.     

  1060.     subroutine InstallKellyCock()

  1061.         implicit none

  1062.         Manifold%IsKellyCockInstalled = .true.

  1063.         

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

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

  1066.         

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

  1068.         

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

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

  1071.         

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

  1073.         

  1074. # 1102

  1075. 

  1076.         

  1077.         call OpenKellyCock()

  1078.     end subroutine

  1079.     

  1080.     subroutine RemoveKellyCock()

  1081.         implicit none

  1082.         Manifold%IsKellyCockInstalled = .false.

  1083.         

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

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

  1086.         

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

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

  1089.         

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

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

  1092.         

  1093.         Manifold%KellyCock = .false.

  1094.         call ChangeValve(68, Manifold%KellyCock)

  1095.         data%Equipments%DrillingConsole%CloseKellyCockLed = 0

  1096.         data%Equipments%DrillingConsole%OpenKellyCockLed = 0

  1097.         

  1098. # 1127

  1099. 

  1100.         

  1101.     end subroutine

  1102.     

  1103.     subroutine OpenKellyCock()

  1104.         implicit none

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

  1106.         data%Equipments%DrillingConsole%OpenKellyCockLed = 1

  1107.         data%Equipments%DrillingConsole%CloseKellyCockLed = 0

  1108.         Manifold%KellyCock = .true.

  1109.         

  1110. # 1140

  1111. 

  1112.         

  1113.         call ChangeValve(68, Manifold%KellyCock)

  1114.     end subroutine

  1115.     

  1116.     subroutine CloseKellyCock()

  1117.         implicit none

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

  1119.         data%Equipments%DrillingConsole%CloseKellyCockLed = 1

  1120.         data%Equipments%DrillingConsole%OpenKellyCockLed = 0

  1121.         Manifold%KellyCock = .false.

  1122. 

  1123. # 1154

  1124. 

  1125.         

  1126.         call ChangeValve(68, Manifold%KellyCock)

  1127.     end subroutine

  1128.     

  1129.     

  1130.     

  1131.     

  1132.     

  1133.     

  1134.     

  1135.     

  1136.     subroutine InstallTopDriveIBop()

  1137.         implicit none

  1138.         Manifold%IsTopDriveIBopInstalled = .true.

  1139.         

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

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

  1142.         

  1143.         

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

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

  1146.         

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

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

  1149.         

  1150. # 1182

  1151. 

  1152.         call OpenTopDriveIBop()

  1153.     end subroutine

  1154.     

  1155.     subroutine RemoveTopDriveIBop()

  1156.         implicit none

  1157.         Manifold%IsTopDriveIBopInstalled = .false.

  1158.         

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

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

  1161.         

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

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

  1164.         

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

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

  1167.         

  1168. # 1201

  1169. 

  1170.         Manifold%TopDriveIBop = .false.

  1171.         call ChangeValve(70, Manifold%TopDriveIBop)

  1172.     end subroutine

  1173.     

  1174.     subroutine OpenTopDriveIBop()

  1175.         implicit none

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

  1177.         Manifold%TopDriveIBop = .true.

  1178.         call ChangeValve(70, Manifold%TopDriveIBop)

  1179. # 1213

  1180. 

  1181.     end subroutine

  1182.     

  1183.     subroutine CloseTopDriveIBop()

  1184.         implicit none

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

  1186.         Manifold%TopDriveIBop = .false.

  1187.         call ChangeValve(70, Manifold%TopDriveIBop)

  1188. # 1223

  1189. 

  1190.     end subroutine

  1191.     

  1192.     

  1193.     

  1194.     

  1195.     

  1196.     

  1197.     

  1198.     

  1199.     

  1200.     subroutine InstallFloatValve()

  1201.         implicit none

  1202.         Manifold%IsFloatValveInstalled = .true.

  1203.         

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

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

  1206.         

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

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

  1209.         

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

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

  1212. # 1248

  1213. 

  1214.         call OpenFloatValve()

  1215.     end subroutine

  1216.     

  1217.     subroutine RemoveFloatValve()

  1218.         implicit none

  1219.         Manifold%IsFloatValveInstalled = .false.

  1220.         

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

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

  1223.         

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

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

  1226.         

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

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

  1229. # 1266

  1230. 

  1231.         Manifold%FloatValve = .false.

  1232.         call ChangeValve(48, Manifold%FloatValve)

  1233.     end subroutine

  1234.     

  1235.     subroutine OpenFloatValve()

  1236.         implicit none

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

  1238.         Manifold%FloatValve = .true.

  1239. # 1277

  1240. 

  1241.         call ChangeValve(48, Manifold%FloatValve)

  1242.     end subroutine

  1243.     

  1244.     subroutine CloseFloatValve()

  1245.         implicit none

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

  1247.         Manifold%FloatValve = .false.

  1248. # 1287

  1249. 

  1250.         call ChangeValve(48, Manifold%FloatValve)

  1251.     end subroutine

  1252.     

  1253.     

  1254.     

  1255.     

  1256.     

  1257.     

  1258.     

  1259.     subroutine ToggleFillupHead(v)

  1260.         implicit none

  1261.         logical, intent(in) :: v

  1262.         if(v) then

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

  1264.             

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

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

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

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

  1269.             

  1270.         else

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

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

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

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

  1275.             

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

  1277.         endif

  1278.         Manifold%IsPathsDirty = .true.

  1279.         call ChangeValve(57, .true.)

  1280.     end subroutine

  1281.     

  1282.     subroutine ToggleMudBox(v)

  1283.         implicit none

  1284.         logical, intent(in) :: v

  1285.         call ChangeValve(53, v)

  1286.     end subroutine   

  1287.     

  1288.     

  1289.     

  1290.     

  1291.     

  1292.     

  1293.     

  1294.     

  1295.     

  1296.     subroutine ToggleMiddleRams(v)

  1297.         implicit none

  1298.         logical, intent(in) :: v

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

  1300.         call ChangeValve(69, v)

  1301.     end subroutine

  1302.     

  1303.     

  1304.     

  1305.     

  1306.     

  1307.     

  1308.     

  1309.     

  1310.     subroutine ChangeValve(i, state)

  1311.         implicit none

  1312.         integer, intent(in) :: i

  1313.         logical, intent(in) :: state

  1314.         

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

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

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

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

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

  1320.             else

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

  1322.             endif

  1323.         endif

  1324. # 1364

  1325. 

  1326. !call Traverse()

  1327.         Manifold%IsPathsDirty = .true.

  1328.     end subroutine

  1329.     

  1330.     

  1331.     

  1332.     

  1333.         

  1334.     subroutine DisplayOpenPaths()

  1335.         implicit none

  1336.         integer :: i

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

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

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

  1340.             end do

  1341.         end if

  1342.     end subroutine

  1343.     

  1344.     subroutine DisplayOpenPathsWrite()

  1345.         implicit none

  1346.         integer :: i

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

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

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

  1350.             end do

  1351.         end if

  1352.     end subroutine

  1353.     

  1354. end module CManifolds