SOCARD

SUBROUTINE 0 args, 175 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/SOCARD.f90,0000001,0000353

SOCARD	CALLed by	EV_SETUP INCLUD SETUP
	CALLs to	ARVERT COUNIT DPUNIT DSBLDG EMUNIT EMVARY ERRHDL GASDEP HREMIS INCLUD METH_2 NO2RAT OLMGRP PARTDEP SOELUN SOGRP SOLOCA SOPARM SRCQA URBANS VDP1
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	HOURLY IGRP ILINE ISRC ISSTAT IWRK2 NUMGRP NUMSRC NUMURB
	Uses MODULE	ICSTAT ILINE ISSTAT KEYWRD LDGAS LDPART LUSERVD LWGAS LWPART NSRC NUMSRC NUMTYP OLM PKEYWD PVMRM TOXICS URBAN
	Uses Argument	**NOTHING**
	Chng Argument	**NOTHING**
	Uses PARAMETER	**NOTHING**
	Local Var	I ILSAVE J MODNAM

---

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