Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
integer, | public | :: | NumOfControls | = | 0 | ||
character(len=MaxNameLength), | public, | DIMENSION(:), ALLOCATABLE | :: | ControlType | |||
character(len=MaxNameLength), | public, | DIMENSION(:), ALLOCATABLE | :: | ControlName |
TYPE ControlList
CHARACTER(len=MaxNameLength) :: Name = ' ' !
INTEGER :: NumOfControls = 0 !
CHARACTER(len=MaxNameLength), DIMENSION(:), ALLOCATABLE :: ControlType
CHARACTER(len=MaxNameLength), DIMENSION(:), ALLOCATABLE :: ControlName
END TYPE ControlList