C234567
C We declare the test record as an array of bytes
INTEGER*1 TESTREC(24)
C
C MAGIC: We load in the magic number (in decimal)
TESTREC(1) = 71
TESTREC(2) = -13
TESTREC(3) = 70
TESTREC(4) = -29
C
C MACHID: VAX/VMS
TESTREC(5) = 1
C
C NUMOBJECTS: We will write only one object,
C so this can be 0 or 1.
TESTREC(6) = 0
C
C SPECA: We use ASCII, and the VAX is a little-endian
C machine
TESTREC(7) = 13
C
C RESERVED1
TESTREC(8) = 0
C
C RECHDR: We are using VAX Fortran Record Headers
C (I.e., segmented variable length records)
TESTREC(9) = 2
C
C RESERVED2
TESTREC(10) = 0
C
C SPECB: In Fortran, arrays are in column-major order,
C and array indices start from 1.
TESTREC(11) = 3
C
C SLEN: On a VAX, a short integer is 16 bits
TESTREC(12) = 16
C
C LLEN: On a VAX, a long integer is 32 bits
TESTREC(13) = 32
C
C FLEN: On a VAX, a floating-point number is 32 bits
TESTREC(14) = 32
C
C DLEN: On a VAX, a double precision floating-point
C number is 64 bits
TESTREC(15) = 64
C
C FPFORM: We are using VAX format floating-point numbers
C (VAX D for double precision).
TESTREC(16) = 34
C
C MORE RESERVED...
TESTREC(17) = 0
TESTREC(18) = 0
TESTREC(19) = 0
TESTREC(20) = 0
TESTREC(21) = 0
TESTREC(22) = 0
TESTREC(23) = 0
TESTREC(24) = 0
C
C Now write it all out
WRITE(LUNIT) TESTREC
C