| /petsc/src/ts/tutorials/advection-diffusion-reaction/ |
| H A D | ex3.c | 158 PetscInt i, mstart, mend, xm, M; in InitialConditions() local
163 PetscCall(DMDAGetCorners(da, &mstart, 0, 0, &xm, 0, 0)); in InitialConditions()
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
211 PetscCall(DMDAGetCorners(da, &mstart, 0, 0, &xm, 0, 0)); in Solution()
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
268 PetscCall(DMDAGetCorners(da, &mstart, 0, 0, &xm, 0, 0)); in RHSMatrixHeat()
[all …]
|
| H A D | ex6.c | 115 PetscInt i, mstart, mend, um, M; in InitialConditions() local
121 PetscCall(DMDAGetCorners(da, &mstart, 0, 0, &um, 0, 0)); in InitialConditions()
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
169 PetscCall(DMDAGetCorners(da, &mstart, 0, 0, &um, 0, 0)); in Solution()
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
208 PetscCall(DMDAGetCorners(da, &mstart, 0, 0, &um, 0, 0)); in IFunction_LaxFriedrichs()
[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/dm/tutorials/ |
| H A D | ex3.c | 33 PetscInt i, j, mstart, m, nstart, n; in SetCoordinates2d() local
45 PetscCall(DMDAGetCorners(cda, &mstart, &nstart, 0, &m, &n, 0)); in SetCoordinates2d()
46 for (i = mstart; i < mstart + m; i++) { in SetCoordinates2d()
62 PetscInt i, j, mstart, m, nstart, n, pstart, p, k; in SetCoordinates3d() local
74 PetscCall(DMDAGetCorners(cda, &mstart, &nstart, &pstart, &m, &n, &p)); in SetCoordinates3d()
75 for (i = mstart; i < mstart + m; i++) { in SetCoordinates3d()
|
| /petsc/src/ts/tests/ |
| H A D | ex12.c | 432 PetscInt i, mstart, mend, mstarts, mends, idx[3], is; in RHSJacobian() local
456 mstart = mstarts; in RHSJacobian()
474 if (mstart == 0) { in RHSJacobian()
476 PetscCall(MatSetValues(BB, 1, &mstart, 1, &mstart, v, INSERT_VALUES)); in RHSJacobian()
477 mstart++; in RHSJacobian()
490 for (i = mstart; i < mend; i++) { in RHSJacobian()
494 is = i - mstart + 1; in RHSJacobian()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex2.c | 527 PetscInt i, mstart, mend, mstarts, mends, idx[3], is; in RHSJacobian() local
551 mstart = mstarts; in RHSJacobian()
569 if (mstart == 0) { in RHSJacobian()
571 PetscCall(MatSetValues(BB, 1, &mstart, 1, &mstart, v, INSERT_VALUES)); in RHSJacobian()
572 mstart++; in RHSJacobian()
585 for (i = mstart; i < mend; i++) { in RHSJacobian()
589 is = i - mstart + 1; in RHSJacobian()
|
| H A D | ex21.c | 584 PetscInt i, mstart, mend, mstarts, mends, idx[3], is; in RHSJacobian() local
608 mstart = mstarts; in RHSJacobian()
626 if (mstart == 0) { in RHSJacobian()
628 PetscCall(MatSetValues(B, 1, &mstart, 1, &mstart, v, INSERT_VALUES)); in RHSJacobian()
629 mstart++; in RHSJacobian()
642 for (i = mstart; i < mend; i++) { in RHSJacobian()
646 is = i - mstart + 1; in RHSJacobian()
|
| H A D | ex4.c | 486 PetscInt i, mstart, mend, idx[3]; in RHSMatrixHeat() local
494 PetscCall(MatGetOwnershipRange(A, &mstart, &mend)); in RHSMatrixHeat()
500 if (mstart == 0) { /* first processor only */ in RHSMatrixHeat()
502 PetscCall(MatSetValues(A, 1, &mstart, 1, &mstart, v, INSERT_VALUES)); in RHSMatrixHeat()
503 mstart++; in RHSMatrixHeat()
519 for (i = mstart; i < mend; i++) { in RHSMatrixHeat()
|
| H A D | ex5.c | 420 PetscInt mstart = 0; in RHSMatrixHeat() local
433 mstart = 0; in RHSMatrixHeat()
435 PetscCall(MatSetValues(A, 1, &mstart, 1, &mstart, v, INSERT_VALUES)); in RHSMatrixHeat()
436 mstart++; in RHSMatrixHeat()
449 for (i = mstart; i < mend; i++) { in RHSMatrixHeat()
|
| H A D | ex6.c | 429 PetscInt mstart = 0; in RHSMatrixHeat() local
442 mstart = 0; in RHSMatrixHeat()
444 PetscCall(MatSetValues(A, 1, &mstart, 1, &mstart, v, INSERT_VALUES)); in RHSMatrixHeat()
445 mstart++; in RHSMatrixHeat()
458 for (i = mstart; i < mend; i++) { in RHSMatrixHeat()
|
| H A D | ex3.c | 466 PetscInt mstart = 0; in RHSMatrixHeat() local
479 mstart = 0; in RHSMatrixHeat()
481 PetscCall(MatSetValues(A, 1, &mstart, 1, &mstart, v, INSERT_VALUES)); in RHSMatrixHeat()
482 mstart++; in RHSMatrixHeat()
495 for (i = mstart; i < mend; i++) { in RHSMatrixHeat()
|
| /petsc/src/vec/vec/interface/ |
| H A D | rvector.c | 2633 PetscErrorCode VecGetArray2d(Vec x, PetscInt m, PetscInt n, PetscInt mstart, PetscInt nstart, Petsc… in VecGetArray2d() argument
2648 *a -= mstart; in VecGetArray2d()
2683 PetscErrorCode VecGetArray2dWrite(Vec x, PetscInt m, PetscInt n, PetscInt mstart, PetscInt nstart, … in VecGetArray2dWrite() argument
2698 *a -= mstart; in VecGetArray2dWrite()
2729 PetscErrorCode VecRestoreArray2d(Vec x, PetscInt m, PetscInt n, PetscInt mstart, PetscInt nstart, P… in VecRestoreArray2d() argument
2737 dummy = (void *)(*a + mstart); in VecRestoreArray2d()
2771 PetscErrorCode VecRestoreArray2dWrite(Vec x, PetscInt m, PetscInt n, PetscInt mstart, PetscInt nsta… in VecRestoreArray2dWrite() argument
2779 dummy = (void *)(*a + mstart); in VecRestoreArray2dWrite()
2813 PetscErrorCode VecGetArray1d(Vec x, PetscInt m, PetscInt mstart, PetscScalar *a[]) in VecGetArray1d() argument
2824 *a -= mstart; in VecGetArray1d()
[all …]
|
| /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()
147 PetscCall(ISCreateStride(comm, mlocal, mstart + red->psubcomm->color * M, 1, &is1)); in PCSetUp_Redundant()
148 PetscCall(ISCreateStride(comm, mlocal, mstart, 1, &is2)); in PCSetUp_Redundant()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.c | 3103 PetscInt start, len, mstart, mlen; in ISGetSeqIS_Private() local
3106 PetscCall(MatGetOwnershipRangeColumn(mat, &mstart, &mlen)); in ISGetSeqIS_Private()
3107 if (mstart == start && mlen - mstart == len) gisstride = 1; in ISGetSeqIS_Private()
|