PRTSRC

SUBROUTINE 0 args, 347 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/PRTSRC.f90,0000002,0000647
PRTSRC CALLed by INPSUM
CALLs to ABS HEADER INT MOD
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE NPD WORKID
Uses MODULE AANGLE ADS ADSBH ADSBL ADSBW ADSXADJ ADSYADJ AHS ANO2_RATIO APDENS APDIAM APHI AQS ASYINI ASZINI ATS AVOLUM AVS AXINIT AXS AYINIT AYS AZS FINEMASS GRPID HENRY IGROUP IGRP_OLM INPD IOUNIT ISSTAT LDGAS LUSERVD LWGAS L_METHOD2 NPD NUMGRP NUMOLM NUMSRC NVERTS OLM OLMID PDIFF PDIFFW PVMRM QFACT QFLAG RADIUS RCLI SRCID SRCTYP TOXICS URBSRC WORKID
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER NSEC
Local Var ATHRUF BLDING CNPD DAYOFWEEK DAYOFWEEK7 I I1 I2 I3 IDW IFR INDC INGRP IQUN J K MODNAM NL SEASON URB

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