| /petsc/src/ts/tutorials/advection-diffusion-reaction/ |
| H A D | ex3.c | 158 PetscInt i, mstart, mend, xm, M; in InitialConditions() local
166 mend = mstart + xm; in InitialConditions()
183 …for (i = mstart; i < mend; i++) u[i] = PetscSinScalar(PETSC_PI * i * 6. * h) + 3. * PetscSinScalar… in InitialConditions()
206 PetscInt i, mstart, mend, xm, M; in Solution() local
214 mend = mstart + xm; in Solution()
228 …for (i = mstart; i < mend; i++) u[i] = PetscSinScalar(sc1 * (PetscReal)i + appctx->a * PETSC_PI * … in Solution()
260 PetscInt mstart, mend; in RHSMatrixHeat() local
270 mend = mstart + xm; in RHSMatrixHeat()
290 if (mend == M) { in RHSMatrixHeat()
291 mend--; in RHSMatrixHeat()
[all …]
|
| H A D | ex6.c | 115 PetscInt i, mstart, mend, um, M; in InitialConditions() local
124 mend = mstart + um; in InitialConditions()
141 …for (i = mstart; i < mend; i++) u[i] = PetscSinReal(PETSC_PI * i * 6. * h) + 3. * PetscSinReal(PET… in InitialConditions()
164 PetscInt i, mstart, mend, um, M; in Solution() local
172 mend = mstart + um; in Solution()
180 …for (i = mstart; i < mend; i++) u[i] = PetscSinReal(PI6 * (i * h - a * t)) + 3. * PetscSinReal(PI2… in Solution()
196 PetscInt mstart, mend, M, i, um; in IFunction_LaxFriedrichs() local
210 mend = mstart + um; in IFunction_LaxFriedrichs()
225 for (i = mstart; i < mend; i++) { in IFunction_LaxFriedrichs()
244 PetscInt mstart, mend, M, i, um; in IFunction_LaxWendroff() local
[all …]
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex57.c | 13 PetscInt row, col, mstart, mend; in main() local
25 PetscCall(MatGetOwnershipRange(subA[0], &mstart, &mend)); in main()
26 for (row = mstart; row < mend; ++row) { in main()
35 PetscCall(MatGetOwnershipRange(subA[1], &mstart, &mend)); in main()
36 for (row = mstart; row < mend; ++row) { in main()
45 PetscCall(MatGetOwnershipRange(subA[2], &mstart, &mend)); in main()
46 for (row = mstart; row < mend; ++row) { in main()
55 PetscCall(MatGetOwnershipRange(subA[3], &mstart, &mend)); in main()
56 for (row = mstart; row < mend; ++row) { in main()
65 PetscCall(MatGetOwnershipRange(subA[4], &mstart, &mend)); in main()
[all …]
|
| /petsc/src/ts/tests/ |
| H A D | ex12.c | 432 PetscInt i, mstart, mend, mstarts, mends, idx[3], is; in RHSJacobian() local
457 mend = mends; in RHSJacobian()
479 if (mend == appctx->m) { in RHSJacobian()
480 mend--; in RHSJacobian()
482 PetscCall(MatSetValues(BB, 1, &mend, 1, &mend, v, INSERT_VALUES)); in RHSJacobian()
490 for (i = mstart; i < mend; i++) { in RHSJacobian()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex4.c | 486 PetscInt i, mstart, mend, idx[3]; in RHSMatrixHeat() local
494 PetscCall(MatGetOwnershipRange(A, &mstart, &mend)); in RHSMatrixHeat()
506 if (mend == appctx->m) { /* last processor only */ in RHSMatrixHeat()
507 mend--; in RHSMatrixHeat()
509 PetscCall(MatSetValues(A, 1, &mend, 1, &mend, v, INSERT_VALUES)); in RHSMatrixHeat()
519 for (i = mstart; i < mend; i++) { in RHSMatrixHeat()
|
| H A D | ex2.c | 527 PetscInt i, mstart, mend, mstarts, mends, idx[3], is; in RHSJacobian() local
552 mend = mends; in RHSJacobian()
574 if (mend == appctx->m) { in RHSJacobian()
575 mend--; in RHSJacobian()
577 PetscCall(MatSetValues(BB, 1, &mend, 1, &mend, v, INSERT_VALUES)); in RHSJacobian()
585 for (i = mstart; i < mend; i++) { in RHSJacobian()
|
| H A D | ex21.c | 584 PetscInt i, mstart, mend, mstarts, mends, idx[3], is; in RHSJacobian() local
609 mend = mends; in RHSJacobian()
631 if (mend == appctx->m) { in RHSJacobian()
632 mend--; in RHSJacobian()
634 PetscCall(MatSetValues(B, 1, &mend, 1, &mend, v, INSERT_VALUES)); in RHSJacobian()
642 for (i = mstart; i < mend; i++) { in RHSJacobian()
|
| H A D | ex5.c | 421 PetscInt mend = appctx->m; in RHSMatrixHeat() local
438 mend--; in RHSMatrixHeat()
440 PetscCall(MatSetValues(A, 1, &mend, 1, &mend, v, INSERT_VALUES)); in RHSMatrixHeat()
449 for (i = mstart; i < mend; i++) { in RHSMatrixHeat()
|
| H A D | ex6.c | 430 PetscInt mend = appctx->m; in RHSMatrixHeat() local
447 mend--; in RHSMatrixHeat()
449 PetscCall(MatSetValues(A, 1, &mend, 1, &mend, v, INSERT_VALUES)); in RHSMatrixHeat()
458 for (i = mstart; i < mend; i++) { in RHSMatrixHeat()
|
| H A D | ex3.c | 467 PetscInt mend = appctx->m; in RHSMatrixHeat() local
484 mend--; in RHSMatrixHeat()
486 PetscCall(MatSetValues(A, 1, &mend, 1, &mend, v, INSERT_VALUES)); in RHSMatrixHeat()
495 for (i = mstart; i < mend; i++) { in RHSMatrixHeat()
|
| /petsc/src/ksp/pc/impls/redundant/ |
| H A D | redundant.c | 69 PetscInt mstart, mend, mlocal, M; in PCSetUp_Redundant() local
130 PetscCall(VecGetOwnershipRange(x, &mstart, &mend)); in PCSetUp_Redundant()
131 mlocal = mend - mstart; in PCSetUp_Redundant()
135 for (i = mstart; i < mend; i++) { in PCSetUp_Redundant()
|