Search Site | Contact Details | FAQ

ADAS Subroutine r8giiiav

      function r8giiiav(u, gam2)

C-----------------------------------------------------------------------
C
C  **************** FORTRAN77 REAL*8 FUNCTION: R8GIIIAV ****************
C
C
C  PURPOSE: CALCULATES MAXWELLIAN AVERAGED FREE-FREE GAUNT FACTORS
C
C  INPUT
C      U=HV/KT  WHERE HV IS PHOTON ENERGY
C               AND KT IS ELECTRON TEMPERATURE (ENERGY UNITS)
C      GAM2=Z*Z*IH/KT  WHERE Z IS TARGET ION CHARGE
C               AND IH IS THE RYDBERG ENERGY
C  OUTPUT
C      GIIIAV=MAXWELLIAN AVERAGED FREE-FREE GAUNT FACTOR.
C
C
C  AUTHOR   : H P Summers
C  DATE     : 22-11-1984
C
C
C  VERSION  : 1.1
C  DATE     : 02-03-2005
C  MODIFIED : Martin O'Mullane
C                - First version in central ADAS.
C                - Make implicit none.
C
C  VERSION  : 1.2
C  DATE     : 15-03-2006
C  MODIFIED : Allan Whiteford
C                - Removed external giii statement
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-----------------------------------------------------------------------
      REAL*8              GAM2,        U
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk