Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
integer, | public | :: | NumCompressors | = | 0 | ||
integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | CompItemNum |
TYPE, PRIVATE :: CompressorListDef ! Derived Type for Compressor Lists
CHARACTER(len=MaxNameLength) :: Name =' ' ! Name of this Compressor List
INTEGER :: NumCompressors = 0 ! Number of Compressors in this Node List
INTEGER, ALLOCATABLE, DIMENSION(:) :: CompItemNum ! List of Item numbers that correspond to the compressors
END TYPE CompressorLISTDef