REAL FUNCTION ZZ2 ( 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.                            * 
                                                                        * 
 
### zz1 ### 
 
    Evaluate the nuclear potential for Fermi models. 
 
    This routine is based on nucpot routine from the GRASP2 package 
    (ver. 1.00, 1992)
Source file:zz2.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
GENERIC*8          ABS
GENERIC*4          LOG
GENERIC*8          SQRT
External Functions and Subroutines Called
SUBROUTINE         ES
Local Variables (+ indicates altered content)
REAL*8            +A,         +ABC,       +ABC2,      +ABC3
REAL*8            +AT3,       +ATW,       +C,         +CBA
REAL*8            +DMSAS,     +EN,        +FACTO1,    +FMTOAU
REAL*8            +H3,        +H3PHP,     +HPIAC2,    +PI2
REAL*8            +RBC,       +RI,        +RMC,       +RMCBA
REAL*8            +RRMS,      +RRMSFM,     S2MCBA,     S2RCBA
REAL*8             S3MCBA,     S3RCBA,    +SABC3,     +T
REAL*8            +TABC,      +TFM,       +THABC2,    +ZBN
Referenced Common Block Variables (+ indicates altered content)
CONSFP             REAL*8             HALF,      ONE
CONSFP             REAL*8             PII,      +SIX
CONSFP             REAL*8             THREE,     TWO
DEBUG              INTEGER            IPRINT(1000)
GRIDR              REAL*8             VETA(1500)
GRIDR              REAL*8             VXI(2500)
INPUTD1            REAL*8             Z2ATMASS
INPUTD2            REAL*8             R,         Z2
PERTAB             REAL*8             AINFCM