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