Argument Definitions (+ indicates altered content) CHARACTER AREA CHARACTER*64 FILENAME, FILEOUT CHARACTER METH
Description Execute with: call areamap(area,filename,fileout,meth) where: area = 'A' = normal area coverage = 'I' = INVERSE area coverage filename = input data file name to process fileout = output data file name to create If method={c,p} make fileout.da? files meth = 'm' = map only = 'c' = map with contours = 'p' = calculations & plots
Source file: areamap.f
I/O Operations: Unit ID Unit No Access Form Operation 29 SEQ FMTD ORW 29 SEQ A 29 C 32 SEQ FMTD OR 32 C * 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 ICHAR, IFIX REAL FLOAT GENERIC ABS
External Functions and Subroutines Called INTEGER LCOUNT SUBROUTINE ANTFILE_NAME, COL_FMT, DOSCOLR SUBROUTINE GETFREQS, GETTRA, SUFFIX, UNLINK SUBROUTINE WINCOLR
Local Variables (+ indicates altered content) CHARACTER*80 +ALF CHARACTER*5 +BEAM_ALF CHARACTER*100 +CARD CHARACTER*30 +CIRAFZ CHARACTER*4 +COEFFS CHARACTER*9 +DATA_DIR CHARACTER*70 +GRID_FILE CHARACTER +ICH CHARACTER*6 +MODEL CHARACTER*5 +PATH CHARACTER +PEW, +PNS CHARACTER*21 +RECFILE CHARACTER*5 +SUFIX CHARACTER*4 +SYSTEM_TYPE CHARACTER +TEW, +TNS CHARACTER*21 +XMTRFILE INTEGER +BANDW, ERROR_CODE, +I INTEGER +II, +IOS, +IYEAR, +J INTEGER +LAYERS(6), +NCH, +NCHG, +NCH_RUN INTEGER NFREQS, +NMONTHS, +NNOISE, +NPAGE0 INTEGER +NPSL REAL AREAFREQS(11), PLAT, +PLATD REAL PLON, +PLOND, TLAT, +TLATD REAL TLON, +TLOND, +XNOISE
Referenced Common Block Variables (+ indicates altered content) CRUN_DIRECTORY CHARACTER*50 RUN_DIRECTORY ZANTENNA CHARACTER*12 CITYNAME ZANTENNA CHARACTER*6 COLOR(6), +PARMS(5) ZANTENNA CHARACTER*10 +PLATDEG, +PLONDEG ZANTENNA CHARACTER*20 +PNAME ZANTENNA CHARACTER*10 +TLATDEG, +TLONDEG ZANTENNA CHARACTER*20 +TNAME ZANTENNA INTEGER +GRIDTYPE, +IHOUR(12) ZANTENNA INTEGER +ISHADES(10,5) ZANTENNA INTEGER +METHOD, +NGRID ZANTENNA INTEGER +NLEVELS(5) ZANTENNA INTEGER +NOISE, +NPARMS ZANTENNA INTEGER +RSN, +SSNA(12) ZANTENNA INTEGER +XLUFP ZANTENNA REAL +AMIND, +BEAM_MAIN ZANTENNA REAL +CONLEVELS(10,5) ZANTENNA REAL +DESIGN_FREQ ZANTENNA REAL +DMPX, +FPROB(4) ZANTENNA REAL +FREQ(12), +MONTHA(12) ZANTENNA REAL +PMP, +QINDEXA(12) ZANTENNA REAL +REC_BEAR, +REC_GAIN ZANTENNA REAL +TXPOWER, +XMAX ZANTENNA REAL +XMIN, +YMAX ZANTENNA REAL +YMIN
Argument Definitions (+ indicates altered content) INTEGER +NFREQS REAL +AREAFREQS(11), FREQ
Description -------------------------------------------------------------------- *
Source file: areamap.f
I/O Operations: Unit ID Unit No Access Form Operation 41 SEQ FMTD OR 41 SEQ A 41 C * SEQ FMTD W Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called INTEGER LCOUNT
Local Variables (+ indicates altered content) CHARACTER*24 +FILENAME INTEGER +I, +NCH_RUN
Referenced Common Block Variables (+ indicates altered content) CRUN_DIRECTORY CHARACTER*50 RUN_DIRECTORY
Argument Definitions (+ indicates altered content) CHARACTER*21 +FILE CHARACTER*4 SYSTEM_TYPE
Description -------------------------------------------------------------------- *
Source file: areamap.f
Intrinsic Functions Called INTEGER INDEX
External Functions and Subroutines Called SUBROUTINE RBLANKC
Local Variables (+ indicates altered content) CHARACTER +DIR_BAD, +DIR_GOOD INTEGER +IDX, +NCH
Argument Definitions (+ indicates altered content) REAL PLAT, PLON, TLAT, TLON
Description -------------------------------------------------------------------- *
Source file: areamap.f
External Functions and Subroutines Called SUBROUTINE CHARDEG, RBLANKC
Local Variables (+ indicates altered content) CHARACTER*10 +CDEG INTEGER IERR, +NCH
Referenced Common Block Variables (+ indicates altered content) ZANTENNA CHARACTER*10 PLATDEG, PLONDEG ZANTENNA CHARACTER*10 TLATDEG, TLONDEG
Argument Definitions (+ indicates altered content) CHARACTER*80 +CARD CHARACTER*12 +CITYNAME CHARACTER*6 +COLOR(6) INTEGER LU
Description -------------------------------------------------------------------- * read the COLORS & CITYNAME handle both OLD & NEW formats NEW format is compatible with HP UNIX format
Source file: areamap.f
I/O Operations: Unit ID Unit No Access Form Operation LU SEQ FMTD R Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called CHARACTER*6 COL_DOS INTEGER ICOLDOS, LCOUNT SUBROUTINE COLORTAB
Local Variables (+ indicates altered content) CHARACTER*6 +CITIES(6), +COLOR_NEW(5) CHARACTER +ICH CHARACTER*20 +SHADING, +SHADS(7) INTEGER +I, +NCHC
Argument Definitions (+ indicates altered content) CHARACTER*6 +COLOR INTEGER IDX
Source file: areamap.f
Local Variables (+ indicates altered content) CHARACTER*6 +CITIES(6), +COLORS(16), +CONTOURS(7) CHARACTER +ICH INTEGER +I