SUBROUTINE READ_ASC ( MODEL, * )

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