SRCQA

SUBROUTINE 0 args, 92 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/SRCQA.f90,0000002,0000233
SRCQA CALLed by SOCARD
CALLs to ABS ERRHDL LOCATE SQRT
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE AXCNTR AXINIT AXVERT AYCNTR AYINIT AYVERT INPD NUMURB
Uses MODULE APHI AQS AXVERT AYVERT DDEP DEPOS IGROUP IGRP_OLM INPD IWRK2 LUSERVD NPDMAX NUMGRP NUMOLM NUMSRC NUMURB NVERTS OLM PVMRM QFLAG SOGAS SRCTYP URBAN URBSRC
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER NSEC
Local Var AREA ATOT I ITOTGRP ITOTSRC J MODNAM N SUM SUMX SUMY

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