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

1389 lines
36 KiB
Raw Blame History 

  1. module CManifolds

  2.     use CStack

  3.     use CArrangement

  4.     use CPathChangeEvents

  5.     use CDrillingConsoleVariables, only: IRSafetyValveLed, IRIBopLed, OpenKellyCockLed, CloseKellyCockLed, OpenSafetyValveLed, CloseSafetyValveLed

  6.     implicit none  

  7.     

  8.     public    

  9.     integer, parameter :: ValveCount = 128

  10.     integer, parameter :: MinSource = 71  

  11.     integer, parameter :: MaxSource = 90  

  12.     integer, parameter :: MinRelation = 91  

  13.     integer, parameter :: MaxRelation = 128  

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

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

  16.     type(Stack) :: Fringe

  17.     logical :: IsRepititveOutput

  18.     

  19.     logical :: IsSafetyValveInstalled

  20.     logical :: IsSafetyValveInstalled_KellyMode

  21.     logical :: IsSafetyValveInstalled_TripMode

  22.     logical :: IsSafetyValveInstalled_TopDrive

  23.     logical :: SafetyValve

  24.     logical :: IsIBopInstalled

  25.     logical :: IBop

  26.     logical :: IsKellyCockInstalled

  27.     logical :: KellyCock

  28.     logical :: IsTopDriveIBopInstalled

  29.     logical :: TopDriveIBop

  30.     logical :: IsFloatValveInstalled

  31.     logical :: FloatValve

  32.     

  33.     logical :: IsPathsDirty = .false.

  34.     

  35. 	logical :: IsTraverse = .false.

  36.     

  37.     contains    

  38.     

  39.     subroutine PathFinding_Setup()

  40.         use CSimulationVariables

  41.         implicit none

  42. 		IsTraverse = .false.

  43.         call Setup()

  44.         !call OnSimulationInitialization%Add(PathFinding_Init)

  45.         !call OnSimulationStop%Add(PathFinding_Init)

  46.         !call OnPathFindingStep%Add(PathFinding_Step)

  47.         !call OnPathFindingOutput%Add(PathFinding_Output)

  48.         call OnPathFindingMain%Add(PathFindingMainBody)

  49.     end subroutine

  50.     

  51.     subroutine PathFinding_Init

  52.         implicit none

  53. 		IsTraverse = .false.

  54.         call Setup()

  55.     end subroutine PathFinding_Init

  56.     

  57.     subroutine PathFinding_Step

  58.         implicit none

  59.     end subroutine PathFinding_Step

  60.     

  61.     subroutine PathFinding_Output

  62.         implicit none

  63.     end subroutine PathFinding_Output

  64.     

  65.     subroutine PathFindingMainBody

  66.         use CSimulationVariables

  67.         implicit none

  68.         loop : do

  69.             if(IsStopped) call Quit() 

  70.             call sleepqq(50) 

  71.             if (IsPathsDirty) then

  72.                 IsPathsDirty = .false.

  73.                 call Traverse()

  74.             endif

  75.         end do loop 

  76.     end subroutine PathFindingMainBody

  77.     

  78.     subroutine Traverse()

  79.         use CLog5

  80.         implicit none

  81.         integer :: i, Duration

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

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

  84.         

  85.         call BeforeTraverse%RunAll()

  86.         

  87.         

  88.         if(allocated(OpenPaths)) deallocate(OpenPaths)

  89.         do i=MinSource, MaxSource 

  90.             if(IsValveOpen(i)) then

  91.                 call AddRootNode(i)

  92.                 call AddChildren(Valve(i))

  93.             endif

  94.         enddo

  95.         

  96.         call PostProcess(OpenPaths)

  97.         

  98.         call AfterTraverse%RunAll()

  99. 		

  100.         IsTraverse = .true.

  101. 		

  102.         !TODO: clean up

  103. #ifdef Log5

  104.         CALL DATE_AND_TIME(values=EndTime)

  105.         Duration= EndTime(8) - StartTime(8)

  106.         !print*, 'Duration= ', Duration, 'ms'

  107.         call Log_5('Duration= ', Duration)

  108.         call DisplayOpenPaths()

  109.         

  110.         call Log_5('==========================================')

  111. #endif

  112.         

  113.     endsubroutine

  114.     

  115.     subroutine PostProcess(pathArr)

  116.         implicit none

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

  118.         integer :: i

  119.         

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

  121.         

  122.         i = 1

  123.         do

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

  125.             

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

  127.                 call RemovePath(pathArr, i)

  128.             else

  129.                 i = i + 1

  130.             endif

  131.             

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

  133.         enddo

  134.         

  135.     end subroutine

  136.         

  137.     subroutine AddRootNode(valve)

  138.         implicit none

  139.         integer, intent(in) :: valve

  140.         call Fringe%Push(valve)

  141.     end subroutine

  142.     

  143.     recursive subroutine AddChildren(node)

  144.         implicit none

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

  146.         integer :: i,t 

  147.         

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

  149.             t = Valve(node%Number)%Adjacent(i)

  150.             

  151.             if(IsValveOpen(t)) then

  152.                 

  153.                 if(Fringe%DoesHave(t)) cycle

  154.                 

  155.                 call Fringe%Push(t)

  156.                 

  157.                 if(Valve(t)%IsSource()) then

  158.                     call AddPath(OpenPaths, Fringe%List)

  159.                     call Fringe%Pop()

  160.                     cycle

  161.                 endif

  162.                 

  163.                 call AddChildren(Valve(node%Adjacent(i)))

  164.                 

  165.             end if

  166.         enddo

  167.         call Fringe%Pop()

  168.     end subroutine

  169.     

  170.     logical function IsValveOpen(no)

  171.         implicit none

  172.         integer, intent(in) :: no

  173.         

  174.         IsValveOpen = Valve(no)%Status

  175.         

  176.     end function

  177.     

  178.     subroutine AddPath(pathArr, p)

  179.         implicit none

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

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

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

  183.         integer :: i, isize

  184.         

  185.         if(p%IsNull()) return

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

  187.         

  188.         call OnPathOpen%RunAll(p%Valves)

  189.         

  190.         if(allocated(pathArr)) then

  191.             isize = size(pathArr)

  192.             

  193.             

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

  195.             do i=1,isize          

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

  197.                     ! if there is then

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

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

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

  201.                         return

  202.                     else

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

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

  205.                         return

  206.                     endif

  207.                     

  208.                 endif

  209.             end do

  210.             

  211.             

  212.             

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

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

  215.             

  216.             

  217.             

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

  219.             allocate(tempArr(isize+1))

  220.             do i=1,isize          

  221.                 tempArr(i) = pathArr(i)

  222.             end do

  223.             tempArr(isize+1) = p

  224.             deallocate(pathArr)

  225.             call move_alloc(tempArr, pathArr)

  226.         else

  227.             allocate(pathArr(1))

  228.             pathArr(1) = p

  229.         end if

  230.         

  231.     endsubroutine

  232.     

  233.     subroutine RemovePath(pathArr, index)

  234.         implicit none

  235.         integer, intent(in) :: index

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

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

  238.         integer :: i

  239.         logical :: found

  240.         

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

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

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

  244.         found = .false.

  245.         do i=1, size(pathArr)

  246.             if(i==index) then

  247.                 found = .true.

  248.                 cycle

  249.             end if

  250.             if(found) then

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

  252.                 !call OnPathClose%RunAll(pathArr(i)%Valves)

  253.             else 

  254.                 tempArr(i) = pathArr(i)

  255.             endif

  256.         end do

  257.         deallocate(pathArr)

  258.         call move_alloc(tempArr, pathArr)

  259.         

  260.     endsubroutine

  261.     

  262.     subroutine Setup()

  263.         implicit none

  264.         integer :: i

  265.         

  266.         ! initialize all valves

  267.         do i = 1, ValveCount

  268.             call Valve(i)%init(i)

  269.         end do

  270.         

  271.         ! open source valves

  272.         do i = MinSource , MaxSource

  273.             Valve(i)%Status = .true.

  274.             Valve(i)%ValveType = InputOutput

  275.         end do

  276.         

  277.         do i = MinRelation , MaxRelation

  278.             Valve(i)%Status = .true.

  279.             Valve(i)%ValveType = Relation

  280.         end do

  281.         

  282.         

  283.         

  284.         ! make adjustments

  285.         call Valve(1)%AdjacentTo(91)

  286.         

  287.         call Valve(2)%AdjacentTo(92)

  288.         call Valve(2)%AdjacentTo(117)

  289.         

  290.         call Valve(3)%AdjacentTo(93)

  291.         call Valve(3)%AdjacentTo(118)

  292.         

  293.         call Valve(4)%AdjacentTo(94)

  294.         

  295.         call Valve(5)%AdjacentTo(95)

  296.         

  297.         call Valve(6)%AdjacentTo(91)

  298.         call Valve(6)%AdjacentTo(92)

  299.         

  300.         call Valve(7)%AdjacentTo(92)

  301.         call Valve(7)%AdjacentTo(93)

  302.         

  303.         call Valve(8)%AdjacentTo(93)

  304.         call Valve(8)%AdjacentTo(94)

  305.         

  306.         call Valve(9)%AdjacentTo(91)

  307.         call Valve(9)%AdjacentTo(96)

  308.         

  309.         call Valve(10)%AdjacentTo(94)

  310.         call Valve(10)%AdjacentTo(98)

  311.         

  312.         call Valve(11)%AdjacentTo(96)

  313.         call Valve(11)%AdjacentTo(97)

  314.         

  315.         call Valve(12)%AdjacentTo(97)

  316.         call Valve(12)%AdjacentTo(98)

  317.         

  318.         call Valve(13)%AdjacentTo(96)

  319.         call Valve(13)%AdjacentTo(99) 

  320.         

  321.         call Valve(14)%AdjacentTo(78)

  322.         call Valve(14)%AdjacentTo(97)

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

  324.         

  325.         call Valve(15)%AdjacentTo(98)

  326.         call Valve(15)%AdjacentTo(99)

  327.         

  328.         call Valve(16)%AdjacentTo(121)

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

  330.         

  331.         call Valve(17)%AdjacentTo(122)

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

  333.         

  334.         call Valve(18)%AdjacentTo(123)

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

  336.         

  337.         call Valve(19)%AdjacentTo(101)

  338.         call Valve(19)%AdjacentTo(102)

  339.         

  340.         call Valve(20)%AdjacentTo(100)

  341.         

  342.         call Valve(21)%AdjacentTo(101)

  343.         

  344.         call Valve(22)%AdjacentTo(102)

  345.         

  346.         call Valve(23)%AdjacentTo(71)

  347.         

  348.         call Valve(24)%AdjacentTo(71)

  349.         

  350.         call Valve(25)%AdjacentTo(108)

  351.         call Valve(25)%AdjacentTo(118)

  352.         

  353.         call Valve(26)%AdjacentTo(109)

  354.         call Valve(26)%AdjacentTo(117)

  355.         

  356.         call Valve(27)%AdjacentTo(32)

  357.         call Valve(27)%AdjacentTo(108)

  358.         

  359.         call Valve(28)%AdjacentTo(33)

  360.         call Valve(28)%AdjacentTo(108)

  361.         

  362.         call Valve(29)%AdjacentTo(110)

  363.         call Valve(29)%AdjacentTo(113)

  364.         

  365.         call Valve(30)%AdjacentTo(34)

  366.         call Valve(30)%AdjacentTo(109)

  367.         

  368.         call Valve(31)%AdjacentTo(35)

  369.         call Valve(31)%AdjacentTo(109)

  370.         

  371.         call Valve(32)%AdjacentTo(27)

  372.         call Valve(32)%AdjacentTo(61)

  373.         

  374.         call Valve(33)%AdjacentTo(28)

  375.         call Valve(33)%AdjacentTo(62)

  376.         

  377.         call Valve(34)%AdjacentTo(30)

  378.         call Valve(34)%AdjacentTo(63)

  379.         

  380.         call Valve(35)%AdjacentTo(31)

  381.         call Valve(35)%AdjacentTo(64)

  382.         

  383.         call Valve(36)%AdjacentTo(116)

  384.         

  385.         call Valve(37)%AdjacentTo(78)

  386.         

  387.         call Valve(38)%AdjacentTo(71)

  388.         

  389.         call Valve(39)%AdjacentTo(77)

  390.         

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

  392.         call Valve(40)%AdjacentTo(80)

  393.         

  394.         call Valve(41)%AdjacentTo(77)

  395.         

  396.         call Valve(42)%AdjacentTo(71)

  397.         

  398.         call Valve(43)%AdjacentTo(106)

  399.         

  400.         call Valve(44)%AdjacentTo(77)

  401.         

  402.         call Valve(45)%AdjacentTo(71)

  403.         

  404.         call Valve(46)%AdjacentTo(104)

  405.         

  406.         call Valve(47)%AdjacentTo(104)

  407.         call Valve(47)%AdjacentTo(117)

  408.         

  409.         call Valve(48)%AdjacentTo(69)

  410.         call Valve(48)%AdjacentTo(79)

  411.         

  412.         call Valve(49)%AdjacentTo(104)

  413.         call Valve(49)%AdjacentTo(79)

  414.         

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

  416.         call Valve(50)%AdjacentTo(51)

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

  418.         call Valve(50)%AdjacentTo(104)

  419.         

  420.         call Valve(51)%AdjacentTo(50)

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

  422.         

  423.         call Valve(52)%AdjacentTo(51)

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

  425.         call Valve(52)%AdjacentTo(80)

  426.         

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

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

  429.         call Valve(53)%AdjacentTo(80)

  430.         

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

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

  433.         

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

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

  436.         

  437.         call Valve(56)%AdjacentTo(128)

  438.         call Valve(56)%AdjacentTo(127)

  439.         

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

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

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

  443.         

  444.         call Valve(58)%AdjacentTo(78)

  445.         

  446.         call Valve(59)%AdjacentTo(78)

  447.         

  448.         call Valve(60)%AdjacentTo(78)

  449.         

  450.         call Valve(61)%AdjacentTo(32)

  451.         call Valve(61)%AdjacentTo(115)

  452.         

  453.         call Valve(62)%AdjacentTo(33)

  454.         call Valve(62)%AdjacentTo(114)

  455.         

  456.         call Valve(63)%AdjacentTo(112)

  457.         call Valve(63)%AdjacentTo(34)

  458.         

  459.         call Valve(64)%AdjacentTo(35)

  460.         call Valve(64)%AdjacentTo(111)

  461.         

  462.         call Valve(65)%AdjacentTo(120)

  463.         

  464.         call Valve(66)%AdjacentTo(120)

  465.         

  466.         call Valve(67)%AdjacentTo(73)

  467.         

  468.         call Valve(68)%AdjacentTo(125)

  469.         call Valve(68)%AdjacentTo(126)

  470.         

  471.         call Valve(69)%AdjacentTo(48)

  472.         call Valve(69)%AdjacentTo(124)

  473.         

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

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

  476.         

  477.         call Valve(71)%AdjacentTo(20)

  478.         call Valve(71)%AdjacentTo(44)

  479.         call Valve(71)%AdjacentTo(59)

  480.         

  481.         call Valve(72)%AdjacentTo(21)

  482.         call Valve(72)%AdjacentTo(23)

  483.         

  484.         call Valve(73)%AdjacentTo(22)

  485.         

  486.         call Valve(74)%AdjacentTo(24)

  487.         

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

  489.         

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

  491.         

  492.         call Valve(77)%AdjacentTo(43)

  493.         call Valve(77)%AdjacentTo(58)

  494.         

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

  496.         

  497.         call Valve(79)%AdjacentTo(48)

  498.         call Valve(79)%AdjacentTo(49)

  499.         

  500.         call Valve(80)%AdjacentTo(52)

  501.         call Valve(80)%AdjacentTo(107)

  502.         

  503.         call Valve(81)%AdjacentTo(53)

  504.         

  505.         call Valve(82)%AdjacentTo(16)

  506.         

  507.         call Valve(83)%AdjacentTo(17)

  508.         

  509.         call Valve(84)%AdjacentTo(18)

  510.         

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

  512.         

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

  514.         

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

  516.         

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

  518.         

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

  520.         

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

  522.         

  523.         call Valve(91)%AdjacentTo(6)

  524.         call Valve(91)%AdjacentTo(9)

  525.         call Valve(91)%AdjacentTo(75)

  526.         

  527.         call Valve(92)%AdjacentTo(6)

  528.         call Valve(92)%AdjacentTo(7)

  529.         call Valve(92)%AdjacentTo(2)

  530.         

  531.         call Valve(93)%AdjacentTo(3)

  532.         call Valve(93)%AdjacentTo(7)

  533.         call Valve(93)%AdjacentTo(8)

  534.         

  535.         call Valve(94)%AdjacentTo(8)

  536.         call Valve(94)%AdjacentTo(10)

  537.         call Valve(94)%AdjacentTo(95)  

  538.         

  539.         call Valve(95)%AdjacentTo(76)

  540.         call Valve(95)%AdjacentTo(94)

  541.         

  542.         call Valve(96)%AdjacentTo(9)

  543.         call Valve(96)%AdjacentTo(11)

  544.         call Valve(96)%AdjacentTo(13)

  545.         

  546.         call Valve(97)%AdjacentTo(11)

  547.         call Valve(97)%AdjacentTo(12)

  548.         call Valve(97)%AdjacentTo(14)

  549.         

  550.         call Valve(98)%AdjacentTo(10)

  551.         call Valve(98)%AdjacentTo(12)

  552.         call Valve(98)%AdjacentTo(15)

  553.         

  554.         call Valve(99)%AdjacentTo(13)

  555.         call Valve(99)%AdjacentTo(15)

  556.         call Valve(99)%AdjacentTo(125)

  557.         

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

  559.         call Valve(100)%AdjacentTo(82)

  560.         call Valve(100)%AdjacentTo(101)

  561.         

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

  563.         call Valve(101)%AdjacentTo(19)

  564.         call Valve(101)%AdjacentTo(83)

  565.         call Valve(101)%AdjacentTo(100)

  566.         

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

  568.         call Valve(102)%AdjacentTo(19)

  569.         call Valve(102)%AdjacentTo(84)

  570.         

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

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

  573.         call Valve(103)%AdjacentTo(124)

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

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

  576.         

  577.         call Valve(104)%AdjacentTo(46)

  578.         call Valve(104)%AdjacentTo(47)

  579.         call Valve(104)%AdjacentTo(49)

  580.         call Valve(104)%AdjacentTo(50)

  581.         

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

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

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

  585.         

  586.         call Valve(106)%AdjacentTo(40)

  587.         call Valve(106)%AdjacentTo(45)

  588.         

  589.         

  590.         call Valve(107)%AdjacentTo(41)

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

  592.         call Valve(107)%AdjacentTo(119)

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

  594.         

  595.         call Valve(108)%AdjacentTo(25)

  596.         call Valve(108)%AdjacentTo(27)

  597.         call Valve(108)%AdjacentTo(28)

  598.         call Valve(108)%AdjacentTo(110)

  599.         

  600.         call Valve(109)%AdjacentTo(26)

  601.         call Valve(109)%AdjacentTo(30)

  602.         call Valve(109)%AdjacentTo(31)

  603.         call Valve(109)%AdjacentTo(110)

  604.         

  605.         call Valve(110)%AdjacentTo(29)

  606.         call Valve(110)%AdjacentTo(85)

  607.         call Valve(110)%AdjacentTo(108)

  608.         call Valve(110)%AdjacentTo(109)

  609.         

  610.         call Valve(111)%AdjacentTo(37)

  611.         call Valve(111)%AdjacentTo(64)

  612.         call Valve(111)%AdjacentTo(112)

  613.         

  614.         call Valve(112)%AdjacentTo(63)

  615.         call Valve(112)%AdjacentTo(111)

  616.         call Valve(112)%AdjacentTo(113)

  617.         

  618.         call Valve(113)%AdjacentTo(29)

  619.         call Valve(113)%AdjacentTo(112)

  620.         call Valve(113)%AdjacentTo(114)

  621.         

  622.         call Valve(114)%AdjacentTo(62)

  623.         call Valve(114)%AdjacentTo(113)

  624.         call Valve(114)%AdjacentTo(115)

  625.         

  626.         call Valve(115)%AdjacentTo(36)

  627.         call Valve(115)%AdjacentTo(61)

  628.         call Valve(115)%AdjacentTo(114)

  629.         

  630.         call Valve(116)%AdjacentTo(38)

  631.         call Valve(116)%AdjacentTo(39)

  632.         

  633.         call Valve(117)%AdjacentTo(2)

  634.         call Valve(117)%AdjacentTo(26)

  635.         call Valve(117)%AdjacentTo(47)

  636.         

  637.         call Valve(118)%AdjacentTo(3)

  638.         call Valve(118)%AdjacentTo(25)

  639.         call Valve(118)%AdjacentTo(46)

  640.         

  641.         call Valve(119)%AdjacentTo(42)

  642.         call Valve(119)%AdjacentTo(60)

  643.         call Valve(119)%AdjacentTo(107)

  644.         

  645.         call Valve(120)%AdjacentTo(71)

  646.         

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

  648.         call Valve(121)%AdjacentTo(1)

  649.         call Valve(121)%AdjacentTo(65)

  650.         

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

  652.         call Valve(122)%AdjacentTo(4)

  653.         call Valve(122)%AdjacentTo(66)

  654.         

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

  656.         call Valve(123)%AdjacentTo(5)

  657.         call Valve(123)%AdjacentTo(67)

  658.         

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

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

  661.         call Valve(124)%AdjacentTo(69)

  662.         call Valve(124)%AdjacentTo(103)

  663.         

  664.         call Valve(125)%AdjacentTo(68)

  665.         call Valve(125)%AdjacentTo(99)

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

  667.         

  668.         call Valve(126)%AdjacentTo(128)

  669.         call Valve(126)%AdjacentTo(68)        

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

  671.         

  672.         call Valve(127)%AdjacentTo(56)

  673.         call Valve(127)%AdjacentTo(78)

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

  675.         

  676.         call Valve(128)%AdjacentTo(56)

  677.         call Valve(128)%AdjacentTo(126)

  678.         

  679.         

  680.         ! initialization

  681.         call ChangeValve(60, .true.)

  682.         call RemoveIBop()

  683.         call ToggleFillupHead(.false.)

  684.         call ToggleMudBox(.false.)

  685.         call RemoveTopDriveIBop()

  686.         call InstallSafetyValve_KellyMode()

  687.         call KellyDisconnected()

  688.     end subroutine

  689.     

  690.     

  691.     

  692.     subroutine KellyConnected()

  693.     !use CLog3

  694.         implicit none

  695.         

  696.         call Valve(127)%RemoveAdjacent(78)

  697.         

  698.         call Valve(127)%AdjacentTo(103)

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

  700.         

  701. #ifdef deb

  702.         print*, 'KellyConnected()'

  703.         !call Log_3( 'KellyConnected()')

  704. #endif

  705.         IsPathsDirty = .true.

  706.     end subroutine

  707.     

  708.     subroutine KellyDisconnected()

  709.     !use CLog3

  710.         implicit none

  711.         

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

  713.         call Valve(103)%RemoveAdjacent(127)

  714.         

  715.         call Valve(127)%AdjacentTo(78)

  716.         

  717. #ifdef deb

  718.         print*, 'KellyDisconnected()'

  719.         !call Log_3( 'KellyDisconnected()')

  720. #endif

  721. 

  722.         IsPathsDirty = .true.

  723.         

  724.     end subroutine

  725.     

  726.     

  727.     

  728.     

  729.     

  730.     

  731.     

  732.     

  733.     

  734.     subroutine InstallSafetyValve_KellyMode()

  735.         implicit none

  736.         IsSafetyValveInstalled_KellyMode = .true.

  737.         

  738.         call RemoveTopDriveIBop()

  739.         

  740.         ! Remove Safey Valve (54)

  741.         call Valve(124)%RemoveAdjacent(54)

  742.         call Valve(54)%RemoveAdjacent(124)

  743.         

  744.         call Valve(69)%RemoveAdjacent(54)

  745.         call Valve(54)%RemoveAdjacent(69)

  746.         

  747.         ! Remove 126-103 cnn

  748.         call Valve(128)%RemoveAdjacent(127)

  749.         call Valve(127)%RemoveAdjacent(128)

  750.                 

  751.         ! now make cnn

  752.         call Valve(124)%AdjacentTo(69)

  753.         call Valve(69)%AdjacentTo(124)

  754.         

  755.         call Valve(128)%AdjacentTo(56)

  756.         

  757.         call Valve(56)%AdjacentTo(128)

  758.         call Valve(56)%AdjacentTo(127)

  759.         

  760.         call Valve(127)%AdjacentTo(56)

  761.         

  762. #ifdef deb

  763.             print*, 'InstallSafetyValve_KellyMode()'

  764. #endif

  765.         

  766.         IRSafetyValveLed = 1

  767.         call OpenSafetyValve_KellyMode()

  768.     end subroutine

  769.     

  770.     subroutine RemoveSafetyValve_KellyMode()

  771.         implicit none

  772.         IsSafetyValveInstalled_KellyMode = .false.

  773.         

  774.         call Valve(128)%RemoveAdjacent(56)

  775.         call Valve(56)%RemoveAdjacent(128)

  776.         

  777.         call Valve(127)%RemoveAdjacent(56)

  778.         call Valve(56)%RemoveAdjacent(127)

  779.         

  780.         call Valve(127)%AdjacentTo(128)

  781.         call Valve(128)%AdjacentTo(127)

  782.         

  783.         IRSafetyValveLed = 0

  784.         call CloseSafetyValve_KellyMode()

  785.         OpenSafetyValveLed = 0

  786.         CloseSafetyValveLed = 0

  787.         

  788. #ifdef deb

  789.             print*, 'RemoveSafetyValve_KellyMode()'

  790. #endif

  791.         

  792.     end subroutine

  793.     

  794.     subroutine OpenSafetyValve_KellyMode()

  795.         implicit none

  796.         if(.not.IsSafetyValveInstalled_KellyMode) return

  797.         OpenSafetyValveLed = 1

  798.         CloseSafetyValveLed = 0

  799.         SafetyValve = .true.

  800.         call ChangeValve(56, SafetyValve)

  801.         

  802. #ifdef deb

  803.             print*, 'OpenSafetyValve_KellyMode()'

  804. #endif

  805.         

  806.     end subroutine

  807.     

  808.     subroutine CloseSafetyValve_KellyMode()

  809.         implicit none

  810.         if(.not.IsSafetyValveInstalled_KellyMode) return

  811.         CloseSafetyValveLed = 1

  812.         OpenSafetyValveLed = 0

  813.         SafetyValve = .false.

  814.         call ChangeValve(56, SafetyValve)

  815.         

  816. #ifdef deb

  817.             print*, 'CloseSafetyValve_KellyMode()'

  818. #endif

  819.         

  820.     end subroutine

  821.     

  822.     

  823.     

  824.     

  825.     

  826.     

  827.     

  828.     

  829.     

  830.     

  831.     subroutine InstallSafetyValve_TripMode()

  832.         implicit none

  833.         IsSafetyValveInstalled_TripMode = .true.

  834.         

  835.         call Valve(128)%RemoveAdjacent(56)

  836.         call Valve(56)%RemoveAdjacent(128)

  837.         

  838.         call Valve(127)%RemoveAdjacent(56)

  839.         call Valve(56)%RemoveAdjacent(127)

  840.         

  841.         call Valve(69)%RemoveAdjacent(124)

  842.         call Valve(124)%RemoveAdjacent(69)

  843.         

  844.         

  845.         call Valve(127)%AdjacentTo(128)

  846.         call Valve(128)%AdjacentTo(127)

  847.         

  848.         call Valve(124)%AdjacentTo(54)

  849.         call Valve(54)%AdjacentTo(124)

  850.         

  851.         call Valve(54)%AdjacentTo(69)

  852.         call Valve(69)%AdjacentTo(54)

  853.                 

  854.         IRSafetyValveLed = 1

  855.         call OpenSafetyValve_TripMode()

  856.         

  857. #ifdef deb

  858.             print*, 'InstallSafetyValve_TripMode()'

  859. #endif

  860.         

  861.     end subroutine

  862.     

  863.     subroutine RemoveSafetyValve_TripMode()

  864.         implicit none

  865.         IsSafetyValveInstalled_TripMode = .false.

  866.         

  867.         call Valve(124)%RemoveAdjacent(54)

  868.         call Valve(54)%RemoveAdjacent(124)

  869.         

  870.         call Valve(54)%RemoveAdjacent(69)

  871.         call Valve(69)%RemoveAdjacent(54)

  872.         

  873.         call Valve(124)%AdjacentTo(69)

  874.         call Valve(69)%AdjacentTo(124)

  875.         

  876.         IRSafetyValveLed = 0

  877.         call CloseSafetyValve_TripMode()

  878.         OpenSafetyValveLed = 0

  879.         CloseSafetyValveLed = 0

  880.         

  881. #ifdef deb

  882.             print*, 'RemoveSafetyValve_TripMode()'

  883. #endif

  884.         

  885.     end subroutine

  886.     

  887.     subroutine OpenSafetyValve_TripMode()

  888.         implicit none

  889.         if(.not.IsSafetyValveInstalled_TripMode) return

  890.         OpenSafetyValveLed = 1

  891.         CloseSafetyValveLed = 0

  892.         SafetyValve = .true.

  893.         call ChangeValve(54, SafetyValve)

  894.         

  895. #ifdef deb

  896.             print*, 'OpenSafetyValve_TripMode()'

  897. #endif

  898.         

  899.     end subroutine

  900.     

  901.     subroutine CloseSafetyValve_TripMode()

  902.         implicit none

  903.         if(.not.IsSafetyValveInstalled_TripMode) return

  904.         CloseSafetyValveLed = 1

  905.         OpenSafetyValveLed = 0

  906.         SafetyValve = .false.

  907.         call ChangeValve(54, SafetyValve)

  908.         

  909. #ifdef deb

  910.             print*, 'CloseSafetyValve_TripMode()'

  911. #endif

  912.         

  913.     end subroutine

  914.     

  915.     

  916.     

  917.     

  918.     

  919.     

  920.     

  921.     

  922.     subroutine InstallSafetyValve_TopDrive()

  923.         implicit none

  924.         IsSafetyValveInstalled_TopDrive = .true.

  925.         

  926.         call Valve(128)%RemoveAdjacent(56)

  927.         call Valve(56)%RemoveAdjacent(128)

  928.         

  929.         call Valve(127)%RemoveAdjacent(56)

  930.         call Valve(56)%RemoveAdjacent(127)

  931.         

  932.         call Valve(69)%RemoveAdjacent(124)

  933.         call Valve(124)%RemoveAdjacent(69)

  934.         

  935.         call Valve(124)%AdjacentTo(54)

  936.         call Valve(54)%AdjacentTo(124)

  937.         

  938.         call Valve(54)%AdjacentTo(69)

  939.         call Valve(69)%AdjacentTo(54)

  940.         

  941.         IRSafetyValveLed = 1

  942.         call OpenSafetyValve_TopDrive()

  943.         

  944. #ifdef deb

  945.             print*, 'InstallSafetyValve_TopDrive()'

  946. #endif

  947.         

  948.     end subroutine

  949.     

  950.     subroutine RemoveSafetyValve_TopDrive()

  951.         implicit none

  952.         IsSafetyValveInstalled_TopDrive = .false.

  953.         

  954.         call Valve(124)%RemoveAdjacent(54)

  955.         call Valve(54)%RemoveAdjacent(124)

  956.         

  957.         call Valve(54)%RemoveAdjacent(69)

  958.         call Valve(69)%RemoveAdjacent(54)

  959.         

  960.         call Valve(124)%AdjacentTo(69)

  961.         call Valve(69)%AdjacentTo(124)

  962.         

  963.         IRSafetyValveLed = 0

  964.         call CloseSafetyValve_TopDrive()

  965.         OpenSafetyValveLed = 0

  966.         CloseSafetyValveLed = 0

  967.         

  968. #ifdef deb

  969.             print*, 'RemoveSafetyValve_TopDrive()'

  970. #endif

  971.         

  972.     end subroutine

  973.     

  974.     subroutine OpenSafetyValve_TopDrive()

  975.         implicit none

  976.         if(.not.IsSafetyValveInstalled_TopDrive) return

  977.         OpenSafetyValveLed = 1

  978.         CloseSafetyValveLed = 0

  979.         SafetyValve = .true.

  980.         

  981. #ifdef deb

  982.             print*, 'OpenSafetyValve_TopDrive()'

  983. #endif

  984.         

  985.         call ChangeValve(54, SafetyValve)

  986.     end subroutine

  987.     

  988.     subroutine CloseSafetyValve_TopDrive()

  989.         implicit none

  990.         if(.not.IsSafetyValveInstalled_TopDrive) return

  991.         CloseSafetyValveLed = 1

  992.         OpenSafetyValveLed = 0

  993.         SafetyValve = .false.

  994.         

  995. #ifdef deb

  996.             print*, 'CloseSafetyValve_TopDrive()'

  997. #endif

  998.         

  999.         call ChangeValve(54, SafetyValve)

  1000.     end subroutine

  1001.     

  1002.     

  1003.     

  1004.     

  1005.     

  1006.     

  1007.     

  1008.     

  1009.     

  1010.     subroutine InstallIBop()

  1011.         implicit none

  1012.         IsIBopInstalled = .true.

  1013.         

  1014.         call Valve(103)%RemoveAdjacent(124)

  1015.         call Valve(124)%RemoveAdjacent(103)

  1016.         

  1017.         call Valve(55)%AdjacentTo(103)

  1018.         call Valve(55)%AdjacentTo(124)

  1019.         

  1020.         call Valve(103)%AdjacentTo(55)

  1021.         call Valve(124)%AdjacentTo(55)

  1022.         

  1023. #ifdef deb

  1024.             print*, 'InstallIBop()'

  1025. #endif

  1026.         

  1027.         IRIBopLed = 1

  1028.         call OpenIBop()

  1029.     end subroutine

  1030.     

  1031.     subroutine RemoveIBop()

  1032.         implicit none

  1033.         IsIBopInstalled = .false.

  1034.         

  1035.         call Valve(55)%RemoveAdjacent(103)

  1036.         call Valve(55)%RemoveAdjacent(124)

  1037.         

  1038.         call Valve(103)%RemoveAdjacent(55)

  1039.         call Valve(124)%RemoveAdjacent(55)

  1040.         

  1041.         call Valve(103)%AdjacentTo(124)

  1042.         call Valve(124)%AdjacentTo(103)

  1043.         

  1044. #ifdef deb

  1045.             print*, 'RemoveIBop()'

  1046. #endif

  1047.         

  1048.         IRIBopLed = 0

  1049.         IBop = .false.

  1050.         call ChangeValve(55, IBop)

  1051.     end subroutine

  1052.     

  1053.     subroutine OpenIBop()

  1054.         implicit none

  1055.         if(.not.IsIBopInstalled) return

  1056.         IBop = .true.

  1057.         

  1058. #ifdef deb

  1059.             print*, 'OpenIBop()'

  1060. #endif

  1061.         

  1062.         call ChangeValve(55, IBop)

  1063.     end subroutine

  1064.     

  1065.     subroutine CloseIBop()

  1066.         implicit none

  1067.         if(.not.IsIBopInstalled) return

  1068.         IBop = .false.

  1069.         

  1070. #ifdef deb

  1071.             print*, 'CloseIBop()'

  1072. #endif

  1073.         

  1074.         call ChangeValve(55, IBop)

  1075.     end subroutine

  1076.     

  1077.     

  1078.     

  1079.     

  1080.     

  1081.     

  1082.     subroutine InstallKellyCock()

  1083.         implicit none

  1084.         IsKellyCockInstalled = .true.

  1085.         

  1086.         call Valve(125)%RemoveAdjacent(126)

  1087.         call Valve(126)%RemoveAdjacent(125)

  1088.         

  1089.         call Valve(125)%AdjacentTo(68)

  1090.         

  1091.         call Valve(68)%AdjacentTo(125)

  1092.         call Valve(68)%AdjacentTo(126)

  1093.         

  1094.         call Valve(126)%AdjacentTo(68)

  1095.         

  1096. #ifdef deb

  1097.             print*, 'InstallKellyCock()'

  1098. #endif

  1099.         

  1100.         call OpenKellyCock()

  1101.     end subroutine

  1102.     

  1103.     subroutine RemoveKellyCock()

  1104.         implicit none

  1105.         IsKellyCockInstalled = .false.

  1106.         

  1107.         call Valve(125)%RemoveAdjacent(68)

  1108.         call Valve(126)%RemoveAdjacent(68)

  1109.         

  1110.         call Valve(68)%RemoveAdjacent(125)

  1111.         call Valve(68)%RemoveAdjacent(126)

  1112.         

  1113.         call Valve(125)%AdjacentTo(126)

  1114.         call Valve(126)%AdjacentTo(125)

  1115.         

  1116.         KellyCock = .false.

  1117.         call ChangeValve(68, KellyCock)

  1118.         CloseKellyCockLed = 0

  1119.         OpenKellyCockLed = 0

  1120.         

  1121. #ifdef deb

  1122.             print*, 'RemoveKellyCock()'

  1123. #endif

  1124.         

  1125.     end subroutine

  1126.     

  1127.     subroutine OpenKellyCock()

  1128.         implicit none

  1129.         if(.not.IsKellyCockInstalled) return

  1130.         OpenKellyCockLed = 1

  1131.         CloseKellyCockLed = 0

  1132.         KellyCock = .true.

  1133.         

  1134. #ifdef deb

  1135.             print*, 'OpenKellyCock()'

  1136. #endif

  1137.         

  1138.         call ChangeValve(68, KellyCock)

  1139.     end subroutine

  1140.     

  1141.     subroutine CloseKellyCock()

  1142.         implicit none

  1143.         if(.not.IsKellyCockInstalled) return

  1144.         CloseKellyCockLed = 1

  1145.         OpenKellyCockLed = 0

  1146.         KellyCock = .false.

  1147. 

  1148. #ifdef deb

  1149.             print*, 'CloseKellyCock()'

  1150. #endif

  1151.         

  1152.         call ChangeValve(68, KellyCock)

  1153.     end subroutine

  1154.     

  1155.     

  1156.     

  1157.     

  1158.     

  1159.     

  1160.     

  1161.     

  1162.     subroutine InstallTopDriveIBop()

  1163.         implicit none

  1164.         IsTopDriveIBopInstalled = .true.

  1165.         

  1166.         call Valve(126)%RemoveAdjacent(128)

  1167.         call Valve(128)%RemoveAdjacent(126)

  1168.         

  1169.         

  1170.         call Valve(126)%AdjacentTo(70)

  1171.         call Valve(70)%AdjacentTo(126)

  1172.         

  1173.         call Valve(128)%AdjacentTo(70)

  1174.         call Valve(70)%AdjacentTo(128)

  1175.         

  1176. #ifdef deb

  1177.             print*, 'InstallTopDriveIBop()'

  1178. #endif

  1179.         call OpenTopDriveIBop()

  1180.     end subroutine

  1181.     

  1182.     subroutine RemoveTopDriveIBop()

  1183.         implicit none

  1184.         IsTopDriveIBopInstalled = .false.

  1185.         

  1186.         call Valve(126)%RemoveAdjacent(70)

  1187.         call Valve(70)%RemoveAdjacent(126)

  1188.         

  1189.         call Valve(128)%RemoveAdjacent(70)

  1190.         call Valve(70)%RemoveAdjacent(128)

  1191.         

  1192.         call Valve(126)%AdjacentTo(128)

  1193.         call Valve(128)%AdjacentTo(126)

  1194.         

  1195. #ifdef deb

  1196.             print*, 'RemoveTopDriveIBop()'

  1197. #endif

  1198.         TopDriveIBop = .false.

  1199.         call ChangeValve(70, TopDriveIBop)

  1200.     end subroutine

  1201.     

  1202.     subroutine OpenTopDriveIBop()

  1203.         implicit none

  1204.         if(.not.IsTopDriveIBopInstalled) return

  1205.         TopDriveIBop = .true.

  1206.         call ChangeValve(70, TopDriveIBop)

  1207. #ifdef deb

  1208.             print*, 'OpenTopDriveIBop()'

  1209. #endif

  1210.     end subroutine

  1211.     

  1212.     subroutine CloseTopDriveIBop()

  1213.         implicit none

  1214.         if(.not.IsTopDriveIBopInstalled) return

  1215.         TopDriveIBop = .false.

  1216.         call ChangeValve(70, TopDriveIBop)

  1217. #ifdef deb

  1218.             print*, 'CloseTopDriveIBop()'

  1219. #endif

  1220.     end subroutine

  1221.     

  1222.     

  1223.     

  1224.     

  1225.     

  1226.     

  1227.     

  1228.     

  1229.     

  1230.     subroutine InstallFloatValve()

  1231.         implicit none

  1232.         IsFloatValveInstalled = .true.

  1233.         

  1234.         call Valve(69)%RemoveAdjacent(79)

  1235.         call Valve(79)%RemoveAdjacent(69)

  1236.         

  1237.         call Valve(48)%AdjacentTo(69)

  1238.         call Valve(48)%AdjacentTo(79)

  1239.         

  1240.         call Valve(69)%AdjacentTo(48)

  1241.         call Valve(79)%AdjacentTo(48)

  1242. #ifdef deb

  1243.             print*, 'InstallFloatValve()'

  1244. #endif

  1245.         call OpenFloatValve()

  1246.     end subroutine

  1247.     

  1248.     subroutine RemoveFloatValve()

  1249.         implicit none

  1250.         IsFloatValveInstalled = .false.

  1251.         

  1252.         call Valve(48)%RemoveAdjacent(69)

  1253.         call Valve(48)%RemoveAdjacent(79)

  1254.         

  1255.         call Valve(69)%RemoveAdjacent(48)

  1256.         call Valve(79)%RemoveAdjacent(48)

  1257.         

  1258.         call Valve(69)%AdjacentTo(79)

  1259.         call Valve(79)%AdjacentTo(69)

  1260. #ifdef deb

  1261.             print*, 'RemoveFloatValve()'

  1262. #endif

  1263.         FloatValve = .false.

  1264.         call ChangeValve(48, FloatValve)

  1265.     end subroutine

  1266.     

  1267.     subroutine OpenFloatValve()

  1268.         implicit none

  1269.         if(.not.IsFloatValveInstalled) return

  1270.         FloatValve = .true.

  1271. #ifdef deb

  1272.             print*, 'OpenFloatValve()'

  1273. #endif

  1274.         call ChangeValve(48, FloatValve)

  1275.     end subroutine

  1276.     

  1277.     subroutine CloseFloatValve()

  1278.         implicit none

  1279.         if(.not.IsFloatValveInstalled) return

  1280.         FloatValve = .false.

  1281. #ifdef deb

  1282.             print*, 'CloseFloatValve()'

  1283. #endif

  1284.         call ChangeValve(48, FloatValve)

  1285.     end subroutine

  1286.     

  1287.     

  1288.     

  1289.     

  1290.     

  1291.     

  1292.     

  1293.     subroutine ToggleFillupHead(v)

  1294.         implicit none

  1295.         logical, intent(in) :: v

  1296.         if(v) then

  1297.             call Valve(14)%RemoveAdjacent(78)

  1298.             

  1299.             call Valve(14)%AdjacentTo(57)

  1300.             call Valve(57)%AdjacentTo(14)

  1301.             call Valve(57)%AdjacentTo(103)

  1302.             call Valve(103)%AdjacentTo(57)

  1303.             

  1304.         else

  1305.             call Valve(14)%RemoveAdjacent(57)

  1306.             call Valve(57)%RemoveAdjacent(14)

  1307.             call Valve(57)%RemoveAdjacent(103)

  1308.             call Valve(103)%RemoveAdjacent(57)

  1309.             

  1310.             call Valve(14)%AdjacentTo(78)

  1311.         endif

  1312.         IsPathsDirty = .true.

  1313.         call ChangeValve(57, .true.)

  1314.     end subroutine

  1315.     

  1316.     subroutine ToggleMudBox(v)

  1317.         implicit none

  1318.         logical, intent(in) :: v

  1319.         call ChangeValve(53, v)

  1320.     end subroutine   

  1321.     

  1322.     

  1323.     

  1324.     

  1325.     

  1326.     

  1327.     

  1328.     

  1329.     

  1330.     subroutine ToggleMiddleRams(v)

  1331.         implicit none

  1332.         logical, intent(in) :: v

  1333.         Valve(50)%Status = v

  1334.         call ChangeValve(69, v)

  1335.     end subroutine

  1336.     

  1337.     

  1338.     

  1339.     

  1340.     

  1341.     

  1342.     

  1343.     

  1344.     subroutine ChangeValve(i, state)

  1345.         implicit none

  1346.         integer, intent(in) :: i

  1347.         logical, intent(in) :: state

  1348.         

  1349.         if(Valve(i)%Status==state) return

  1350.         Valve(i)%Status = state

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

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

  1353.                 Valve(60)%Status = .true.

  1354.             else

  1355.                 Valve(60)%Status = .false.

  1356.             endif

  1357.         endif

  1358. #ifdef deb

  1359.         print*, 'Valve(', i, ') = ', state

  1360. #endif

  1361.         !call Traverse()

  1362.         IsPathsDirty = .true.

  1363.     end subroutine

  1364.     

  1365.     

  1366.     

  1367.     

  1368.         

  1369.     subroutine DisplayOpenPaths()

  1370.         implicit none

  1371.         integer :: i

  1372.         if(allocated(OpenPaths)) then

  1373.             do i = 1, size(OpenPaths)

  1374.                 call OpenPaths(i)%Display()

  1375.             end do

  1376.         end if

  1377.     end subroutine

  1378.     

  1379.     subroutine DisplayOpenPathsWrite()

  1380.         implicit none

  1381.         integer :: i

  1382.         if(allocated(OpenPaths)) then

  1383.             do i = 1, size(OpenPaths)

  1384.                 call OpenPaths(i)%DisplayWrite()

  1385.             end do

  1386.         end if

  1387.     end subroutine

  1388.     

  1389. end module CManifolds