REAL FUNCTION ZVAR ( I )
Argument Definitions (+ indicates altered content)
INTEGER            I
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The zvar function computes z(r_i) for a chosen nucleus model 
(Coulomb, Gauss or Fermi)
Source file:zvar.f
External Functions and Subroutines Called
REAL*8             ZGAUSS
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
REAL*8            +ZT
Referenced Common Block Variables (+ indicates altered content)
PARAM              REAL*8             Z
REL                INTEGER            IFERMI,    IGAUSS