SETSRC

SUBROUTINE 0 args, 102 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/SETSRC.f90,0000003,0000179
SETSRC CALLed by ACALC OCALC PCALC PLUME_VOL PVMRM_CALC VCALC
CALLs to MAX MIN
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE ANGLE DS EMIHGT HS IVERT NPD NVERT PALPHA PDEFF PDENS PDIAM PHI PITLEN PITWID QS SURFAC SYINIT SZINIT TS TSTOP VGRAV VS XCNTR XINIT XS XVERT YCNTR YINIT YS YVERT ZS
Uses MODULE AALPHA AANGLE ADS AHS APDEFF APDENS APDIAM APHI AQS ASYINI ASZINI ATS ATSTOP AVGRAV AVS AXCNTR AXINIT AXS AXVERT AYCNTR AYINIT AYS AYVERT AZS INPD ISRC IVERT NPD NVERT NVERTS SRCTYP XINIT YINIT
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER **NOTHING**
Local Var J MODNAM

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