DISCAR

SUBROUTINE 0 args, 112 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/DISCAR.f90,0000002,0000178

DISCAR	CALLed by	RECARD
	CALLs to	ERRHDL STONUM
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	AXR AYR AZELEV AZFLAG AZHILL DUMMY IRXR IRYR IRZE IRZF IRZH ITAB NETID RECTYP
	Uses MODULE	AZELEV AZHILL ELEV ELTYPE FLGPOL FNUM IFC IMIT IRXR IRYR IRZE IRZF IRZH NREC REELEV
	Uses Argument	**NOTHING**
	Chng Argument	**NOTHING**
	Uses PARAMETER	ILEN_FLD
	Local Var	I1 I2 I3 I4 I5 MODNAM

---

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