PRTREC

SUBROUTINE 0 args, 255 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/PRTREC.f90,0000003,0000395

PRTREC	CALLed by	INPSUM
	CALLs to	ATAN2 HEADER INT MOD SQRT
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	NCPP NPPX NPPY NRPP
	Uses MODULE	AXR AXS AYR AYS AZELEV AZFLAG AZHILL ELEV FLGPOL INNET IOUNIT IREF IRSTAT NCPP NETEND NETSTA NPPX NPPY NRPP NTID NTTYP NUMREC NUMXPT NUMYPT RECTYP SRCID XCOORD XORIG YCOORD YORIG
	Uses Argument	**NOTHING**
	Chng Argument	**NOTHING**
	Uses PARAMETER	RTODEG
	Local Var	BUF132 I INDC INDZ J K MODNAM NX NY RADIAL RANGE XRMS YCOVAL YRMS

---

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