HP Fortran Programmer's Reference

HP Fortran statements
STRUCTURE (extension)
If /struct-name/ is present in a nested structure definition, the structure struct-name can
also be used in subsequent record declarations. For example, the following code defines a
structure named person, which contains a nested structure named name. The structure’s field
name is nm and contains three CHARACTER*10 fields: last, first, andmid.
STRUCTURE /person/
INTEGER :: person_id
! Define the nested structure 'name' with the field name 'nm'.
STRUCTURE /name/ nm
CHARACTER(LEN=10) :: last, first, mid
END STRUCTURE
END STRUCTURE
Given this definition, the following code defines the record p of structure person and the
record n of structure name:
RECORD /person/p
RECORD /name/n
If /struct-name/ is not present, then the structure can be used only in this declaration. For
example, we could redefine the person structure so that the nested structure no longer has a
name:
STRUCTURE /person/
INTEGER :: person_id
STRUCTURE nm
CHARACTER(LEN=10) :: last, first, mid
END STRUCTURE
END STRUCTURE
There is no way to declare a separate record of the nested structure because it has no name.
Note, however, that the nested structure still has a field name, nm. Thefieldnameisrequired.
To declare an array of nested structures, simply specify a dimension declarator with the
structure’s field name. For example, the following structure definition contains a nested,
3-element array of structures with field name phones of structure phone:
STRUCTURE /person/
INTEGER :: person_id
! Define the nested structure 'name' with the field name 'nm'.
STRUCTURE /name/ nm
CHARACTER(LEN=10) :: last, first, mid
END STRUCTURE
! Nested array of structures.
STRUCTURE /phone/ phones(3)
INTEGER(KIND=2) :: area_code
INTEGER :: number
END STRUCTURE
END STRUCTURE
Chapter 10 435