REFSVC

SUBROUTINE 2 args, 14 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/REFSVC.f90,0000002,0000075

REFSVC	CALLed by	REFSV
	CALLs to	AMIN1 GINTRP SQRT
	Chng COMMON	**NOTHING**
	Uses COMMON	**NOTHING**
	Chng MODULE	**NOTHING**
	Uses MODULE	WSTAR ZICONV
	Uses Argument	HEIGHT
	Chng Argument	VALUE
	Uses PARAMETER	AT1PT2
	Local Var	ATZI MODNAM SV2 SV2DCR VAL2 ZDCRS

---

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