REPOLR

SUBROUTINE 0 args, 121 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/REPOLR.f90,0000002,0000199
REPOLR CALLed by RECARD
CALLs to ERRHDL FLGHGT GENPOL HILHGT POLDST POLORG RADRNG SETPOL TERHGT
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE DUMMY ICOUNT IDC1 IEND IEVSET IFGSET IHLSET INNET IRZE IRZF IRZH ISTA IZE IZF IZH JCOUNT KTYPE NETIDT NEWID PNETID RECERR XINT YINT
Uses MODULE ELEV FIELD FLAT FLGPOL ICOUNT IEVSET IFC IFGSET IHLSET INNET IRXR IRZE ISTA IZE IZF IZH JCOUNT KTYPE NETIDT NEWID NNET NTID PNETID RECERR
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER **NOTHING**
Local Var I IDRSET IGRSET IORSET IXRSET MODNAM

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