DISPOL

SUBROUTINE 0 args, 119 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/DISPOL.f90,0000002,0000193

DISPOL	CALLed by	RECARD
	CALLs to	COS ERRHDL SIN SINDEX STONUM
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	AXR AYR AZELEV AZFLAG AZHILL DUMMY IREF IRXR IRYR IRZE IRZF IRZH ITAB NETID RECTYP
	Uses MODULE	AXS AYS AZELEV AZHILL ELEV ELTYPE FIELD FLGPOL FNUM IFC IMIT IRXR IRYR IRZE IRZF IRZH NREC REELEV
	Uses Argument	**NOTHING**
	Chng Argument	**NOTHING**
	Uses PARAMETER	DTORAD ILEN_FLD
	Local Var	DIRECT FIND I1 I2 I3 I4 I5 ISDX MODNAM RANGE SOID

---

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