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 | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| integer, | public | :: | NL | = | 0 | ||
| type(CFSLAYER), | public | :: | L(CFSMAXNL) | ||||
| type(CFSGAP), | public | :: | G(CFSMAXNL-1) | ||||
| logical, | public | :: | ISControlled | = | .FALSE. |
TYPE CFSTY
CHARACTER(len=MaxNameLength):: Name=' '! ID (Fenestration Name)
INTEGER :: NL =0 ! number of layers
TYPE(CFSLAYER) :: L( CFSMAXNL) ! layer array, L(1) is outside layer
TYPE(CFSGAP) :: G(CFSMAXNL-1) ! gap array, G(1) is outside-most, betw L(1) and L(2)
LOGICAL :: ISControlled = .FALSE. ! CFS is not controlled, or has no controlled VB layer
END TYPE CFSTY