Lines Matching refs:k
6 PetscInt global_index(PetscInt i, PetscInt j, PetscInt k, PetscInt m, PetscInt n) in global_index() argument
8 return i + j * m + k * m * n; in global_index()
14 PetscInt i, M, N, Istart, Iend, n = 7, j, J, Ii, m = 8, k, o = 1; in main() local
46 k = Ii / (m * n); in main()
47 j = (Ii - k * m * n) / m; in main()
48 i = (Ii - k * m * n - j * m); in main()
50 J = global_index(i - 1, j, k, m, n); in main()
54 J = global_index(i + 1, j, k, m, n); in main()
58 J = global_index(i, j - 1, k, m, n); in main()
62 J = global_index(i, j + 1, k, m, n); in main()
76 k = Ii / (m * n); in main()
77 j = (Ii - k * m * n) / m; in main()
78 i = (Ii - k * m * n - j * m); in main()
80 J = global_index(i - 1, j, k, m, n); in main()
84 J = global_index(i - 1, j - 1, k, m, n); in main()
88 J = global_index(i, j - 1, k, m, n); in main()
92 J = global_index(i + 1, j - 1, k, m, n); in main()
96 J = global_index(i + 1, j, k, m, n); in main()
100 J = global_index(i + 1, j + 1, k, m, n); in main()
104 J = global_index(i, j + 1, k, m, n); in main()
108 J = global_index(i - 1, j + 1, k, m, n); in main()
122 k = Ii / (m * n); in main()
123 j = (Ii - k * m * n) / m; in main()
124 i = (Ii - k * m * n - j * m); in main()
126 J = global_index(i - 1, j, k, m, n); in main()
130 J = global_index(i - 2, j, k, m, n); in main()
134 J = global_index(i + 1, j, k, m, n); in main()
138 J = global_index(i + 2, j, k, m, n); in main()
142 J = global_index(i, j - 1, k, m, n); in main()
146 J = global_index(i, j - 2, k, m, n); in main()
150 J = global_index(i, j + 1, k, m, n); in main()
154 J = global_index(i, j + 2, k, m, n); in main()
168 k = Ii / (m * n); in main()
169 j = (Ii - k * m * n) / m; in main()
170 i = (Ii - k * m * n - j * m); in main()
172 J = global_index(i - 1, j, k, m, n); in main()
176 J = global_index(i - 2, j, k, m, n); in main()
180 J = global_index(i - 3, j, k, m, n); in main()
184 J = global_index(i + 1, j, k, m, n); in main()
188 J = global_index(i + 2, j, k, m, n); in main()
192 J = global_index(i + 3, j, k, m, n); in main()
196 J = global_index(i, j - 1, k, m, n); in main()
200 J = global_index(i, j - 2, k, m, n); in main()
204 J = global_index(i, j - 3, k, m, n); in main()
208 J = global_index(i, j + 1, k, m, n); in main()
212 J = global_index(i, j + 2, k, m, n); in main()
216 J = global_index(i, j + 3, k, m, n); in main()
231 k = Ii / (m * n); in main()
232 j = (Ii - k * m * n) / m; in main()
233 i = (Ii - k * m * n - j * m); in main()
235 J = global_index(i - 1, j, k, m, n); in main()
239 J = global_index(i + 1, j, k, m, n); in main()
243 J = global_index(i, j - 1, k, m, n); in main()
247 J = global_index(i, j + 1, k, m, n); in main()
250 if (k > 0) { in main()
251 J = global_index(i, j, k - 1, m, n); in main()
254 if (k < o - 1) { in main()
255 J = global_index(i, j, k + 1, m, n); in main()
269 k = Ii / (m * n); in main()
270 j = (Ii - k * m * n) / m; in main()
271 i = (Ii - k * m * n - j * m); in main()
273 J = global_index(i - 1, j, k, m, n); in main()
277 J = global_index(i - 2, j, k, m, n); in main()
281 J = global_index(i + 1, j, k, m, n); in main()
285 J = global_index(i + 2, j, k, m, n); in main()
289 J = global_index(i, j - 1, k, m, n); in main()
293 J = global_index(i, j - 2, k, m, n); in main()
297 J = global_index(i, j + 1, k, m, n); in main()
301 J = global_index(i, j + 2, k, m, n); in main()
304 if (k > 0) { in main()
305 J = global_index(i, j, k - 1, m, n); in main()
308 if (k > 1) { in main()
309 J = global_index(i, j, k - 2, m, n); in main()
312 if (k < o - 1) { in main()
313 J = global_index(i, j, k + 1, m, n); in main()
316 if (k < o - 2) { in main()
317 J = global_index(i, j, k + 2, m, n); in main()
331 k = Ii / (m * n); in main()
332 j = (Ii - k * m * n) / m; in main()
333 i = (Ii - k * m * n - j * m); in main()
336 J = global_index(i - 1, j, k, m, n); in main()
340 J = global_index(i + 1, j, k, m, n); in main()
344 J = global_index(i, j - 1, k, m, n); in main()
348 J = global_index(i, j + 1, k, m, n); in main()
351 if (k > 0) { in main()
352 J = global_index(i, j, k - 1, m, n); in main()
355 if (k < o - 1) { in main()
356 J = global_index(i, j, k + 1, m, n); in main()
361 J = global_index(i - 1, j - 1, k, m, n); in main()
364 if (i > 0 && k > 0) { in main()
365 J = global_index(i - 1, j, k - 1, m, n); in main()
369 J = global_index(i - 1, j + 1, k, m, n); in main()
372 if (i > 0 && k < o - 1) { in main()
373 J = global_index(i - 1, j, k + 1, m, n); in main()
377 J = global_index(i + 1, j - 1, k, m, n); in main()
380 if (i < m - 1 && k > 0) { in main()
381 J = global_index(i + 1, j, k - 1, m, n); in main()
385 J = global_index(i + 1, j + 1, k, m, n); in main()
388 if (i < m - 1 && k < o - 1) { in main()
389 J = global_index(i + 1, j, k + 1, m, n); in main()
392 if (j > 0 && k > 0) { in main()
393 J = global_index(i, j - 1, k - 1, m, n); in main()
396 if (j > 0 && k < o - 1) { in main()
397 J = global_index(i, j - 1, k + 1, m, n); in main()
400 if (j < n - 1 && k > 0) { in main()
401 J = global_index(i, j + 1, k - 1, m, n); in main()
404 if (j < n - 1 && k < o - 1) { in main()
405 J = global_index(i, j + 1, k + 1, m, n); in main()
419 k = Ii / (m * n); in main()
420 j = (Ii - k * m * n) / m; in main()
421 i = (Ii - k * m * n - j * m); in main()
422 if (k > 0) { in main()
425 J = global_index(i - 1, j - 1, k - 1, m, n); in main()
428 J = global_index(i, j - 1, k - 1, m, n); in main()
431 J = global_index(i + 1, j - 1, k - 1, m, n); in main()
437 J = global_index(i - 1, j, k - 1, m, n); in main()
440 J = global_index(i, j, k - 1, m, n); in main()
443 J = global_index(i + 1, j, k - 1, m, n); in main()
449 J = global_index(i - 1, j + 1, k - 1, m, n); in main()
452 J = global_index(i, j + 1, k - 1, m, n); in main()
455 J = global_index(i + 1, j + 1, k - 1, m, n); in main()
463 J = global_index(i - 1, j - 1, k, m, n); in main()
466 J = global_index(i, j - 1, k, m, n); in main()
469 J = global_index(i + 1, j - 1, k, m, n); in main()
475 J = global_index(i - 1, j, k, m, n); in main()
478 J = global_index(i, j, k, m, n); in main()
481 J = global_index(i + 1, j, k, m, n); in main()
487 J = global_index(i - 1, j + 1, k, m, n); in main()
490 J = global_index(i, j + 1, k, m, n); in main()
493 J = global_index(i + 1, j + 1, k, m, n); in main()
498 if (k < o - 1) { in main()
501 J = global_index(i - 1, j - 1, k + 1, m, n); in main()
504 J = global_index(i, j - 1, k + 1, m, n); in main()
507 J = global_index(i + 1, j - 1, k + 1, m, n); in main()
513 J = global_index(i - 1, j, k + 1, m, n); in main()
516 J = global_index(i, j, k + 1, m, n); in main()
519 J = global_index(i + 1, j, k + 1, m, n); in main()
525 J = global_index(i - 1, j + 1, k + 1, m, n); in main()
528 J = global_index(i, j + 1, k + 1, m, n); in main()
531 J = global_index(i + 1, j + 1, k + 1, m, n); in main()