Searched refs:GaussK (Results 1 – 1 of 1) sorted by relevance
17 real(dp), pointer, save :: GaussK(:) => null() variable51 call re_alloc( GaussK, 1, nGauss, 'GaussK', 'initmeta' )72 GaussK(nGauss) = fdf_breals(pline,1)180 Emeta = Emeta + 0.5_dp*GaussK(k)*exptrm181 dtrm = GaussK(k)*exptrm*GaussZeta(k)*(r - GaussR0(k))/r