SUBROUTINE HFAREA ( * )

Description
hfarea.f
Source file:hfarea.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
GENERIC            ABS,        MOD
External Functions and Subroutines Called
INTEGER            LCOUNT
SUBROUTINE         CURMUF,     DAZEL0,     ESIND,      F2VAR
SUBROUTINE         GEOM,       GEOTIM,     GRIDXY,     IONSET
SUBROUTINE         LUFFY,      OUTAREA,    REDAILY,    REDMAP
SUBROUTINE         SANG,       SETLUF,     SETOUT,     TIMVAR
SUBROUTINE         UNLINK,     VIRTIM
Local Variables (+ indicates altered content)
INTEGER            ERROR_CODE,            +I,         +IFREQ
INTEGER           +IPFG,      +IUR,       +IX,        +IY
INTEGER           +JT,        +METH,      +NCH_RUN
LOGICAL*1         +DOESIT
REAL              +D2R,        DIST,       ZTAZ
Referenced Common Block Variables (+ indicates altered content)
ALPHA              CHARACTER*3        IMON(12)
CANTENNA           REAL              +BEAMMAIN(20)
CAREACH            CHARACTER          AREACH
CCANCEL_BATCH      INTEGER            ICANCEL_BATCH
CDAILY             INTEGER            IDAILY(12)
CDAY               INTEGER           +IDAY
CONTRL             INTEGER            MONTHS(12)
CONTRL             INTEGER            MSPEC
CONTRL             REAL               SUNSP(12)
CQUIET             INTEGER            IQUIET
CRUN_DIRECTORY     CHARACTER*50       RUN_DIRECTORY
DON                REAL               GCDKM,    +RLAT
DON                REAL              +RLATD,    +RLONG
DON                REAL              +RLONGD,   +SSN
DON                REAL              +TLAT,      TLATD
DON                REAL              +TLONG,    +TLONGD
FILES              INTEGER            LU5,       LU6
FILES              INTEGER           +LUI,      +LUO
FRQ                REAL              +FREL(29)
ION                INTEGER            IHRO,      METHOD
LPATH              REAL               GCDLNG
MUFS               REAL              +ALLMUF(24)
RGRID              INTEGER            NX,        NY
SSP                INTEGER           +MONTH
TIME               INTEGER            IT,       +JTX
TON                INTEGER           +NF

REAL FUNCTION ROUNDIT ( X )

Argument Definitions (+ indicates altered content)
REAL               X
Source file:hfarea.f
Intrinsic Functions Called
REAL               FLOAT
GENERIC            ABS
Local Variables (+ indicates altered content)
INTEGER           +IX