SimulationCore2/CSharp/Equipments/MudPathFinding/ManifoldVariables.f90

module ManifoldVariables
    use CStack
    use CArrangement
    ! use SimulationVariables
    ! use CStandPipeManifoldVariables
    implicit none  
    
    public    
    integer, parameter :: ValveCount = 128
    integer, parameter :: MinSource = 71  
    integer, parameter :: MaxSource = 90  
    integer, parameter :: MinRelation = 91  
    integer, parameter :: MaxRelation = 128

    Type::ManifoldType
        type(Arrangement) :: Valve(ValveCount)
        type(Path), allocatable :: OpenPaths(:)
        type(Stack) :: Fringe
        logical :: IsRepititveOutput
        
        logical :: IsSafetyValveInstalled
        logical :: IsSafetyValveInstalled_KellyMode
        logical :: IsSafetyValveInstalled_TripMode
        logical :: IsSafetyValveInstalled_TopDrive
        logical :: SafetyValve
        logical :: IsIBopInstalled
        logical :: IBop
        logical :: IsKellyCockInstalled
        logical :: KellyCock
        logical :: IsTopDriveIBopInstalled
        logical :: TopDriveIBop
        logical :: IsFloatValveInstalled
        logical :: FloatValve
        logical :: IsPathsDirty = .false.
        logical :: IsTraverse = .false.
    End type ManifoldType
End module ManifoldVariables