Search Site | Contact Details | FAQ

ADAS Subroutine nhydes

       SUBROUTINE NHYDES(Z0,ZEFF,N,L,E0)
       IMPLICIT REAL*8(A-H,O-Z)
C-----------------------------------------------------------------------
C
C  PURPOSE: CALULATES LOWEST ORDER NON-RELATIVISTIC, RELATIVISTIC AND
C           QUANTUM-ELECTRODYNAMIC ENERGIES FOR HYDROGENIC IONS
C
C  BINDING ENERGY FOR CENTRE OF TERM IS PRODUCED.  FINE STRUCTURE FOR
C  L>0 MUST BE ADDED EXTERNALLY. FORMULAE ARE FROM ERIKSON (1977) J.PHY
C  CHEM. REF.DATA,6,831.
C  QED EFFECTS FOR L>0 OMITTED.
C-----------------------------------------------------------------------
C VERSION  : 1.1
C DATE     : 18-03-1999
C MODIFIED : ???
C
C VERSION  : 1.2
C DATE     : 05-10-2000
C MODIFIED : ???
C             - Removed junk from columns > 72
C
C VERSION  : 1.3
C DATE     : 16-05-2007
C MODIFIED : Allan Whiteford
C             - Updated comments as part of subroutine documentation
C               procedure.
C
C-----------------------------------------------------------------------
      INTEGER             L,           N
      REAL*8              E0,          Z0,          ZEFF
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk