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