Searched refs:GaussZeta (Results 1 – 1 of 1) sorted by relevance
19 real(dp), pointer, save :: GaussZeta(:) => null() variable53 call re_alloc( GaussZeta, 1, nGauss, 'GaussZeta', 'initmeta' )79 GaussZeta(nGauss) = fdf_breals(pline,3)179 exptrm = exp(-GaussZeta(k)*(r - GaussR0(k))**2)181 dtrm = GaussK(k)*exptrm*GaussZeta(k)*(r - GaussR0(k))/r