| 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