| /petsc/src/dm/tests/ |
| H A D | ex39.c | 8 PetscInt M = 6, stencil_width = 1, dof = 1, m, xstart, i, j; in main() local
22 PetscCall(DMDAGetCorners(da, &xstart, 0, 0, &m, 0, 0)); in main()
26 for (i = xstart; i < xstart + m; i++) { in main()
|
| H A D | ex40.c | 8 PetscInt M = 8, N = 8, stencil_width = 1, dof = 1, m, n, xstart, ystart, i, j, c; in main() local
22 PetscCall(DMDAGetCorners(da, &xstart, &ystart, 0, &m, &n, 0)); in main()
27 for (i = xstart; i < xstart + m; i++) { in main()
|
| H A D | ex41.c | 8 …PetscInt M = 4, N = 5, P = 6, stencil_width = 1, dof = 1, m, n, p, xstart, ystart, zstart, … in main() local
23 PetscCall(DMDAGetCorners(da, &xstart, &ystart, &zstart, &m, &n, &p)); in main()
29 for (i = xstart; i < xstart + m; i++) { in main()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | bench_kspsolve.c | 46 PetscInt xstart, ystart, zstart, xend, yend, zend, nm2 = n - 2, idx; in PreallocateCOO() local
50 xstart = user->Istart % n; in PreallocateCOO()
62 if (!xstart && !ystart) // bottom left in PreallocateCOO()
64 else if (xstart && xstart < n1 && !ystart) // bottom in PreallocateCOO()
65 user->nnz += 3 * nnz[idx] + (3 * nm2 + n1 - xstart) * nnz[idx + 1] + nm2 * nm2 * nnz[idx + 2]; in PreallocateCOO()
66 else if (xstart == n1 && !ystart) // bottom right in PreallocateCOO()
68 else if (!xstart && ystart && ystart < n1) // left in PreallocateCOO()
70 else if (xstart && xstart < n1 && ystart && ystart < n1) // center in PreallocateCOO()
71 …- ystart) + (nm2 - ystart)) * nnz[idx + 1] + (nm2 * (nm2 - ystart) + (n1 - xstart)) * nnz[idx + 2]; in PreallocateCOO()
72 else if (xstart == n1 && ystart && ystart < n1) // right in PreallocateCOO()
[all …]
|
| /petsc/src/sys/classes/draw/interface/ |
| H A D | drect.c | 24 int i, j, xstart, ystart, xend, yend; in PetscDrawIndicatorFunction() local
33 PetscCall(PetscDrawCoordinateToPixel(draw, xmin, ymin, &xstart, &ystart)); in PetscDrawIndicatorFunction()
41 for (i = xstart; i <= xend; i++) { in PetscDrawIndicatorFunction()
|
| /petsc/src/vec/vec/utils/ |
| H A D | vscat.c | 673 PetscInt i, n, N, nroots, nleaves, *ilocal, xstart, ystart, ixsize, iysize, xlen, ylen; in VecScatterCreate() local
713 PetscCall(VecGetOwnershipRange(x, &xstart, NULL)); in VecScatterCreate()
714 PetscCall(ISCreateStride(PETSC_COMM_SELF, n, xstart, 1, &ix)); in VecScatterCreate()
889 PetscCall(VecGetOwnershipRange(xx,&xstart,NULL)); in VecScatterCreate()
900 leafdata[2*i+1] = (xcommsize > 1)? xindices[i] : xindices[i] + xstart; in VecScatterCreate()
947 PetscCall(VecGetOwnershipRange(xx, &xstart, NULL)); in VecScatterCreate()
949 for (i = 0; i < n; i++) xindices_sorted[i] += xstart; in VecScatterCreate()
|
| /petsc/src/tao/constrained/impls/ipm/ |
| H A D | ipm.c | 224 PetscInt xstart, xend; in IPMInitializeBounds() local
275 PetscCall(VecGetOwnershipRange(tao->solution, &xstart, &xend)); in IPMInitializeBounds()
323 if (xli[i] < xstart) { in IPMInitializeBounds()
350 if (xui[i] < xstart) { in IPMInitializeBounds()
379 for (i = xstart; i < xend; i++) { in IPMInitializeBounds()
380 stepind[i - xstart] = i; in IPMInitializeBounds()
381 xind[i - xstart] = i; in IPMInitializeBounds()
383 PetscCall(ISCreateGeneral(comm, xend - xstart, stepind, PETSC_COPY_VALUES, &sis)); in IPMInitializeBounds()
384 PetscCall(ISCreateGeneral(comm, xend - xstart, xind, PETSC_COPY_VALUES, &is1)); in IPMInitializeBounds()
|
| H A D | pdipm.c | 54 PetscInt i, offset, offset1, k, xstart; in TaoPDIPMUpdateConstraints() local
60 PetscCall(VecGetOwnershipRange(x, &xstart, NULL)); in TaoPDIPMUpdateConstraints()
80 i = fxptr[k] - xstart; in TaoPDIPMUpdateConstraints()
101 i = ubptr[k] - xstart; in TaoPDIPMUpdateConstraints()
111 i = lbptr[k] - xstart; in TaoPDIPMUpdateConstraints()
122 i = bxptr[k] - xstart; /* local indices in x */ in TaoPDIPMUpdateConstraints()
|
| /petsc/src/vec/is/sf/tests/ |
| H A D | ex9.c | 364 PetscInt n, N = 15, xstart, ystart, low, high; in main() local
411 PetscCall(VecGetOwnershipRange(y, &xstart, NULL)); in main()
414 PetscCall(ISCreateStride(PETSC_COMM_SELF, n, xstart, 1, &ix)); in main()
|
| /petsc/src/ksp/pc/impls/gasm/ |
| H A D | gasm.c | 1620 PetscInt xstart, xleft, xright, xleft_loc, xright_loc; in PCGASMCreateSubdomains2D() local
1650 xstart = 0; in PCGASMCreateSubdomains2D()
1655 xleft = PetscMax(xstart - overlap, 0); in PCGASMCreateSubdomains2D()
1656 xright = PetscMin(xstart + maxwidth + overlap, M); in PCGASMCreateSubdomains2D()
1662 xstart += maxwidth; in PCGASMCreateSubdomains2D()
1682 xstart = 0; in PCGASMCreateSubdomains2D()
1687 x[0][0] = PetscMax(xstart - overlap, 0); in PCGASMCreateSubdomains2D()
1688 x[0][1] = PetscMin(xstart + maxwidth + overlap, M); in PCGASMCreateSubdomains2D()
1690 x[1][0] = xstart; in PCGASMCreateSubdomains2D()
1691 x[1][1] = PetscMin(xstart + maxwidth, M); in PCGASMCreateSubdomains2D()
[all …]
|
| /petsc/src/ksp/pc/impls/asm/ |
| H A D | asm.c | 1574 PetscInt i, j, height, width, ystart, xstart, yleft, yright, xleft, xright, loc_outer; in PCASMCreateSubdomains2D() local
1592 xstart = 0; in PCASMCreateSubdomains2D()
1596 xleft = xstart - overlap; in PCASMCreateSubdomains2D()
1598 xright = xstart + width + overlap; in PCASMCreateSubdomains2D()
1614 for (jj = xstart; jj < xstart + width; jj++) idx[loc++] = m * ii + jj; in PCASMCreateSubdomains2D()
1619 xstart += width; in PCASMCreateSubdomains2D()
|