SUBROUTINE READANT ( LU, FILENAME, DESCRIPTION )

Argument Definitions (+ indicates altered content)
CHARACTER*70      +DESCRIPTION
CHARACTER*(*)      FILENAME
INTEGER            LU
Source file:readant.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
     LU                   SEQ  FMTD         OR   
     LU                   SEQ          A         
               13         DIR   UNF         O W  
               14         DIR   UNF         O W  
     LU                                   C      
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
INTEGER            NINT
External Functions and Subroutines Called
INTEGER            LCOUNT,     LEN_TRIM
SUBROUTINE         RBLANKC
Local Variables (+ indicates altered content)
CHARACTER*80      +ALF
INTEGER           +I,         +IANG,      +IELEV,     +IFREQ
INTEGER           +IOS,       +JANT,      +N,         +NC1
INTEGER           +NCH,       +NCH_RUN
REAL              +EFF
Referenced Equivalenced Variables (+ indicates altered content)
EQUIV              REAL              +GAINS()    Local Var
                   REAL              +GAIN_TYPE11()COMMON /CTYPE11G/
Referenced Common Block Variables (+ indicates altered content)
CCIRPARM           INTEGER           +MODEGAIN
CCIRPARM           REAL              +GAINMAX(3,2)
CCIRPARM           REAL              +GAINMAXB(30)
CCIRPARM           REAL              +PARM(20)
CRUN_DIRECTORY     CHARACTER*50       RUN_DIRECTORY
CTYPE11G           REAL              +GAIN_TYPE11(91)
DESIGNFREQ         REAL              +FREQDESIGN
GAIN_10            REAL              +GAIN10(90,29)