Searched refs:Lg_loc_max (Results 1 – 2 of 2) sorted by relevance
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | ewald_spline_util.F | 156 INTEGER :: act_nx, act_ny, aint_precond, handle, i, iii, is, j, js, k, ks, Lg_loc_max, & local 235 Lg_loc_max = Lg_loc_min + (NLg_loc + 1) - 1 238 Lg_loc_max = Lg_loc_min + NLg_loc - 1 241 Lg_loc_max = MIN(SIZE(Lg), Lg_loc_max) 242 NLg_loc = Lg_loc_max - Lg_loc_min + 1 255 … lhs(i - gbo(1, 1) + 1, 1:NLg_loc) = lg(Lg_loc_min:Lg_loc_max)*cos_gx(Lg_loc_min:Lg_loc_max, i) 261 …rhs(j - gbo(1, 2) + 1, 1:NLg_loc) = cos_gy(Lg_loc_min:Lg_loc_max, j)*cos_gz(Lg_loc_min:Lg_loc_max,… 262 … sin_gy(Lg_loc_min:Lg_loc_max, j)*sin_gz(Lg_loc_min:Lg_loc_max, k) 271 … lhs(i - gbo(1, 1) + 1, 1:NLg_loc) = -lg(Lg_loc_min:Lg_loc_max)*sin_gx(Lg_loc_min:Lg_loc_max, i) 277 …rhs(j - gbo(1, 2) + 1, 1:NLg_loc) = cos_gy(Lg_loc_min:Lg_loc_max, j)*sin_gz(Lg_loc_min:Lg_loc_max,… [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | ewald_spline_util.F | 156 INTEGER :: act_nx, act_ny, aint_precond, handle, i, iii, is, j, js, k, ks, Lg_loc_max, & local 235 Lg_loc_max = Lg_loc_min + (NLg_loc + 1) - 1 238 Lg_loc_max = Lg_loc_min + NLg_loc - 1 241 Lg_loc_max = MIN(SIZE(Lg), Lg_loc_max) 242 NLg_loc = Lg_loc_max - Lg_loc_min + 1 255 … lhs(i - gbo(1, 1) + 1, 1:NLg_loc) = lg(Lg_loc_min:Lg_loc_max)*cos_gx(Lg_loc_min:Lg_loc_max, i) 261 …rhs(j - gbo(1, 2) + 1, 1:NLg_loc) = cos_gy(Lg_loc_min:Lg_loc_max, j)*cos_gz(Lg_loc_min:Lg_loc_max,… 262 … sin_gy(Lg_loc_min:Lg_loc_max, j)*sin_gz(Lg_loc_min:Lg_loc_max, k) 271 … lhs(i - gbo(1, 1) + 1, 1:NLg_loc) = -lg(Lg_loc_min:Lg_loc_max)*sin_gx(Lg_loc_min:Lg_loc_max, i) 277 …rhs(j - gbo(1, 2) + 1, 1:NLg_loc) = cos_gy(Lg_loc_min:Lg_loc_max, j)*sin_gz(Lg_loc_min:Lg_loc_max,… [all …]
|