AACALC

SUBROUTINE 0 args, 6 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/AACALC.f90,0000002,0000056

AACALC	CALLed by	PDF
	CALLs to	SQRT
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	ASUB1 ASUB2
	Uses MODULE	ALPHPD BETAPD SKEW SWEFFD WSTAR
	Uses Argument	**NOTHING**
	Chng Argument	**NOTHING**
	Uses PARAMETER	**NOTHING**
	Local Var	DETERM MODNAM SWRATIO

---

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