SUBROUTINE GETHP ( FXX, HPX, HTX )
Argument Definitions (+ indicates altered content)
REAL               FXX,       +HPX,       +HTX
Description
THIS ROUTINE PERFORMS GAUSSIAN INTEGRATION FOR THE VIRTUAL HEIGHTS 
(SEE SUBROUTINE IONMUF FOR SETTING OF DATA)
Source file:gethp.f
Intrinsic Functions Called
REAL               AMIN1
GENERIC            SQRT
Local Variables (+ indicates altered content)
INTEGER           +IB,        +IG,        +IH
REAL              +FR,        +HP,        +HRMZ,      +HT
REAL              +YMUP,      +YSQ,       +ZG,        +ZI
REAL              +ZMUP
Referenced Common Block Variables (+ indicates altered content)
DATR               INTEGER            NPL,       NT
DATR               REAL               TWDIV,     WT(20)
DATR               REAL               XNPL,      XT(20)
RON                REAL               FNSQ(50,3)
RON                REAL               HTR(50,3)