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