SUBROUTINE VOACAP ( IGRAPH )

Argument Definitions (+ indicates altered content)
INTEGER            IGRAPH
Description
ioncap.f 
          this routine executes VOACAP
Source file:voacap.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
               31         SEQ  FMTD         O W  
               31         SEQ          A         
               32         SEQ  FMTD         OR   
               32                         C      
               31                         C      

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
REAL               FLOAT
GENERIC            ABS
External Functions and Subroutines Called
INTEGER            LCOUNT
SUBROUTINE         ANTFILE,    BENCHFIX,   GETTR
Local Variables (+ indicates altered content)
CHARACTER*80      +ALF
CHARACTER*21       ANTFILE_NAME
CHARACTER*4       +COEFFLIST(2)
CHARACTER         +PATH(2),   +REW,       +RNS,       +TEW
CHARACTER         +TNS
INTEGER           +I,         +IFLAG,     +MET,       +N
INTEGER           +NCH,       +NCH_RUN,   +NPAGE0
REAL               RLAT,      +RLATD,      RLON,      +RLOND
REAL               TLAT,      +TLATD,      TLON,      +TLOND
REAL              +XNOISE
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*8        REC_DIR
FIELDS             CHARACTER*12       REC_FILE
FIELDS             CHARACTER*20       RNAME,     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)
FIELDS             REAL*8             MONTHA(10)
FIELDS             REAL               PMP,       REC_BEAR
FIELDS             REAL               REC_GAIN
FIELDSA            CHARACTER*8        XMTR_DIR(4)
FIELDSA            CHARACTER*12       XMTR_FILE(4)
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)