SPRTHT

SUBROUTINE 1 args, 155 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/SPRTHT.f90,0000002,0000308
SPRTHT CALLed by PRTNHI
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 AXR AXS AYR AYS AZS CHIDEP CHRAVE GRPID HCLMSG HIVALU IAVE IGROUP IGRP INDGRP INNET IOUNIT IREC IREF IRSTAT ISRC ITYP NCPP NETEND NETSTA NHIDAT NPPX NPPY NRPP NSRC NTID NTTYP NUMGRP NUMREC NUMSRC NUMXPT NUMYPT OUTLBL POLLUT RECTYP SRCID SRCTYP WORKID XCOORD YCOORD
Uses Argument IHNUM
Chng Argument **NOTHING**
Uses PARAMETER RTODEG
Local Var BUF132 CHRVAL 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