REAL FUNCTION ZGSZ2G ( I, J )

Argument Definitions (+ indicates altered content)
INTEGER            I,          J
Description
                                                                        * 
  Copyright (C) 1992 F.A. Parpia and I.P. Grant                         * 
  Copyright (C) 2010 Jacek Kobus                    * 
                                                                        * 
  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.                            * 
                                                                        * 
 
### zgsz2g ### 
 
    Evaluate the model HF potential according to the formula derived by 
    Green, Sellin, Zachor (Phys. Rev. 184 (1969) 1) using Z2 centre 
    with Z2 modified according to the Gauss nucleus model
Source file:zgsz2g.f
Intrinsic Functions Called
INTEGER            NINT
GENERIC*8          EXP
External Functions and Subroutines Called
REAL*8             ZZ2G
Local Variables (+ indicates altered content)
INTEGER           +IZZ2
REAL*8            +HC,        +RI,        +ZZ2T
Referenced Common Block Variables (+ indicates altered content)
CONSFP             REAL*8             ONE,       TWO
CONSFP             REAL*8             ZERO
GRIDR              REAL*8             VETA(1500)
GRIDR              REAL*8             VXI(2500)
INPUTD2            REAL*8             R,         Z2
PERTAB             REAL*8             DGSZ(0:103)