Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | '' | ||
integer, | public | :: | ZoneList | = | 0 | ||
integer, | public | :: | Multiplier | = | 1 |
TYPE ZoneGroupData
CHARACTER(len=MaxNameLength) :: Name = '' ! Zone Group name
INTEGER :: ZoneList = 0 ! Pointer to the zone list
INTEGER :: Multiplier = 1 ! Zone List multiplier
END TYPE ZoneGroupData