DISPOL

SUBROUTINE 0 args, 119 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/DISPOL.f90,0000002,0000193
DISPOL CALLed by RECARD
CALLs to COS ERRHDL SIN SINDEX STONUM
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE AXR AYR AZELEV AZFLAG AZHILL DUMMY IREF IRXR IRYR IRZE IRZF IRZH ITAB NETID RECTYP
Uses MODULE AXS AYS AZELEV AZHILL ELEV ELTYPE FIELD FLGPOL FNUM IFC IMIT IRXR IRYR IRZE IRZF IRZH NREC REELEV
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER DTORAD ILEN_FLD
Local Var DIRECT FIND I1 I2 I3 I4 I5 ISDX MODNAM RANGE SOID

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