SUBROUTINE OUTANT ( )
Description
outant.f 
 
 
   THIS ROUTINE OUTPUTS THE ANTENNA PATTERNS GENERATED IN GETANT 
   IF METHOD IS 13,14 OR 15 AND CREATES AN ANTENNA FILE IF USER 
   REQUEST WAS MADE VIA AN "ANTOUT" CONTROL CARD.
Source file:outant.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
    LUO                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Local Variables (+ indicates altered content)
CHARACTER*46      +ITL
CHARACTER*11      +XMTRECV(2)
INTEGER           +I,         +IAN,       +IF,        +IF1
INTEGER           +IF2,       +IFF(21),   +ITR,       +ITR1
INTEGER           +ITR2,      +K,         +L,         +M
INTEGER           +N,         +NF
Referenced Common Block Variables (+ indicates altered content)
CANTENNA           CHARACTER*24       ANTFILE(20)
CANTENNA           CHARACTER*70       ANTNAME(20)
CANTENNA           CHARACTER*10       ANTTYPE(20)
CANTENNA           INTEGER            IATS(20),  NUMANTS
CANTENNA           REAL               AEFF(30,20)
CANTENNA           REAL               ARRAY(30,91,20)
CANTENNA           REAL               BEAMMAIN(20)
CANTENNA           REAL               COND(20),  DESIGNFREQ(20)
CANTENNA           REAL               DIEL(20),  OFFAZIM(20)
CANTENNA           REAL               XFQE(20),  XFQS(20)
CMODEL             CHARACTER*8        MODEL
CVERSN             CHARACTER*8        VERSN
FILES              INTEGER            LUO
ION                INTEGER            METHOD
OUTPRT             INTEGER           +LPAGES