SUBROUTINE ES ( F, S2F, S3F )

Argument Definitions (+ indicates altered content)
REAL*8             F,         +S2F,       +S3F
Description
                                                                        * 
  Copyright (C) 1992 F.A. Parpia and I.P. Grant                         * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
 
                                                                         * 
This routine is part of the GRASP2 package (ver. 1.00, 17 Jan 1992)      * 
                                                                         * 
                                                                         * 
  ----------------   SECTION 01   SUBPROGRAM 14   ----------------       * 
  EVALUATE THE SUM OF THE SERIES                                         * 
                                                                         * 
                      INFINITY      N              K                     * 
             S  (F) =   SUM     (-1)  EXP (N*F) / N                      * 
              K        N = 0                                             * 
                                                                         * 
  FOR K = 2, 3 TO MACHINE PRECISION. THIS IS A UTILITY SUBROUTINE,       * 
  CALLED BY SUBROUTINES NUCPOT AND NCHARG.                               * 
                                                                         * 
  NO SUBROUTINES CALLED                                                  * 
                                                                         * 
  WRITTEN BY FARID A PARPIA, AT OXFORD  LAST REVISION: 25 JAN 1988       * 
                                                                         *
Source file:es.f
Intrinsic Functions Called
DOUBLE PRECISION   DBLE
GENERIC*8          ABS,        EXP
Local Variables (+ indicates altered content)
INTEGER           +N
REAL*8            +EN,        +ENF,       +FASE,      +OBN
REAL*8            +S2LAST,    +TERM2,     +TERM3
Referenced Common Block Variables (+ indicates altered content)
CONS               REAL*8             ONE,       ZERO