SUBROUTINE ANTCALC ( FILENAME, METHOD )

Argument Definitions (+ indicates altered content)
CHARACTER*20       FILENAME
CHARACTER          METHOD
Description
Execute with: 
   antcalc filename method 
where: 
      filename = propagation input data file to process 
                 (e.g. voacapx.dat) 
      method   = a = area coverage method 
               = i = inverse area 
               =   = point-to-point method
Source file:antcalc.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  
               21         SEQ  FMTD         OR   
               21         SEQ          A         
               22         SEQ  FMTD         O W  
               22         SEQ          A         
               13         DIR   UNF          R   
               14         DIR   UNF          R   
               22                         C      
               21                         C      

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
INTEGER            NINT
REAL               FLOAT
External Functions and Subroutines Called
INTEGER            LCOUNT
SUBROUTINE         ANTCAL,     ANTINIT2,   ANTMODEL,   ANTSAVE
SUBROUTINE         DAZEL0,     HARRIS,     INVCON,     IONGAIN
SUBROUTINE         IONINIT,    MUFESGAN,   MUFESINT,   READANT
Local Variables (+ indicates altered content)
CHARACTER*80      +ALF
CHARACTER*21      +ANTFILE
CHARACTER*40      +ANTFILE40
CHARACTER*10       ANTTYPE
CHARACTER*70       DESCRIPTION
CHARACTER*10      +FILEANT
CHARACTER         +METHODX,   +PATH,      +RLATNS,    +RLONEW
CHARACTER         +TLATNS,    +TLONEW
CHARACTER*8       +XMTRECV(2)
INTEGER           +I,         +IAZIM,     +IAZIM2,    +IDX
INTEGER           +IELEV,     +IF,        +IFREQ,     +IFREQ2
INTEGER           +INDX,      +ITR,       +J,         +JANT
INTEGER           +KAS,       +MAXFREQ,   +MINFREQ,   +NCH_RUN
REAL               AEPS,       AEX(4),     AND,        ANH
REAL               ANL,       +ANTGAINS(30,91)
REAL              +AREAGAIN(91),           ASIG,      +AZIMUTH
REAL              +BEAM_MAIN, +DELEV,     +DESIGN_FREQ
REAL              +EFF,       +EFF1,      +EFF2
REAL              +EFFICIENCY(30),        +ELEV,      +FE
REAL              +FRACT,     +FREQ,      +FREQAREA(11)
REAL              +FS,        +G,         +G1,        +G2
REAL              +GAINS1(91),            +GAINS2(91)
REAL              +OFFAZIM,   +RGAIN,     +RLAT,      +RLON
REAL              +TLAT,      +TLON,       ZDGC,      +ZTAZ(2)
Referenced Common Block Variables (+ indicates altered content)
CCIRPARM           REAL              +PARM(20)
CQUIET             INTEGER            IQUIET
CRUN_DIRECTORY     CHARACTER*50       RUN_DIRECTORY
DESIGNFREQ         REAL              +FREQDESIGN

SUBROUTINE ANTSAVE ( IANTR, IAZIM, FREQ, EFF, AREAGAIN )

Argument Definitions (+ indicates altered content)
INTEGER            IANTR,      IAZIM
REAL               AREAGAIN(91),           EFF,        FREQ
Description
                                                              * 
save into /cantenna/ array to save DECRED the effort 
for area coverage, we can remove the write & read since antcalc 
is back inside the propagation program.
Source file:antcalc.f
Intrinsic Functions Called
INTEGER            NINT
Local Variables (+ indicates altered content)
INTEGER           +IELEV
REAL              +GAIN
Referenced Common Block Variables (+ indicates altered content)
CANTENNA           REAL              +AEFF(30,20)
CAREAANT           INTEGER*2         +IARRAY360(360,91,2)

SUBROUTINE ANTPRINT ( )

Description
                                                              * 
save into /cantenna/ array to save DECRED the effort 
for area coverage, we can remove the write & read since antcalc 
is back inside the propagation program.
Source file:antcalc.f