VMS Help FORTRAN, Data, Records, Examples  *Conan The Librarian (sorry for the slow response - running on an old VAX)

  Structure APPOINTMENT:

     Structure /APPOINTMENT/
       RECORD /DATE/             APP_DATE
       STRUCTURE /TIME/          APP_TIME (2)
           LOGICAL*1             HOUR, MINUTE
       END STRUCTURE
       CHARACTER*20              APP_MEMO (4)
       LOGICAL*1                 APP_FLAG
     END STRUCTURE

  The following statement results in the creation of both a variable
  named NEXT_APP and a 10-element array named APP_LIST.  Both the
  variable and each element of the array have the form of the
  structure APPOINTMENT.

     RECORD /APPOINTMENT/ NEXT_APP,APP_LIST(10)

  The following examples show aggregate and scalar field references.

  Aggregate:

    NEXT_APP                ! The record NEXT_APP
    NEXT_APP.APP_TIME(1)    ! An array field of the variable
                            ! NEXT_APP
    APP_LIST(3).APP_DATE    ! A 4-byte array field in the record array
                            ! APP_LIST(3)

  Scalar:

    NEXT_APP.APP_FLAG       ! A LOGICAL field of the record
                            ! NEXT_APP

    NEXT_APP.APP_MEMO(1)(1:1)
                            ! The first character of APP_MEMO(1),
                            ! a character*20 field of the record
                            ! NEXT_APP