Argument Definitions (+ indicates altered content)

CHARACTER*64 FILEOUT

Source file:	hfmufs2.f

I/O Operations:

Unit ID Unit No Access Form Operation * SEQ FMTD W 48 SEQ FMTD W LUO 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

External Functions and Subroutines Called

INTEGER LCOUNT SUBROUTINE CURMUF, DECRED, DISTXY, ESIND SUBROUTINE F2VAR, FRQCOM, GEOM, GEOTIM SUBROUTINE IONSET, LISTIN, LUFFY, OUTLIN SUBROUTINE REDAILY, REDMAP, SANG, SETLUF SUBROUTINE SETOUT, SETVARS, TIMVAR, VIRTIM SUBROUTINE YIELDIT

Local Variables (+ indicates altered content)

CHARACTER*4 +ALF INTEGER +I, +IF, +IFREQ, +IPFG INTEGER +IQUIET, +IUR, +JT, +METH INTEGER +NCH_RUN REAL +RLAT_DIST, +RLON_DIST, +TLONGDX

Referenced Common Block Variables (+ indicates altered content)

ALPHA CHARACTER*3 IMON(12) CDAILY INTEGER +IDAILY(12) CDAY INTEGER +IDAY CDISTANCE INTEGER +IDISTANCE CDISTANCE INTEGER +IHR, NDISTANCE CHOURS INTEGER IHOURS(24) CHOURS INTEGER NHOURS CNFREQS INTEGER +NFREQS CON REAL D2R CONTRL INTEGER MONTHS(12) CONTRL INTEGER MSPEC CONTRL REAL SUNSP(12) CRUN_DIRECTORY CHARACTER*50 RUN_DIRECTORY CTIME INTEGER NTIME CVERSN CHARACTER*8 VERSN 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 METHOD, NPSL LPATH REAL GCDLNG METSET INTEGER ITRUN MUFS REAL ALLMUF(24) SSP INTEGER +MONTH TIME INTEGER IT, +JTX