Description

PURPOSE: initialize CCIR antenna calculations in propagation programs INPUT PARAMETERS: in COMMON /CCIRPARM/ OUTPUT PARAMETERS: Written by Greg Hand NTIA/ITS Boulder, Colorado Aug 1991 Please call (303)497-3375 with any questions. Calls following routines: trigfun logparm parmprec gainorm

Source file:	antinit2.f

I/O Operations:

Unit ID Unit No Access Form Operation * 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 REAL ALOG GENERIC ATAN, COS, SIN, SQRT

External Functions and Subroutines Called

SUBROUTINE GAINORM, LOGPARM, PARMPREC, SETMAXGAIN SUBROUTINE TRIGFUN

Local Variables (+ indicates altered content)

INTEGER +IANT, +IFS, +IONCE, +IPERF INTEGER +NEL REAL +DC, +DIAM, +EPSR, +FD REAL +FDX, +FDX1, +FDX2, +FR REAL +HNEL, +PHI, +RL1, +RLNEL REAL +SD, +VVST, +WD, +WS REAL +Z0

Referenced Common Block Variables (+ indicates altered content)

CCIRPARM REAL PARM(20), +UMAX CCIRPARM REAL +VMAX, +Z6 CCPARM REAL +AH1, +BH1 CCPARM REAL +UUST CROS REAL +CP11, +CPFR CROS REAL +FR1, +H1 CROS REAL +P11, +P11S CROS REAL +PFR, +Q2 CROS REAL +R2, +R3 CROS REAL +SL FLOORC REAL +FLOOR GENERAL REAL +BETA, +D1 GENERAL REAL +E1, +F1 GENERAL REAL +P1, +Q1 GENERAL REAL +RLAMBDA, +S1 SURF REAL +COSTH, +EPQ SURF REAL +GAMMA, +RNUMB SURF REAL +RO, +SINTH TRIG REAL A(0:361), B(0:361)