REFPTG

SUBROUTINE 2 args, 20 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/REFPTG.f90,0000003,0000112
REFPTG CALLed by GRDPTG NTRPTG XTRPTG
CALLs to EXP MAX
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE **NOTHING**
Uses MODULE OBULEN TG4PFL TG4XTR THSTAR UNSTAB VPTGZI ZI
Uses Argument HTINP VALUE
Chng Argument VALUE
Uses PARAMETER EFOLDH HDELTH SPTGMN VONKAR XVAL
Local Var HEIGHT

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