Argument Definitions (+ indicates altered content)

REAL BAZIM, BMAIN, DEL, +GAIN

Description

bmain- is main beam azmuthal bearing (degrees) bazim- is azimuthal bearing (degrees) to calculate del - is elevation angle (degrees) gain - is returned calculates gain of antenna for azimuthal offset and elevation angle

Source file:	antc.f

Intrinsic Functions Called

INTEGER NINT REAL FLOAT

External Functions and Subroutines Called

SUBROUTINE CCIRGAIN, CURTAIN

Local Variables (+ indicates altered content)

INTEGER +IELEV, +IFREQ, +JANT REAL +FREQ, +GN, +OFAZ

Referenced Common Block Variables (+ indicates altered content)

CCIRPARM REAL GISO, GNORM(30) CCIRPARM REAL PARM(20), Z6 CTYPE11G REAL GAIN_TYPE11(91) GAIN_10 REAL GAIN10(90,29)

Argument Definitions (+ indicates altered content)

REAL AZIMD, ELEVD, GNORM, PARM(15) REAL +XMGN

Description

AZIMD= Degrees from Boresight ELEVD= Elevation angle Degrees parm( 1)= gain above isotrope (not used) ( 2)= antenna type [should be 12] ( 3)= Dielectric ( 4)= Conductivity ( 5)= Operating freq ( 6)= # of bays ( 7)= # elements per bay (# of stacks) ( 8)= Design Frequency ( 9)= Antenna element length (>0=meters <0=wavelengths) (10)= Height above ground (>0 <0) (11)= Horiz Dist between dipole centers (>0 <0) (12)= Vertical displacement (>0 <0) (13)= Distance from Screen (>0 <0) (14)= Vertical Excitation (mode number) (15)= Horizontal Slew Angle

Source file:	antc.f

Intrinsic Functions Called

INTEGER NINT GENERIC ABS, SIGN

External Functions and Subroutines Called

SUBROUTINE PATTRN0

Local Variables (+ indicates altered content)

CHARACTER +ICHR CHARACTER*4 +IVMA(15) INTEGER +I, +IAZ INTEGER +IPHASE(14,8) INTEGER +ISLEW, +K, +KSLEW, +MODE REAL +AZIM, +D2R, +PI, +PIO2 REAL +VOFL, +WAVE

Referenced Common Block Variables (+ indicates altered content)

ANTDAT INTEGER +NOSTAK, +NUMBAY ANTDAT REAL +BAYPHS(14) ANTDAT REAL +BAYSPM, +DFMHZ ANTDAT REAL +DIPLNM, +OFMHZ ANTDAT REAL +RRSPM, +STKHTM ANTDAT REAL +STKRAT(8) ANTDAT REAL +STKSPM

Argument Definitions (+ indicates altered content)

REAL AZIM, ELEV, +FACTOR, +XGN

Description

SUBPROGRAM USAGE SGAIN - computes power gain dBi COMMON BLOCKS: ANTDAT nostak - NUMBER OF VERTICAL STACKS STKSPM - SPACING BETWEEN STACKS NUMBAY - NUMBER OF BAYS BAYSPM - SPACING BETWEEN BAYS DIPLNM - LENGTH OF DIPOLE RADIATOR RRSPM - SPACING BETWEEN RADIATORS AND REFLECTING SCREEN STKHTM - HEIGHT OF LOWEST STACK ABOVE GROUND STKRAT - CURRENT RATIO FOR STACKS BAYPHS - RELATIVE PHASE FOR THE BAYS BAYRAT - CURRENT RATIO FOR THE BAYS (ALWAYS = 1) OFMHZ - ANTENNA OPERATING FREQUENCY DFMHZ - ANTENNA DESIGN FREQUENCY CONST PI - MATHEMATICAL SYMBOL PI = 3.14159 VOFL - VELOCITY OF LIGHT FOR FREQUENCY IN MEGAHERTZ = 3.0E- PI2 - 2 * PI PIO2 - PI / 2 D2R - CONVERSION FACTOR FOR DEGREES TO RADIANS CONVERSION = PI / 180. R2D - CONVERSION FACTOR FOR RADIANS TO DEGREES CONVERSION = 180 / PI FWAVE EIL - 0.5 * LENGTH OF DIPOLE IN radianS XB - SPACING BETWEEN BAYS IN radiansS XS - SPACING BETWEEN STACKS IN radianS XH - HEIGHT OF LOWEST STACK ABOVE GROUND IN radianS XR - REFLECTOR TO DIPOLE SPACING IN radianS C(8) - ARRAY OF RELATIVE STACK CURRENT MAGNITUDE RATIOS R(14) - ARRAY OF RELATIVE BAY CURRENT MAGNITUDE RATIOS PS(14) - ARRAY OF BAY CURRENT PHASE RATIOS IN RADIANS INCLUDIN FREQUENCY ADJUSTMENT FOR OPERATING FREQUENCY NOT EQUAL TO DESIGN FREQUENCY A(8) - ARRAY OF STACK CURRENT PHASE RATIOS IN RADIANS, CURRENTLY DEFAULTED TO ZERO Y(14) - ARRAY CONTAINING THE SPACINGS BETWEEN THE BAY DIPOLES IN radianS (RELATIVE TO BAY 1) Z(8) - ARRAY CONTAINING THE SPACINGS BETWEEN THE STACK DIPOL IN radianS (RELATIVE TO STACK 1) WAVE - OPERATING FREQUENCY WAVELENGTH BETA - OPERATING FREQUENCY WAVE NUMBER (K=2*PI/WAVE) DUMMY ARGUMENTS: AZIM - an azimuth counter-clockwise from Boresight RADIANS ELEV - an elevation angle above the horizon RADIANS XGN - antenna gain (dB) for AZIM, ELEV FACTOR - integral result for antenna gain normalization

Source file:	antc.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 IABS REAL ALOG10, FLOAT GENERIC ABS, COS

External Functions and Subroutines Called

REAL F2 SUBROUTINE DBLTRAP

Local Variables (+ indicates altered content)

INTEGER +IB, +IS, +NBS REAL +D2R, DINTGL, +EL, +ODRAT REAL +PI, +PI2, +VOFL, +XGAIN

Referenced Common Block Variables (+ indicates altered content)

ANTDAT INTEGER NOSTAK, NUMBAY ANTDAT REAL BAYPHS(14) ANTDAT REAL BAYSPM, DFMHZ ANTDAT REAL DIPLNM, OFMHZ ANTDAT REAL RRSPM, STKHTM ANTDAT REAL STKRAT(8) ANTDAT REAL STKSPM FWAVE REAL +BETA, +C(8) FWAVE REAL +CEIL, +EIL FWAVE REAL +PS(14), +R(14) FWAVE REAL +WAVE, +XB FWAVE REAL +XH, +XR FWAVE REAL +XS, +Y(14) FWAVE REAL +Z(8)