REAL FUNCTION ZGSZ1G ( 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.                            * 
                                                                        * 
 
### zgsz1g ### 
 
    Evaluate the model HF potential according to the formula derived by 
    Green, Sellin, Zachor (Phys. Rev. 184 (1969) 1) using Z1 centre 
    with Z1 modified according to the Gauss nucleus model
Source file:zgsz1g.f
Intrinsic Functions Called
INTEGER            NINT
GENERIC*8          EXP
External Functions and Subroutines Called
REAL*8             ZZ1G
Local Variables (+ indicates altered content)
INTEGER           +IZZ1
REAL*8            +HC,        +RI,        +ZZ1T
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,         Z1
PERTAB             REAL*8             DGSZ(0:103)