RECARD

SUBROUTINE 0 args, 71 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/RECARD.f90,0000001,0000145

RECARD	CALLed by	INCLUD SETUP
	CALLs to	DISCAR DISPOL ERRHDL EVCART INCLUD RECART REELUN REPOLR
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	AZFLAG ILINE INNET IREC IRSTAT IRXR IRYR IRZE IRZF IRZH ISTA NUMARC NUMREC PESOID PXSOID ZETMP1 ZETMP2 ZFTMP1 ZFTMP2
	Uses MODULE	FLGPOL ILINE IREC IRSTAT IRXR ISTA KEYWRD NREC NUMREC
	Uses Argument	**NOTHING**
	Chng Argument	**NOTHING**
	Uses PARAMETER	**NOTHING**
	Local Var	I ILSAVE MODNAM

---

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