Search Site | Contact Details | FAQ

ADAS Subroutine r8giiav

      function r8giiav(u, u2, n0)

C-----------------------------------------------------------------------
C
C  **************** FORTRAN77 REAL*8 FUNCTION: R8GIIAV *****************
C
C  PURPOSE: CALCULATE AVERAGED FREE-BOUND GAUNT FACTOR FOR SUMMED
C  CONTRIBUTIONS OF THE HIGH LYING STATES - SUMMERS AND HOOPER EQU. 19
C
C  INPUT
C      U=HV/IH  WHERE HV IS PHOTON ENERGY
C               AND IH IS THE RYDBERG ENERGY
C      U2=K*TE/IH  WHERE TE IS THE ELECTRON TEMPERATURE
C                  AND K IS THE BOLTZMANN CONSTANT
C      N0       IS THE FIRST LEVEL TO BE COUNTED IN THIS
C               QUASI-CONTINUUM
C  OUTPUT
C      GIIAV=AVERAGED FREE-BOUND GAUNT FACTOR.
C
C
C  AUTHOR   : L D Horton
C  DATE     : 24-06-1997
C
C
C  VERSION  : 1.1
C  DATE     : 02-03-2005
C  MODIFIED : Martin O'Mullane
C                - First version in central ADAS.
C
C  VERSION  : 1.3                          
C  DATE     : 10-04-2007
C  MODIFIED : Allan Whiteford
C               - Modified documentation as part of automated
C		  subroutine documentation preparation.
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             N0
      REAL*8              U,           U2
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk