VRTCBL

SUBROUTINE 5 args, 50 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/VRTCBL.f90,0000003,0000146

VRTCBL	CALLed by	ACPLUME CPLUME F2INT
	CALLs to	ABS EXP MAX
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	FSUBZ
	Uses MODULE	EXPLIM LAMDA1 LAMDA2 ZI ZR
	Uses Argument	FACT HE1 HE2 SZ1 SZ2
	Chng Argument	**NOTHING**
	Uses PARAMETER	SRT2PI
	Local Var	A1 A2 A3 A4 HE1TMP HE2TMP HEARG1 HEARG2 I MODNAM SUM T1 T2 TERM TWOIZI V ZITMP

---

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