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