SETPOL

SUBROUTINE 0 args, 87 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/SETPOL.f90,0000002,0000137
SETPOL CALLed by REPOLR
CALLs to COS ERRHDL SBYVAL SIN
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE AXR AYR AZELEV AZFLAG AZHILL DUMMY IRXR IRYR IRZE IRZF IRZH ISET ITAB NETEND NETID NETSTA NTID NTTYP NUMXPT NUMYPT NXTOX NYTOX RECTYP XORIG YORIG
Uses MODULE ICOUNT IDC1 INNET IRXR IRYR IRZE IRZF IRZH ISET ITAB IXM IYM IZE IZF IZH JCOUNT NETIDT NREC XCOORD XINT YCOORD YINT ZETMP2 ZFTMP2 ZHTMP2
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER DTORAD
Local Var I J JSET MODNAM YTEMP

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