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