EVCART

SUBROUTINE 0 args, 81 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/EVCART.f90,0000003,0000142

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

---

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