SUBROUTINE AREAMAP ( AREA, FILENAME, FILEOUT, METH )

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

SUBROUTINE GETFREQS ( FREQ, AREAFREQS, NFREQS )

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

SUBROUTINE ANTFILE_NAME ( FILE, SYSTEM_TYPE )

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

SUBROUTINE GETTRA ( TLAT, TLON, PLAT, PLON )

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

SUBROUTINE COL_FMT ( LU, CARD, COLOR, CITYNAME )

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

SUBROUTINE COLORTAB ( IDX, COLOR )

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