ADAS Subroutine r8giih

      FUNCTION R8GIIH ( VVE    , V      , N      , L      ,
     &                  L1     , LP     , ISP    , LT     ,
     &                  LT1    , IS     , IRES
     &                )
C
C
C-----------------------------------------------------------------------
C
C  **************** FORTRAN77 REAL*8 FUNCTION: R8GIIH ******************
C
C  PURPOSE:  CALCULATES BOUND-FREE G-FACTORS FOR ANGULARLY RESOLVED
C            LEVELS USES HYDROGENIC MATRIX ELEMENTS.
C
C            FOR COMPLETENESS, THE UNRESOLVED, BUNDLED N, GBF (BURGESS
C            AND SUMMERS ,1976) CAN ALSO BE OBTAINED.
C
C  CALLING PROGRAM: GENERAL USE
C
C  FUNC  : (R*8)  R8GIIH  = BOUND-FREE GAUNT FACTOR
C
C  INPUT : (R*8)  VVE     = V**2*E WHERE E=(FREE ELECTRON ENERGY)/Z**2.
C                           UNITS: RYD
C  INPUT : (R*8)  V       = EFFECTIVE PRINCIPAL QUANTUM NUMBER OF BOUND
C                           ELECTRON.
C  INPUT : (I*4)  N       = PRINCIPAL QUANTUM NUMBER OF BOUND ELECTRON.
C  INPUT : (I*4)  L       = ORBITAL QUANTUM NUMBER OF BOUND ELECTRON.
C  INPUT : (I*4)  L1      = ORBITAL QUANTUM NUMBER OF FREE ELECTRON.
C  INPUT : (I*4)  LP      = TOTAL ORBITAL ANGULAR MOMENTUM QUANTUM
C                           NUMBER OF PARENT STATE.
C  INPUT : (I*4)  ISP     = 2*SP+1 WHERE SP IS TOTAL SPIN OF PARENT
C                           STATE.
C  INPUT : (I*4)  LT      = TOTAL ORBITAL ANGULAR MOMENTUM QUANTUM
C                           NUMBER OF BOUND SYSTEM.
C  INPUT : (I*4)  LT1     = TOTAL ORBITAL ANGULAR MOMENTUM QUANTUM
C                           NUMBER OF FREE SYSTEM.
C  INPUT : (I*4)  IS      = 2*S+1 WHERE S IS TOTAL SPIN OF SYSTEM.
C  INPUT : (I*4)  IRES    = LEVEL OF RESOLUTION.
C                         = 1 :
C                         = 2 : ABOVE LT1 SUM.
C                         = 3 : ABOVE LT SUM.
C                         = 4 : ABOVE S SUM.
C                         = 5 : UNRESOLVED GBF.
C
C          (R*8)  XN      = REAL VALUE = N.
C          (R*8)  XL      = REAL VALUE = L.
C          (R*8)  XL1     = REAL VALUE = L1.
C          (R*8)  XLP     = REAL VALUE = LP.
C          (R*8)  XSP     = REAL VALUE = ISP.
C          (R*8)  XLT     = REAL VALUE = LT.
C          (R*8)  XLT1    = REAL VALUE = LT1.
C          (R*8)  XS      = REAL VALUE = IS.
C          (R*8)  W       =
C          (R*8)  ANG     =
C          (R*8)  CL1     =
C          (R*8)  E2      = -E WHERE E=(FREE ELECTRON ENERGY)/Z**2.
C                           UNITS: RYD
C          (R*8)  THETH   =
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          -------------------------------------------------------------
C          R8WIG6     ADAS
C          R8RD2F     ADAS      RETURNS HYDROGENIC BOUND-FREE RADIAL
C                               INTEGRALS.
C          R8GBF      ADAS
C
C AUTHOR:  JONATHAN NASH (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/81
C          JET EXT. 5183
C
C DATE:    04/11/93
C
C UNIX-IDL PORT:
C
C AUTHOR:  WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C
C DATE:    22ND MAY 1996
C
C VERSION: 1.1                          DATE: 22-05-96
C MODIFIED: WILLIAM OSBORN
C               - FIRST VERSION. IBM VERSION NOT CHANGED
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             IRES,        IS,          ISP,         L
      INTEGER             L1,          LP,          LT,          LT1
      INTEGER             N
      REAL*8              V,           VVE