Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
logical, | public | :: | IsMarked | = | .false. | ||
character(len=MaxNameLength), | public | :: | ObjectType | = | ' ' | ||
character(len=MaxNameLength), | public | :: | ObjectName | = | ' ' | ||
character(len=MaxNameLength), | public | :: | FieldName | = | ' ' |
TYPE MarkedNodeData
LOGICAL :: IsMarked = .false. ! true if this is a marked node
CHARACTER(len=MaxNameLength) :: ObjectType = ' ' ! Object Type that needs it "marked"
CHARACTER(len=MaxNameLength) :: ObjectName = ' ' ! Object Name that needs it "marked"
CHARACTER(len=MaxNameLength) :: FieldName = ' ' ! FieldName that needs it "marked"
END TYPE MarkedNodeData