Lines Matching refs:ngr
1181 FUNCTION calc_ecpbe_u(ra, rb, ngr, ec_unif, rc, ngrc) RESULT(res)
1183 REAL(kind=dp), INTENT(in) :: ra, rb, ngr, ec_unif, rc, ngrc local
1193 IF (r > rc .AND. ngr > ngrc) THEN
1201 t2 = (ngr/(2.0_dp*phi*ks*r))**2
1220 FUNCTION calc_ecpbe_r(r, ngr, ec_unif, rc, ngrc) RESULT(res)
1222 REAL(kind=dp), INTENT(in) :: r, ngr, ec_unif, rc, ngrc local
1228 IF (r > rc .AND. ngr > ngrc) THEN
1231 t2 = (ngr/(2.0_dp*ks*r))**2
1250 FUNCTION calc_expbe_u(ra, rb, ngr, rc, ngrc) RESULT(res)
1252 REAL(kind=dp), INTENT(in) :: ra, rb, ngr, rc, ngrc local
1258 res = calc_expbe_r(r, ngr, rc, ngrc)
1270 FUNCTION calc_expbe_r(r, ngr, rc, ngrc) RESULT(res)
1272 REAL(kind=dp), INTENT(in) :: r, ngr, rc, ngrc local
1281 IF (ngr > ngrc) THEN
1282 s = ngr/(2.0_dp*kf*r)