| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| real(kind=r64), | public | :: | A | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DP | = | 0.0d0 | 
TYPE DisSysCompCPDProp ! Constant pressure drop component
 CHARACTER(len=MaxNameLength)  :: Name = ' ' ! Name of constant pressure drop component
 REAL(r64)     :: A           = 0.0d0               ! cross section area
 REAL(r64)     :: DP          = 0.0d0               ! Pressure difference across the component
END TYPE DisSysCompCPDProp