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