Lines Matching refs:ngr
1167 FUNCTION calc_ecpbe_u(ra, rb, ngr, ec_unif, rc, ngrc) RESULT(res)
1169 REAL(kind=dp), INTENT(in) :: ra, rb, ngr, ec_unif, rc, ngrc local
1179 IF (r > rc .AND. ngr > ngrc) THEN
1187 t2 = (ngr/(2.0_dp*phi*ks*r))**2
1206 FUNCTION calc_ecpbe_r(r, ngr, ec_unif, rc, ngrc) RESULT(res)
1208 REAL(kind=dp), INTENT(in) :: r, ngr, ec_unif, rc, ngrc local
1214 IF (r > rc .AND. ngr > ngrc) THEN
1217 t2 = (ngr/(2.0_dp*ks*r))**2
1236 FUNCTION calc_expbe_u(ra, rb, ngr, rc, ngrc) RESULT(res)
1238 REAL(kind=dp), INTENT(in) :: ra, rb, ngr, rc, ngrc local
1244 res = calc_expbe_r(r, ngr, rc, ngrc)
1256 FUNCTION calc_expbe_r(r, ngr, rc, ngrc) RESULT(res)
1258 REAL(kind=dp), INTENT(in) :: r, ngr, rc, ngrc local
1267 IF (ngr > ngrc) THEN
1268 s = ngr/(2.0_dp*kf*r)