STONUM

SUBROUTINE 4 args, 70 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/STONUM.f90,0000002,0000119
STONUM CALLed by ARVERT AVETIM COUNIT DAYRNG DISCAR DISPOL DPUNIT DSFILL EDECAY EFFILL EMUNIT EVCART EVLOC EVPER FLAGDF FLGHGT GASDEP GDDEF GDLAND GDSEAS GENCAR GENPOL GVSUBD HILHGT HQREAD HRQEXT INPPDM INPPDN INPPHI MEOPEN MEREAD METEXT METH_2 NO2EQ NO2RAT O3VAL ONDATA OUDALY OUEVAL OUHIGH OUMXFL OUMXVL OUPLOT OUPOST OURANK OUSEAS OUTOXX PERPLT PERPST POLDST POLORG PRBASE PREGENCAR PREGENPOL PREPOLDST PRERADRNG PRESET PREXYPNTS RADRNG SAVEFL SCIMIT SET_WINDOW SFDATA SOLOCA SOPARM STAEND TERHGT TERLOC TERRST UADATA URBOPT WDROTA WSCATS XYPNTS
CALLs to ABS FLOAT INDEX NINT
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE **NOTHING**
Uses MODULE **NOTHING**
Uses Argument FNUM LENGTH STRVAR
Chng Argument FNUM IMUTI
Uses PARAMETER **NOTHING**
Local Var CHK CNUM DMARK EMARK FDC1 FDEC HEAD I IN MEND MMARK MODNAM NMARK NUMS PMARK

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