| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex84.c | 25 PetscCall(MatSetValue(A, 0, 0, 2.0, INSERT_VALUES)); in main() 26 PetscCall(MatSetValue(A, 0, 1, -1.0, INSERT_VALUES)); in main() 27 PetscCall(MatSetValue(A, 1, 1, 3.0, INSERT_VALUES)); in main() 28 PetscCall(MatSetValue(A, 1, 2, -1.0, INSERT_VALUES)); in main() 30 PetscCall(MatSetValue(A, 2, 2, 4.0, INSERT_VALUES)); in main() 31 PetscCall(MatSetValue(A, 2, 3, -1.0, INSERT_VALUES)); in main() 32 PetscCall(MatSetValue(A, 3, 3, 5.0, INSERT_VALUES)); in main() 33 PetscCall(MatSetValue(A, 3, 4, -1.0, INSERT_VALUES)); in main() 34 PetscCall(MatSetValue(A, 4, 4, 6.0, INSERT_VALUES)); in main() 35 PetscCall(MatSetValue(A, 4, 5, -1.0, INSERT_VALUES)); in main() [all …]
|
| H A D | ex44f.F90 | 79 PetscCall(MatSetValue(J, i, i, one, INSERT_VALUES, ierr)) 81 PetscCall(MatSetValue(J, i, i - 1, -hx, INSERT_VALUES, ierr)) 82 PetscCall(MatSetValue(J, i, i + 1, -hx, INSERT_VALUES, ierr)) 83 PetscCall(MatSetValue(J, i, i, 2*hx, INSERT_VALUES, ierr))
|
| /petsc/src/mat/tests/ |
| H A D | ex259.c | 42 PetscCall(MatSetValue(A, ii, jj, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 46 PetscCall(MatSetValue(A, ii, jj, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 47 PetscCall(MatSetValue(A, jj, ii, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 51 PetscCall(MatSetValue(A, ii, jj, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 52 PetscCall(MatSetValue(A, jj, ii, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 70 PetscCall(MatSetValue(A, ii, jj, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 75 PetscCall(MatSetValue(A, ii, jj, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 76 PetscCall(MatSetValue(A, jj, ii, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 81 PetscCall(MatSetValue(A, ii, jj, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 82 PetscCall(MatSetValue(A, jj, ii, vv, INSERT_VALUES)); in ex1_nonsquare_bs1()
|
| H A D | ex93.c | 109 for (i = 0; i < rows; i++) PetscCall(MatSetValue(A, i, i, 1.0, INSERT_VALUES)); in testPTAPRectangular() 115 PetscCall(MatSetValue(P, 0, 0, 1.0, INSERT_VALUES)); in testPTAPRectangular() 116 PetscCall(MatSetValue(P, 0, 1, 2.0, INSERT_VALUES)); in testPTAPRectangular() 117 PetscCall(MatSetValue(P, 0, 2, 0.0, INSERT_VALUES)); in testPTAPRectangular() 119 PetscCall(MatSetValue(P, 0, 3, -1.0, INSERT_VALUES)); in testPTAPRectangular() 121 PetscCall(MatSetValue(P, 1, 0, 0.0, INSERT_VALUES)); in testPTAPRectangular() 122 PetscCall(MatSetValue(P, 1, 1, -1.0, INSERT_VALUES)); in testPTAPRectangular() 123 PetscCall(MatSetValue(P, 1, 2, 1.0, INSERT_VALUES)); in testPTAPRectangular() 125 PetscCall(MatSetValue(P, 2, 0, 3.0, INSERT_VALUES)); in testPTAPRectangular() 126 PetscCall(MatSetValue(P, 2, 1, 0.0, INSERT_VALUES)); in testPTAPRectangular() [all …]
|
| H A D | ex264.c | 47 if (i > 1) PetscCall(MatSetValue(R, i, i - 2, a, INSERT_VALUES)); in main() 48 if (i > 0) PetscCall(MatSetValue(R, i, i - 1, b, INSERT_VALUES)); in main() 49 PetscCall(MatSetValue(R, i, i, c, INSERT_VALUES)); in main() 50 if (i < n - 1) PetscCall(MatSetValue(R, i, i + 1, PetscConj(b), INSERT_VALUES)); in main() 51 if (i < n - 2) PetscCall(MatSetValue(R, i, i + 2, PetscConj(a), INSERT_VALUES)); in main() 56 if (i > 0) PetscCall(MatSetValue(C, i, i - 1, b, INSERT_VALUES)); in main() 57 PetscCall(MatSetValue(C, i, i, d, INSERT_VALUES)); in main() 58 if (i < n - 1) PetscCall(MatSetValue(C, i, i + 1, b, INSERT_VALUES)); in main()
|
| H A D | ex179.c | 14 PetscCall(MatSetValue(A, 0, 0, 1.0, INSERT_VALUES)); in main() 15 PetscCall(MatSetValue(A, 0, 1, 2.0, INSERT_VALUES)); in main() 16 PetscCall(MatSetValue(A, 1, 1, 4.0, INSERT_VALUES)); in main() 23 PetscCall(MatSetValue(A, 1, 0, 3.0, INSERT_VALUES)); in main()
|
| H A D | ex172.c | 31 if (i > 0) PetscCall(MatSetValue(A, i, i - 1, -1.0, INSERT_VALUES)); in main() 32 if (i < n - 1) PetscCall(MatSetValue(A, i, i + 1, -1.0, INSERT_VALUES)); in main() 33 PetscCall(MatSetValue(A, i, i, 2.0, INSERT_VALUES)); in main() 34 PetscCall(MatSetValue(B, i, i, 7.0, INSERT_VALUES)); in main()
|
| H A D | ex266.c | 51 PetscCall(MatSetValue(A, mycoo.i[k], mycoo.j[k], vals[k], ADD_VALUES)); in main() 60 …for (k = 0; k < mycoo.n / 2; k++) PetscCall(MatSetValue(B, mycoo.i[k], mycoo.j[k], vals[k], ADD_VA… in main() 66 …for (k = mycoo.n / 2; k < mycoo.n; k++) PetscCall(MatSetValue(C, mycoo.i[k], mycoo.j[k], vals[k], … in main()
|
| H A D | ex267.c | 85 for (i = 0; i < nrhs; i++) PetscCall(MatSetValue(RHS, i, i, 1.0, INSERT_VALUES)); in TestMatrix() 143 if (i > 0) PetscCall(MatSetValue(A, i, i - 1, a, INSERT_VALUES)); in main() 144 if (i < n - 1) PetscCall(MatSetValue(A, i, i + 1, PetscConj(a), INSERT_VALUES)); in main() 145 PetscCall(MatSetValue(A, i, i, 2.0, INSERT_VALUES)); in main() 164 PetscCall(MatSetValue(A, 0, 1, -5.0, INSERT_VALUES)); in main()
|
| H A D | ex135.c | 27 PetscCall(MatSetValue(A, i, i, 2., INSERT_VALUES)); in Assemble() 28 if (i != n - 1) PetscCall(MatSetValue(A, i, n - 1, -1., INSERT_VALUES)); in Assemble()
|
| H A D | ex230.c | 55 PetscCall(MatSetValue(preallocator, ii, jj, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 84 PetscCall(MatSetValue(A, ii, jj, vv, INSERT_VALUES)); in ex1_nonsquare_bs1() 151 PetscCall(MatSetValue(preallocator, ii, jj, vv[0], INSERT_VALUES)); in ex2_square_bsvariable() 201 PetscCall(MatSetValue(A, ii, jj, 33.3, INSERT_VALUES)); in ex2_square_bsvariable()
|
| H A D | ex251.c | 34 …for (k = 0; k < Annz; k++) PetscCall(MatSetValue(A, Ai[k], Aj[k], Ai[k] + Aj[k] + 1.0, INSERT_VALU… in main() 48 …for (k = 0; k < Bnnz; k++) PetscCall(MatSetValue(B, Bi[k], Bj[k], Bi[k] + Bj[k] + 2.0, INSERT_VALU… in main()
|
| H A D | ex204.c | 28 PetscCall(MatSetValue(A_vcl, i, j, (PetscScalar)(0.3 * i + j), INSERT_VALUES)); in main() 60 PetscCall(MatSetValue(A, i, j, (PetscScalar)(0.3 * i + j), INSERT_VALUES)); in main() 113 PetscCall(MatSetValue(A, i, j, (PetscScalar)(0.3 * i + j), INSERT_VALUES)); in main() 166 PetscCall(MatSetValue(A, i, j, (PetscScalar)(0.3 * i + j), INSERT_VALUES)); in main() 218 PetscCall(MatSetValue(A, i, j, (PetscScalar)(0.3 * i + j), INSERT_VALUES)); in main()
|
| H A D | ex250.c | 34 …for (k = 0; k < Annz; k++) PetscCall(MatSetValue(A, Ai[k], Aj[k], Ai[k] + Aj[k] + 1.0, INSERT_VALU… in main() 48 …for (k = 0; k < Bnnz; k++) PetscCall(MatSetValue(B, Bi[k], Bj[k], Bi[k] + Bj[k] + 2.0, INSERT_VALU… in main()
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex87.c | 66 if (i > 1) PetscCall(MatSetValue(R, i, i - 2, a, INSERT_VALUES)); in main() 67 if (i > 0) PetscCall(MatSetValue(R, i, i - 1, b, INSERT_VALUES)); in main() 68 PetscCall(MatSetValue(R, i, i, c, INSERT_VALUES)); in main() 69 if (i < n - 1) PetscCall(MatSetValue(R, i, i + 1, PetscConj(b), INSERT_VALUES)); in main() 70 if (i < n - 2) PetscCall(MatSetValue(R, i, i + 2, PetscConj(a), INSERT_VALUES)); in main() 75 if (i > 0) PetscCall(MatSetValue(C, i, i - 1, b, INSERT_VALUES)); in main() 76 PetscCall(MatSetValue(C, i, i, d, INSERT_VALUES)); in main() 77 if (i < n - 1) PetscCall(MatSetValue(C, i, i + 1, b, INSERT_VALUES)); in main()
|
| H A D | ex13.c | 99 PetscCall(MatSetValue(P, row, row, 1.0 / 4.0, INSERT_VALUES)); in main() 116 PetscCall(MatSetValue(A, row, row, vals[0], INSERT_VALUES)); in main() 126 PetscCall(MatSetValue(P, row, row, PetscSqr(0.84201), INSERT_VALUES)); in main() 133 PetscCall(MatSetValue(P, row, row, PetscSqr(0.81228), INSERT_VALUES)); in main() 139 PetscCall(MatSetValue(P, row, row, PetscSqr(0.30957), INSERT_VALUES)); in main() 144 PetscCall(MatSetValue(P, row, row, PetscSqr(3.2303), INSERT_VALUES)); in main()
|
| H A D | ex53.c | 35 PetscCall(MatSetValue(A, i, i, 2, INSERT_VALUES)); in main() 36 if (i < mat_size - 1) PetscCall(MatSetValue(A, i, i + 1, -1, INSERT_VALUES)); in main() 37 if (i > 0) PetscCall(MatSetValue(A, i, i - 1, -1, INSERT_VALUES)); in main()
|
| H A D | ex58.c | 90 PetscCall(MatSetValue(B, i, i, value[1], INSERT_VALUES)); in main() 92 PetscCall(MatSetValue(B, n - i + n / 3, i, value[0], INSERT_VALUES)); in main() 93 PetscCall(MatSetValue(B, i, n - i + n / 3, value[0], INSERT_VALUES)); in main()
|
| H A D | ex49.c | 44 PetscCall(MatSetValue(A, Ii, J, v, INSERT_VALUES)); in main() 46 PetscCall(MatSetValue(A, J, Ii, PetscConj(v), INSERT_VALUES)); in main() 48 PetscCall(MatSetValue(A, J, Ii, v, INSERT_VALUES)); in main()
|
| H A D | ex22.c | 45 for (j = 0; j < np; j++) PetscCall(MatSetValue(A12, i, j, i + j * n, INSERT_VALUES)); in test_solve() 47 PetscCall(MatSetValue(A12, 2, 1, 4, INSERT_VALUES)); in test_solve() 157 for (j = 0; j < np; j++) PetscCall(MatSetValue(A12, i, j, i + j * n, INSERT_VALUES)); in test_solve_matgetvecs() 159 PetscCall(MatSetValue(A12, 2, 1, 4, INSERT_VALUES)); in test_solve_matgetvecs()
|
| /petsc/src/ts/tests/ |
| H A D | ex18.c | 87 PetscCall(MatSetValue(B, 0, 0, shift * x[0] + xdot[0] - x[1], INSERT_VALUES)); in IJacobian() 88 PetscCall(MatSetValue(B, 0, 1, -x[0], INSERT_VALUES)); in IJacobian() 89 PetscCall(MatSetValue(B, 1, 0, 1.0, INSERT_VALUES)); in IJacobian() 90 PetscCall(MatSetValue(B, 1, 1, -1.0, INSERT_VALUES)); in IJacobian()
|
| /petsc/src/ksp/pc/tests/ |
| H A D | ex10.c | 64 PetscCall(MatSetValue(*mat, n - 1, n - 1, 2.0, INSERT_VALUES)); in Create1dLaplacian() 66 PetscCall(MatSetValue(*mat, i, i, 2.0, INSERT_VALUES)); in Create1dLaplacian() 67 PetscCall(MatSetValue(*mat, i + 1, i, -1.0, INSERT_VALUES)); in Create1dLaplacian() 68 PetscCall(MatSetValue(*mat, i, i + 1, -1.0, INSERT_VALUES)); in Create1dLaplacian()
|
| /petsc/src/mat/tutorials/ |
| H A D | ex4.c | 41 PetscCall(MatSetValue(A, i, i, 2.0, INSERT_VALUES)); in main() 42 if (rend < N) PetscCall(MatSetValue(A, i, rend, 1.0, INSERT_VALUES)); in main()
|
| H A D | ex4f.F90 | 40 PetscCallA(MatSetValue(A, i, i, two, INSERT_VALUES, ierr)) 41 if (rend < N1) PetscCallA(MatSetValue(A, i, rend, one, INSERT_VALUES, ierr))
|
| /petsc/src/snes/tutorials/ |
| H A D | ex47cu.cu | 168 PetscCall(MatSetValue(J, i, i, 1.0 / hx, INSERT_VALUES)); in ComputeJacobian() 170 PetscCall(MatSetValue(J, i, i - 1, -1.0 / hx, INSERT_VALUES)); in ComputeJacobian() 171 PetscCall(MatSetValue(J, i, i, 2.0 / hx - hx * PetscExpScalar(xx[i]), INSERT_VALUES)); in ComputeJacobian() 172 PetscCall(MatSetValue(J, i, i + 1, -1.0 / hx, INSERT_VALUES)); in ComputeJacobian()
|