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)