Nodes of different colours represent the following:
Solid arrows point from one derived type to another which extends (inherits from) it. Dashed arrows point from a derived type to another type containing it as a components, with a label listing the name(s) of said component(s). Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| logical, | public | :: | Exists | = | .FALSE. | ||
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| integer, | public | :: | NodeNumIn | = | 0 | ||
| integer, | public | :: | BranchNumIn | = | 0 | ||
| integer, | public | :: | LevelIn | = | 0 | ||
| integer, | public | :: | LevelOut | = | 0 | ||
| integer, | public | :: | CorrMixIndex | = | 0 | ||
| character(len=MaxNameLength), | public | :: | NodeNameIn | = | ' ' | ||
| integer, | public | :: | TotalOutletNodes | = | 0 | ||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | NodeNumOut | |||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | BranchNumOut | |||
| character(len=MaxNameLength), | public, | ALLOCATABLE, DIMENSION(:) | :: | NodeNameOut |
TYPE SplitterData
LOGICAL :: Exists = .FALSE. ! True if there is a splitter (only 1 allowed per loop)
CHARACTER(len=MaxNameLength) :: Name = ' ' ! Name of the splitter
INTEGER :: NodeNumIn = 0 ! Node number for the inlet to the splitter
INTEGER :: BranchNumIn = 0 ! Reference number for branch connected to splitter inlet
INTEGER :: LevelIn = 0 ! Branch Level of splitter inlet in the loop topology
INTEGER :: LevelOut = 0 ! Branch Level of splitter outlet in the loop topology
INTEGER :: CorrMixIndex = 0 ! Index of Mixer corresponding to this Splitter
CHARACTER(len=MaxNameLength) :: NodeNameIn = ' ' ! Node name for the inlet to the splitter
INTEGER :: TotalOutletNodes = 0 ! Number of outlet nodes for the splitter
INTEGER, &
ALLOCATABLE, DIMENSION(:) :: NodeNumOut ! Node number for the outlet to the splitter
INTEGER, &
ALLOCATABLE, DIMENSION(:) :: BranchNumOut ! Reference number for branch connected to splitter outlet
CHARACTER(len=MaxNameLength), &
ALLOCATABLE, DIMENSION(:) :: NodeNameOut ! Node name for the outlet to the splitter
END TYPE SplitterData