FORTRAN Reference Manual

Language Elements
FORTRAN Reference Manual—528615-001
2-21
Writing a RECORD Declaration
You can use the Data Definition Language (DDL) to share FORTRAN RECORD
definitions between FORTRAN modules. For more information, see the Data Definition
Language (DDL) Reference Manual.
Writing a RECORD Declaration
A RECORD declaration must begin with a RECORD statement and end with an END
RECORD statement. You can declare a dimensioned RECORD, but a dimensioned
RECORD cannot have more than one dimension.
The fields of a RECORD declaration can be:
•
Data type declarations
•
FILLER declarations
•
RECORD declarations
•
EQUIVALENCE statements
A data type declaration, including an array declaration, is an elementary field of a
RECORD. An elementary field is a field that is not itself a RECORD. RECORD fields
that are arrays can have only one dimension:
RECORD a
INTEGER b(20) <-- One-dimensional array is OK
INTEGER c(10, 20) <-- Two-dimensional array is NOT valid
END RECORD
A FILLER declaration defines a specified number of one-byte pad characters within a
RECORD and enables you to align character positions when you equivalence
RECORDs. You write a FILLER declaration in the following form:
FILLER * number
where number specifies the number of pad characters. number cannot exceed 255.
A RECORD declaration can include nested records. A nested RECORD is a
nonelementary field of a RECORD and has the properties associated with data of type
character. A nested RECORD can have at most one dimension. You can nest
RECORDs within RECORDs to a maximum depth of 15 levels.
An EQUIVALENCE statement in a RECORD declaration can refer to any data item that
appears at the same nesting level as the EQUIVALENCE statement. You must refer to
any equivalenced entity as a unit. You can equivalence array names or character
variable names but not array elements or substrings.