PRTDAY

SUBROUTINE 0 args, 155 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/PRTDAY.f90,0000002,0000286

PRTDAY	CALLed by	HRLOOP
	CALLs to	ATAN2 HEADER INT MIN MOD SQRT
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	IGRP INDGRP IREC ISRC NCPP NPPX NPPY NRPP WORKID
	Uses MODULE	AVEVAL AXR AXS AYR AYS AZS CHIDEP CHRAVE GRPID IAVE IGROUP IGRP IHOUR INDGRP INNET IOUNIT IREC IREF IRSTAT ISRC ITYP IYR JDAY NCPP NETEND NETSTA NPPX NPPY NRPP NSRC NTID NTTYP NUMGRP NUMREC NUMSRC NUMXPT NUMYPT OUTLBL POLLUT RECTYP SRCID SRCTYP WORKID XCOORD YCOORD
	Uses Argument	**NOTHING**
	Chng Argument	**NOTHING**
	Uses PARAMETER	RTODEG
	Local Var	BUF132 DIR DIST I II INDC INDEXW INDZ ISRF J K MODNAM NX NY XRMS YCOVAL YRMS

---

GXCHK Version 7.50ME executed at 21:26 on 17 Mar 2021