| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | LinkName | = | ' ' | ||
| character(len=MaxNameLength), | public, | DIMENSION(2) | :: | NodeNames | = | ' ' | |
| real(kind=r64), | public, | DIMENSION(2) | :: | NodeHeights | = | 0.0d0 | |
| character(len=MaxNameLength), | public | :: | CompName | = | ' ' | ||
| integer, | public | :: | CompNum | = | 0 | ||
| character(len=MaxNameLength), | public | :: | ZoneName | = | ' ' | ||
| integer, | public | :: | ZoneNum | = | 0 | ||
| integer, | public, | DIMENSION(2) | :: | NodeNums | = | 0 | |
| integer, | public | :: | LinkNum | = | 0 |
TYPE DisSysLinkageProp ! Distribution system linkage data
CHARACTER(len=MaxNameLength) :: LinkName =' ' ! Name of distribution system linkage
CHARACTER(len=MaxNameLength),DIMENSION(2) :: NodeNames =' ' ! Names of nodes (limited to 2)
REAL(r64),DIMENSION(2) :: NodeHeights=0.0d0 ! Node heights
CHARACTER(len=MaxNameLength) :: CompName =' ' ! Name of element
INTEGER :: CompNum =0 ! Element Number
CHARACTER(len=MaxNameLength) :: ZoneName =' ' ! Name of zone
INTEGER :: ZoneNum =0 ! Zone Number
INTEGER,DIMENSION(2) :: NodeNums =0 ! Node numbers
INTEGER :: LinkNum =0 ! Linkage number
END TYPE DisSysLinkageProp