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)