Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | CompType | = | ' ' | ||
character(len=MaxNameLength), | public | :: | CompName | = | ' ' |
TYPE ComponentNameData
CHARACTER(len=MaxNameLength) :: CompType = ' ' ! Component Type
CHARACTER(len=MaxNameLength) :: CompName = ' ' ! Component Name (user supplied)
END TYPE ComponentNameData