SUBROUTINE OUTTOP ( )

Description
THIS ROUTINE OUTPUTS THE HEADER INFORMATION WHICH INCLUDES THE 
METHOD, VERSION NUMBER OF THE PROGRAM AND PAGE NUMBER. OTHER 
OUTPUT CONSISTS OF THE USER DEFINED INPUT INFORMATION AND DEPENDS 
ON THE METHOD. SUBROUTINE SETOUT SETS THE LINES TO BE OUTPUT IN AN 
ARRAY CALLED LINTOP(I) WHERE THE INDEX REFERS TO THE FOLLOWING 
=1 OUTPUT MONTH, YEAR AND SUNSPOT NUMBER & MINIMUM TAKE-OFF ANGLE 
=2 OUTPUT INFORMATION ON "LABEL" CONTROL CARD 
=3 OUTPUT TRANSMITTER AND RECEIVER INFORMATION CONSISTING OF 
   COORDINATES, AZIMUTH AND GREAT CIRCLE DISTANCE 
=4 OUTPUT TRANSMITTER ANTENNA INFORMATION & OUTPUT POWER 
=5 OUTPUT RECEIVER ANTENNA INFORMATION 
=6 3 MHZ MAN-MADE NOISE, REQUIRED RELIABILITY AND REQUIRED SNR 
=7 OUTPUT THE MULTIPATH POWER TOLERANCE AND DELAY TIME TOLERANCE
Source file:outtop.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
   JOUT                   SEQ  FMTD           W  
    LUO                   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
GENERIC            ABS
Local Variables (+ indicates altered content)
CHARACTER         +ITOP,      +MFORM
CHARACTER*6       +PATH
INTEGER           +I,         +KNT,       +METH
REAL              +GCDNMI
Referenced Common Block Variables (+ indicates altered content)
ALPHA              CHARACTER*3        IMON(12)
ALPHA              CHARACTER*10       IRCVR(2)
ALPHA              CHARACTER         +IRLAT,    +IRLONG
ALPHA              CHARACTER         +ITLAT,    +ITLONG
ALPHA              CHARACTER*10       ITRAN(2)
ALPHA              CHARACTER*5        NYEAR
CANTENNA           CHARACTER*24       ANTFILE(20)
CANTENNA           CHARACTER*10       ANTTYPE(20)
CANTENNA           INTEGER            IATS(20),  NUMANTS
CANTENNA           REAL               BEAMMAIN(20)
CANTENNA           REAL               OFFAZIM(20)
CANTENNA           REAL               XFQE(20),  XFQS(20)
CCOEFF             CHARACTER*4        COEFF
CDAY               INTEGER            IDAY
CDISTANCE          INTEGER            IDISTANCE
CDISTANCE          INTEGER            IHR,       NDISTANCE
CMODEL             CHARACTER*8        MODEL
CONTRL             INTEGER            MSPEC
CTIME              INTEGER            NTIME
CVERSN             CHARACTER*8        VERSN
DON                REAL               AMIND,     BRTD
DON                REAL               BTRD,      DMP
DON                REAL               GCDKM,     PMP
DON                REAL               RLATD,     RLONGD
DON                REAL               RSN,       SSN
DON                REAL               TLATD,     TLONGD
FILES              INTEGER            LUO
ION                INTEGER            LUFP,      METHOD
ION                INTEGER            NPSL
OUTPRT             INTEGER           +JOUT,     +LINES
OUTPRT             INTEGER            LINTOP(15)
OUTPRT             INTEGER           +LPAGES
PANTENNA           REAL               PWRKW(20)
SSP                INTEGER            MONTH
TIME               INTEGER            JTX
TON                REAL               ZNOISE