Search Site | Contact Details | FAQ

ADAS Subroutine r8giii

      function r8giii(jz, l, e1, e2)

C-----------------------------------------------------------------------
C
C  ***************** FORTRAN77 REAL*8 FUNCTION: R8GIII *****************
C
C  PURPOSE: CALCULATES GIII GIVEN IN EQUATIONS (11) AND (15) OF
C  A. BURGESS, J. PHYS. B7, L364, 1974.
C
C  SET L=1.SET JZ ZERO FOR THE ZERO CHARGE (NEUTRAL ATOM) CASE.
C  FOR PARTIAL SUMS SET L TO LOWER LIMIT OF SUMMATION WHICH
C  MUST BE GREATER THAN ZERO.
C  SET E1=(KAPPA1)**2 FOR NON ZERO CHARGE,
C        =(K1)**2 FOR ZERO CHARGE.
C  SET E2=(KAPPA2)**2 FOR NON ZERO CHARGE,
C        =(K2)**2 FOR ZERO CHARGE.
C
C
C  AUTHOR   : H P Summers
C  DATE     : 22-11-1984
C
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  VERSION  : 1.2
C  DATE     : 16-05-2005
C  MODIFIED : Allan Whiteford
C                - Call r8fdip and r8fdip0 instead of fdip and fdip0
C                  since the routines were renamed.
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             JZ,          L
      REAL*8              E1,          E2
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk