CALIB

/* CALIB.SCS */
/* Written : 1982  (RK) */
/* Last modified : 6/13/88  (RK) */
/* Source schema for storage of calibration data by NEUCAL */
01  SCHNAM TYPE STRING LENGTH 8
01  RECLNT                         /* in blocks */
01  ANID TYPE STRING LENGTH 12
01  DSID TYPE STRING LENGTH 12
01  DATE TYPE STRING LENGTH 8      /* in the form DDMMM-YY */
01  TIME                           /* in 10ths of seconds */
01  EXTYP TYPE STRING LENGTH 4
/* The above completes the mandatory header */
01  FREQ TYPE RG
    02  LOW TYPE REAL              /* Frequency range and increment */
    02  HIGH TYPE REAL             /* in Hz */
    02  INC TYPE REAL
01  NTIMES                         /* No. of frequencies */
01  DSSN                           /* DSS number */
01  RFTIME TYPE REAL               /* Rise/Fall time (secs) */
01  NHARM                          /* No. of harmonics (incl fund.) */
01  CORCRV TYPE STRING LENGTH 12   /* Correction curve name */
01  LDUMMY
01  DUMMY TYPE INTEGER LENGTH LDUMMY
01  DATA TYPE RG OCCURS NTIMES TIMES        /* Data stored so phase */
    02  CALDAT TYPE RG OCCURS NHARM TIMES   /* and amplitude alternate */
        03  SPLMAX TYPE REAL
        03  PHASE TYPE REAL
00