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 | :: | NodeNumOut | = | 0 | ||
| integer, | public | :: | BranchNumOut | = | 0 | ||
| integer, | public | :: | LevelIn | = | 0 | ||
| integer, | public | :: | LevelOut | = | 0 | ||
| integer, | public | :: | CorrSplitIndex | = | 0 | ||
| character(len=MaxNameLength), | public | :: | NodeNameOut | = | ' ' | ||
| integer, | public | :: | TotalInletNodes | = | 0 | ||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | NodeNumIn | |||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | BranchNumIn | |||
| character(len=MaxNameLength), | public, | ALLOCATABLE, DIMENSION(:) | :: | NodeNameIn |
TYPE MixerData
LOGICAL :: Exists = .FALSE. ! True if there is a mixer (only 1 allowed per loop)
CHARACTER(len=MaxNameLength) :: Name = ' ' ! Name of the mixer
INTEGER :: NodeNumOut = 0 ! Node number for the outlet to the mixer
INTEGER :: BranchNumOut = 0 ! Reference number for branch connected to splitter inlet
INTEGER :: LevelIn = 0 ! Branch Level of mixer inlet in the loop topology
INTEGER :: LevelOut = 0 ! Branch Level of mixer outlet in the loop topology
INTEGER :: CorrSplitIndex = 0 ! Index of Splitter corresponding to this mixer
CHARACTER(len=MaxNameLength) :: NodeNameOut = ' ' ! Node name for the outlet to the mixer
INTEGER :: TotalInletNodes = 0 ! Number of inlet nodes for the mixer
INTEGER, &
ALLOCATABLE, DIMENSION(:) :: NodeNumIn ! Node number for the inlet to the mixer
INTEGER, &
ALLOCATABLE, DIMENSION(:) :: BranchNumIn ! Reference number for branch connected to splitter outlet
CHARACTER(len=MaxNameLength), &
ALLOCATABLE, DIMENSION(:) :: NodeNameIn ! Node name for the inlet to the mixer
END TYPE MixerData