REFWS

SUBROUTINE 2 args, 65 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/REFWS.f90,0000002,0000249

REFWS	CALLed by	NTRPWS XTRPWS
	CALLs to	STBLU UNSTU
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	**NOTHING**
	Uses MODULE	OBULEN SFCZ0 UREF UREFHT ZI
	Uses Argument	PRFLHT
	Chng Argument	UTHEOR
	Uses PARAMETER	PI VONKAR
	Local Var	KVALU MODNAM PIVALU UFACT UFACT2 VLDLB

---

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