Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
integer, | public | :: | NumOfNodesInList | = | 0 | ||
character(len=MaxNameLength), | public, | ALLOCATABLE, DIMENSION(:) | :: | NodeNames | |||
integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | NodeNumbers |
TYPE NodeListDef ! Derived Type for Node Lists
CHARACTER(len=MaxNameLength) :: Name =' ' ! Name of this Node List
INTEGER :: NumOfNodesInList = 0 ! Number of Nodes in this Node List
CHARACTER(len=MaxNameLength), &
ALLOCATABLE, DIMENSION(:) :: NodeNames ! List of Names in this Node List
INTEGER, ALLOCATABLE, DIMENSION(:) :: NodeNumbers ! Number of each Node (ref NodeNames) in this Node List
END TYPE NodeListDef