REAL FUNCTION ZGAUSS ( I )
Argument Definitions (+ indicates altered content)
INTEGER            I
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The zgauss function returns the value of V(r(i))*r(i) where V is 
the nuclear potential for the Gaussian charge distribution model
Source file:zgauss.f
Intrinsic Functions Called
INTEGER            NINT
GENERIC*8          SQRT
External Functions and Subroutines Called
REAL*8             ERF
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +IZZ1
REAL*8            +AT3,       +ATW,       +ETA1,      +FMTOAU
REAL*8            +RRMS,      +RRMSFM
Referenced Common Block Variables (+ indicates altered content)
CONST              REAL*8             ONE,       THREE
MCOMMBLOCK         REAL*8             R(MAXNO)
PARAM              REAL*8             Z
PERTAB             REAL*8             AINFCM,    ATWEIGHT(0:100)