Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | '' | ||
integer, | public | :: | NumOfZones | = | 0 | ||
integer, | public | :: | MaxZoneNameLength | = | 0 | ||
integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | Zone |
TYPE ZoneListData
CHARACTER(len=MaxNameLength) :: Name = '' ! Zone List name
INTEGER :: NumOfZones = 0 ! Number of zones in the list
INTEGER :: MaxZoneNameLength = 0 ! Max Name length of zones in the list
INTEGER, ALLOCATABLE, DIMENSION(:) :: Zone ! Pointers to zones in the list
END TYPE ZoneListData