Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
integer, | public | :: | ZoneOrZoneListPtr | = | 0 | ||
integer, | public | :: | NumOfZones | = | 0 | ||
integer, | public | :: | StartPtr | = | 0 | ||
logical, | public | :: | ZoneListActive | = | .false. |
TYPE GlobalInternalGainMiscObject
CHARACTER(len=MaxNameLength) :: Name =' '
INTEGER :: ZoneOrZoneListPtr =0
INTEGER :: NumOfZones =0
INTEGER :: StartPtr =0
LOGICAL :: ZoneListActive =.false.
END TYPE GlobalInternalGainMiscObject