| /petsc/src/mat/tests/ |
| H A D | ex226.c | 14 PetscInt i, M, N, Istart, Iend, n = 7, j, J, Ii, m = 8, k, o = 1; in main() local
44 for (Ii = Istart; Ii < Iend; Ii++) { in main()
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()
51 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
55 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
59 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
63 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
66 PetscCall(MatSetValues(A, 1, &Ii, 1, &Ii, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | ex10.c | 8 PetscInt i, j, m = 5, n = 2, Ii, J; in main() local
29 Ii = j + n * i; in main()
31 J = Ii - n; in main()
32 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
35 J = Ii + n; in main()
36 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
39 J = Ii - 1; in main()
40 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
43 J = Ii + 1; in main()
44 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | ex132.c | 9 PetscInt Ii, J, Istart, Iend; in main() local
31 for (Ii = Istart; Ii < Iend; Ii++) { in main()
33 i = Ii / n; in main()
34 j = Ii - i * n; in main()
36 J = Ii - n; in main()
37 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
40 J = Ii + n; in main()
41 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
44 J = Ii - 1; in main()
45 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
[all …]
|
| H A D | ex25.c | 9 PetscInt i, j, m = 4, n = 4, Ii, J, Istart, Iend; in main() local
25 for (Ii = Istart; Ii < Iend; Ii++) { in main()
27 i = Ii / n; in main()
28 j = Ii - i * n; in main()
30 J = Ii - n; in main()
31 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
34 J = Ii + n; in main()
35 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
38 J = Ii - 1; in main()
39 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | ex18.c | 10 PetscInt i, j, k, b, m = 3, n, nlocal = 2, bs = 1, Ii, J; in main() local
46 Ii = (j + n * i) * bs + b; in main()
48 J = Ii - n * bs; in main()
49 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
52 J = Ii + n * bs; in main()
53 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
56 J = Ii - 1 * bs; in main()
57 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
60 J = Ii + 1 * bs; in main()
61 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
[all …]
|
| H A D | ex12.c | 12 PetscInt i, j, m = 3, n, Ii, J, Imax; in main() local
31 Ii = j + n * i; in main()
33 J = Ii - n; in main()
34 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
37 J = Ii + n; in main()
38 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
41 J = Ii - 1; in main()
42 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
45 J = Ii + 1; in main()
46 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | ex127.c | 14 PetscInt dim, Ii, J, n = 3, rstart, rend; in main() local
33 for (Ii = rstart; Ii < rend; Ii++) { in main()
35 i = Ii / n; in main()
36 j = Ii - i * n; in main()
38 J = Ii - n; in main()
39 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
42 J = Ii + n; in main()
43 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
46 J = Ii - 1; in main()
47 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
[all …]
|
| H A D | ex31.c | 13 PetscInt i, j, Ii, J, Istart, Iend, N, m = 4, n = 4; in main() local
37 for (Ii = Istart; Ii < Iend; Ii++) { in main()
39 i = Ii / n; in main()
40 j = Ii - i * n; in main()
42 J = Ii - n; in main()
43 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
46 J = Ii + n; in main()
47 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
50 J = Ii - 1; in main()
51 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
[all …]
|
| H A D | ex193.c | 19 PetscInt i, j, Ii, J, Istart, Iend; in main() local
46 for (Ii = Istart; Ii < Iend; Ii++) { in main()
48 i = Ii / n; in main()
49 j = Ii - i * n; in main()
51 J = Ii - n; in main()
52 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
55 J = Ii + n; in main()
56 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
59 J = Ii - 1; in main()
60 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | ex6.c | 8 PetscInt i, j, m = 5, n = 5, Ii, J; in main() local
23 Ii = j + n * i; in main()
25 J = Ii - n; in main()
26 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
29 J = Ii + n; in main()
30 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
33 J = Ii - 1; in main()
34 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
37 J = Ii + 1; in main()
38 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | ex13.c | 8 PetscInt i, j, m = 5, n = 5, Ii, J; in main() local
19 Ii = j + n * i; in main()
21 J = Ii - n; in main()
22 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
25 J = Ii + n; in main()
26 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
29 J = Ii - 1; in main()
30 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
33 J = Ii + 1; in main()
34 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | ex8.c | 8 PetscInt i, j, m = 3, n = 3, Ii, J; in main() local
25 Ii = j + n * i; in main()
27 J = Ii - n; in main()
28 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
31 J = Ii + n; in main()
32 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
35 J = Ii - 1; in main()
36 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
39 J = Ii + 1; in main()
40 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | ex11.c | 8 PetscInt i, j, m = 5, n = 5, Ii, J; in main() local
23 Ii = j + n * i; in main()
25 J = Ii - n; in main()
26 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
29 J = Ii + n; in main()
30 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
33 J = Ii - 1; in main()
34 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
37 J = Ii + 1; in main()
38 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | ex26.c | 66 PetscInt Ii = j + n * i, J; in main() local
67 J = Ii - n; in main()
69 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
70 PetscCall(MatSetValues(B, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
71 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
73 J = Ii + n; in main()
75 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
76 PetscCall(MatSetValues(B, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
77 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
79 J = Ii - 1; in main()
[all …]
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex5.c | 25 PetscInt Ii, J, ldim, low, high, iglobal, Istart, Iend; in main() local
86 for (Ii = Istart; Ii < Iend; Ii++) { in main()
88 i = Ii / n; in main()
89 j = Ii - i * n; in main()
91 J = Ii - n; in main()
92 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
95 J = Ii + n; in main()
96 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
99 J = Ii - 1; in main()
100 PetscCall(MatSetValues(C, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
[all …]
|
| H A D | ex9.c | 31 PetscInt Ii, J, i, j, m = 3, n = 2, its, t; in main() local
179 for (Ii = Istart; Ii < Iend; Ii++) { in main()
181 i = Ii / n; in main()
182 j = Ii - i * n; in main()
184 J = Ii - n; in main()
185 PetscCall(MatSetValues(C1, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
188 J = Ii + n; in main()
189 PetscCall(MatSetValues(C1, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
192 J = Ii - 1; in main()
193 PetscCall(MatSetValues(C1, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
[all …]
|
| H A D | ex5f.F90 | 18 PetscInt :: Ii, JJ, ldim, low, high, iglobal, Istart, Iend
80 intitializeC: do Ii = Istart, Iend - 1
81 v = -1.0; i = Ii/n; j = Ii - i*n
83 JJ = Ii - n
84 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
88 JJ = Ii + n
89 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
93 JJ = Ii - 1
94 PetscCallA(MatSetValues(C, one, [Ii], one, [JJ], [v], ADD_VALUES, ierr))
98 JJ = Ii + 1
[all …]
|
| H A D | ex12.c | 41 PetscInt i, j, Ii, J, Istart, Iend, m = 8, n = 7, its; in main() local
79 for (Ii = Istart; Ii < Iend; Ii++) { in main()
81 i = Ii / n; in main()
82 j = Ii - i * n; in main()
84 J = Ii - n; in main()
85 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
88 J = Ii + n; in main()
89 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
92 J = Ii - 1; in main()
93 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | ex13.c | 32 PetscInt m = 6, n = 7, t, tmax = 2, i, Ii, j, N; in main() local
78 Ii = 0; in main()
82 rho[Ii] = x; in main()
83 solution[Ii] = PetscSinScalar(2. * PETSC_PI * x) * PetscSinScalar(2. * PETSC_PI * y); in main()
84 …userb[Ii] = -2 * PETSC_PI * PetscCosScalar(2 * PETSC_PI * x) * PetscSinScalar(2 * PETSC_PI * y)… in main()
86 Ii++; in main()
173 PetscInt i, j, Ii, J, m = userctx->m, n = userctx->n; in UserDoLinearSolver() local
192 Ii = 0; in UserDoLinearSolver()
196 J = Ii - m; in UserDoLinearSolver()
197 v = -.5 * (rho[Ii] + rho[J]) * hy2; in UserDoLinearSolver()
[all …]
|
| H A D | ex16.c | 26 PetscInt ntimes, i, j, k, Ii, J, Istart, Iend; in main() local
65 for (Ii = Istart; Ii < Iend; Ii++) { in main()
67 i = Ii / n; in main()
68 j = Ii - i * n; in main()
70 J = Ii - n; in main()
71 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
74 J = Ii + n; in main()
75 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
78 J = Ii - 1; in main()
79 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|
| H A D | bench_kspsolve.c | 118 PetscInt Ii, x, y, z, n = user->n, n2 = n * n, n1 = n - 1; in FillCOO() local
131 for (Ii = user->Istart; Ii < user->Iend; Ii++) { in FillCOO()
132 x = Ii % n; in FillCOO()
133 y = (Ii / n) % n; in FillCOO()
134 z = Ii / n2; in FillCOO()
136 coo_i[count] = Ii; in FillCOO()
137 coo_j[count] = Ii - 1 - n - n2; in FillCOO()
142 coo_i[count] = Ii; in FillCOO()
143 coo_j[count] = Ii - 1 + n - n2; in FillCOO()
148 coo_i[count] = Ii; in FillCOO()
[all …]
|
| H A D | ex2.c | 18 PetscInt i, j, Ii, J, Istart, Iend, m = 8, n = 7, its; in main() local
70 for (Ii = Istart; Ii < Iend; Ii++) { in main()
72 i = Ii / n; in main()
73 j = Ii - i * n; in main()
75 J = Ii - n; in main()
76 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
79 J = Ii + n; in main()
80 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
83 J = Ii - 1; in main()
84 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, ADD_VALUES)); in main()
[all …]
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex39.c | 25 PetscInt i, j, k, Ii, J, Istart, Iend; in main() local
64 for (Ii = Istart; Ii < Iend; Ii++) { in main()
65 i = Ii / (n2 * n3); in main()
66 j = (Ii - i * n2 * n3) / n3; in main()
67 k = Ii - i * n2 * n3 - j * n3; in main()
69 J = Ii - n2 * n3; in main()
71 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
74 J = Ii + n2 * n3; in main()
76 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
79 J = Ii - n3; in main()
[all …]
|
| H A D | ex17.c | 122 PetscInt i, j, Ii, J, col[5], Istart, Iend; in FormTestMatrix() local
220 for (Ii = Istart; Ii < Iend; Ii++) { in FormTestMatrix()
222 i = Ii / n; in FormTestMatrix()
223 j = Ii - i * n; in FormTestMatrix()
225 J = Ii - n; in FormTestMatrix()
226 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, val, ADD_VALUES)); in FormTestMatrix()
229 J = Ii + n; in FormTestMatrix()
230 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, val, ADD_VALUES)); in FormTestMatrix()
233 J = Ii - 1; in FormTestMatrix()
234 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, val, ADD_VALUES)); in FormTestMatrix()
[all …]
|
| H A D | ex38.c | 34 PetscInt i, j, Ii, J, Istart, Iend; in main() local
92 for (Ii = Istart; Ii < Iend; Ii++) { in main()
93 i = Ii / n2; in main()
94 j = Ii - i * n2; in main()
96 J = Ii - n2; in main()
98 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
101 J = Ii + n2; in main()
103 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
106 J = Ii - 1; in main()
108 PetscCall(MatSetValues(A, 1, &Ii, 1, &J, &v, INSERT_VALUES)); in main()
[all …]
|