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