REAL FUNCTION ZZ1G ( 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.                            * 
                                                                        * 
 
### zz1g ### 
 
    Evaluate the nuclear potential for Gaussian models. 
 
    This routine is based on nucpot routine from the GRASP2 package 
    (ver. 1.00, 1992)
Source file:zz1g.f
Intrinsic Functions Called
GENERIC*8          SQRT
External Functions and Subroutines Called
REAL*8             ERF
Local Variables (+ indicates altered content)
REAL*8            +AT3,       +ATW,       +ETA1,      +FMTOAU
REAL*8            +RI,        +RRMS,      +RRMSFM
Referenced Common Block Variables (+ indicates altered content)
CONSFP             REAL*8             ONE,       THREE
GRIDR              REAL*8             VETA(1500)
GRIDR              REAL*8             VXI(2500)
INPUTD1            REAL*8             Z1ATMASS
INPUTD2            REAL*8             R,         Z1
PERTAB             REAL*8             AINFCM