Argument Definitions (+ indicates altered content)

CHARACTER*6 MODEL

Source file:	read_asc.f

I/O Operations:

Unit ID Unit No Access Form Operation 29 SEQ FMTD OR 29 SEQ A 29 C Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write

External Functions and Subroutines Called

INTEGER LCOUNT

Local Variables (+ indicates altered content)

INTEGER +I, +I999, +NCH_RUN

Referenced Common Block Variables (+ indicates altered content)

CBOTLINES INTEGER +LINESBOT(14) CBOTLINES INTEGER +NBOTLINES CRUN_DIRECTORY CHARACTER*50 RUN_DIRECTORY CTOPLINES INTEGER +LINESTOP(7) CTOPLINES INTEGER +NTOPLINES FIELDS CHARACTER*50 +METHODNAME FIELDS CHARACTER*8 +REC_DIR FIELDS CHARACTER*12 +REC_FILE FIELDS CHARACTER*10 +RLATDEG, +RLONDEG FIELDS CHARACTER*20 +RNAME FIELDS CHARACTER*10 +TLATDEG, +TLONDEG FIELDS CHARACTER*20 +TNAME FIELDS INTEGER +FREQ(11), +ICOEFFS FIELDS INTEGER +IHR1, +IHR2 FIELDS INTEGER +IHRINC, +IPATH FIELDS INTEGER +ITIMECODE FIELDS INTEGER +METHOD, +NOISE FIELDS INTEGER +RSN, +SSNA(10) FIELDS INTEGER +XLUFP, +YEAR FIELDS REAL +AMIND, +DMPX FIELDS REAL +FPROB(4), +GCDKM FIELDS REAL +GCDMI, +GCDNMI FIELDS REAL*8 +MONTHA(10) FIELDS REAL +PMP FIELDS REAL*8 +QINDEXA(10) FIELDS REAL +REC_BEAR, +REC_GAIN FIELDS REAL +TAZR FIELDSA CHARACTER*8 +XMTR_DIR(4) FIELDSA CHARACTER*12 +XMTR_FILE(4) FIELDSA CHARACTER*10 +XMTR_MODEL(4) FIELDSA INTEGER +INDEX_ANT FIELDSA INTEGER +MAXFREQ(4) FIELDSA INTEGER +MINFREQ(4) FIELDSA INTEGER +NUMANTS FIELDSA REAL +BEAM_MAIN(4) FIELDSA REAL +DESIGN_FREQ(4) FIELDSA REAL +TXPOWER(4) FIELD_SSN INTEGER +UTIME(5) FIELD_SSN REAL*8 +FLAT(5), +FLON(5) FIELD_SSN REAL*8 +FOF2(5) FIELD_SSN REAL +SSN_AVE, +SSN_EFF(5) ZMETHOD INTEGER +KMETH