ACALC

SUBROUTINE 0 args, 235 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/ACALC.f90,0000003,0000435
ACALC CALLed by CALC EVCALC
CALLs to ABS ADISY AER_PCHI AMAX1 ARDIST AREAIN CENTROID CRITDS EMFACT EVALFL EVLINI EV_SUMVAL FTERM FYPLM HEFF IBLVAL MAX METINI MIN PDEP PDEPG PDF PFRACT REFL_HT SCAVRAT SETSRC SIGZ SUMVAL VDIS VDP
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE AERVAL AERVALD CHI DHCRIT DHP DHP1 DHP2 DHP3 DQCOR DQCORG FB FM FOPTS FSUBY FSUBY3 FSUBYD FSUBYN GRIDPT GRIDSV GRIDSW GRIDTG HECNTR HECNTR3 HESETL HRVAL HRVALD HSBL HSP HV IREC ITYP OBULEN PPF PPFACT QTK SVEFF SVEFFD SVEFFN SWEFF SWEFFD SWEFFN SYINIT TGEFF UEFF UEFF3S UEFFD UEFFN UEFFS URBSTAB USTAR VP_FACT WAKE WQCOR WQCORG XDIST XFINAL XMIXED ZI ZMIDMX ZSUBP
Uses MODULE ARDPLETE CENTER DBGUNT DEBUG DISTR DQCOR DQCORG EVAL EVONLY FOPT FSUBY FSUBY3 FSUBYD GRDPTR GRDPTU GRDSVR GRDSVU GRDSWR GRDSWU GRDTGR GRDTGU HE HE3 HED1 HED2 HRVAL HS HV IREC ISRC ITYP KST LDGAS LDPART LWGAS LWPART NPD NUMREC NUMTYP O3MISS OLM PHI PPF PVMRM QTK RADIUS RUROBULEN RURUSTR SRCTYP STABLE SVEFF SVS SWAVG SWEFF SWS SY SZAD1 SZAD2 SZAS TGS TOXICS UAVG UEFF UEFF3 UEFFD UNSTAB URBAN URBOBULEN URBSRC URBSTAB URBUSTR US VGRAV VIRTPNT_RUR VIRTPNT_URB VP_FACT WETSCIM WQCOR WQCORG X XFINAL XINIT XMIXED Y YINIT ZI ZIMECH ZIRUR ZIURB ZSUBP
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER NVMAX PI SZCOEF
Local Var ADJ AEROUT FYOUT J LENGTH MODNAM QTKSAV WIDTH XDEP XMAXR XPOINT

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