Searched refs:nzlim (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | ewald_spline_util.F | 158 nzlim, precond_kind local
185 nzlim = FLOOR(REAL(n3, KIND=dp)/2.0_dp)
191 IF (2*nzlim /= n3) ks = 1
208 IF (k > nzlim) CYCLE
258 IF (k > nzlim) CYCLE
274 IF (k > nzlim) CYCLE
296 grid%cr3d(gbo(1, 1):nxlim, gbo(1, 2):nylim, gbo(1, 3):nzlim) = 0.0_dp
299 … CALL mp_sum(grid%cr3d(gbo(1, 1):nxlim, gbo(1, 2):nylim, gbo(1, 3):nzlim), grid%pw_grid%para%group)
303 IF (k > nzlim) my_k = nzlim - ABS(nzlim - k) + ks
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | ewald_spline_util.F | 158 nzlim, precond_kind local
185 nzlim = FLOOR(REAL(n3, KIND=dp)/2.0_dp)
191 IF (2*nzlim /= n3) ks = 1
208 IF (k > nzlim) CYCLE
258 IF (k > nzlim) CYCLE
274 IF (k > nzlim) CYCLE
296 grid%cr3d(gbo(1, 1):nxlim, gbo(1, 2):nylim, gbo(1, 3):nzlim) = 0.0_dp
299 … CALL mp_sum(grid%cr3d(gbo(1, 1):nxlim, gbo(1, 2):nylim, gbo(1, 3):nzlim), grid%pw_grid%para%group)
303 IF (k > nzlim) my_k = nzlim - ABS(nzlim - k) + ks
|