| !HEADER1 |
| !HEADER2 |
| !HEADER3 |
| NPTSPC LOWSPC RESSPC UPPSPC LABSPC |
| SPC(1) SPC(2) |
| ... SPC(NPTSPC) |
| [eof] |
| !HEADER1 |
| !HEADER2 |
| !HEADER3 |
| NPTSPC LOWSPC RESSPC UPPSPC LABSPC |
| NPTREC(1) SPC(1) ... SPC(NPTREC(1)) |
| NPTREC(2) SPC(NPTREC(1)+1) ... SPC(NPTREC(1)+NPTREC(2)) |
| ... |
| NPTREC(n) SPC(NPTSPC-NPTREC(n)+1) ... SPC(NPTSPC) |
| [eof] |
| Field | Type | Description | Variations |
|---|---|---|---|
| !HEADER1 | C*80 | Spectrum type, ray-path and RFM version ID | |
| !HEADER2 | C*80 | Text read from *HDR section of Driver Table | |
| !HEADER3 | C*80 | Captions for next record | JAC Flag: Jacobian info |
| NPTSPC | I | No. spectral points in file | |
| LOWSPC | R*8 | Lower limit [cm-1] of spectrum | GHZ Flag: [GHz] |
| RESSPC | R*8 | Resolution [cm-1] of spectrum | GHZ Flag: [GHz] |
| UPPSPC | R*8 | Upper limit [cm-1] of spectrum | GHZ Flag: [GHz] |
| LABSPC | C*(*) | Spectral Label or (if no label) Type | |
| NPTREC | I | No.spectral points in record | BIN Flag only |
| SPC | R*4 | Spectral Data | DBL Flag: R*8 |
Suggested FORTRAN code for reading RFM binary filesINTEGER I, J, N, NPTS REAL X(MAXARR) ! Or DOUBLE PRECISION for DBL flag DOUBLE PRECISION WNO1, WNOD CHARACTER*80 RECORD C OPEN ( UNIT=LUN, FILE=FILNAM, STATUS='OLD', FORM='UNFORMATTED' ) C READ ( LUN ) RECORD ! Skip 3 header records READ ( LUN ) RECORD READ ( LUN ) RECORD C READ ( LUN ) NPTS, WNO1, WNOD ! No.pts, 1st Wno, Wno increment C J = 0 ! J=number of points read so far DO WHILE ( J .LT. NPTS ) READ ( LUN ) N, ( X(I), I = J+1, J+N ) J = J + N END DO C