F2INT

R*4 FUNCT 1 args, 150 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/F2INT.f90,0000003,0000287

F2INT	CALLed by	DEPLETE
	CALLs to	CENTROID CRITDS DELTAH FTERM HEFF IBLVAL MAX PDF PDIS PFRACT REFL_HT VRTCBL VRTSBL VRTSBN
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	FSUBZ3 FSUBZD FSUBZN HE3SETL HESETL HPEN HSBL HV SVEFF SVEFF3 SVEFFD SVEFFN SWEFF SWEFF3 SWEFFD SWEFFN TGEFF TGEFF3 UEFF UEFF3 UEFFD UEFFN ZELEV ZHILL ZR
	Uses MODULE	FOPT FSUBZ FSUBZ3 FSUBZD FSUBZN HE HE3 HED1 HED2 HEN1 HEN2 HPEN HS HSBL HV ISRC PPF SRCTYP STABLE SVS SWS TGS UEFF UEFF3 UEFFD UEFFN UNSTAB US VSETL XDIST ZELEV ZHILL ZI ZR ZRDEP ZRT ZS
	Uses Argument	XI
	Chng Argument	**NOTHING**
	Uses PARAMETER	**NOTHING**
	Local Var	VLIFT VWRAP ZETMP ZHTMP

---

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