| /petsc/src/dm/impls/da/ |
| H A D | dagetarray.c | 45 PetscInt xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof; in DMDAVecGetArray() local 52 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, &gzs, &gxm, &gym, &gzm)); in DMDAVecGetArray() 62 gys = ys; in DMDAVecGetArray() 69 PetscCall(VecGetArray2d(vec, gym, gxm * dof, gys, gxs * dof, (PetscScalar ***)array)); in DMDAVecGetArray() 71 … PetscCall(VecGetArray3d(vec, gzm, gym, gxm * dof, gzs, gys, gxs * dof, (PetscScalar ****)array)); in DMDAVecGetArray() 94 PetscInt xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof; in DMDAVecRestoreArray() local 101 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, &gzs, &gxm, &gym, &gzm)); in DMDAVecRestoreArray() 111 gys = ys; in DMDAVecRestoreArray() 118 PetscCall(VecRestoreArray2d(vec, gym, gxm * dof, gys, gxs * dof, (PetscScalar ***)array)); in DMDAVecRestoreArray() 120 …PetscCall(VecRestoreArray3d(vec, gzm, gym, gxm * dof, gzs, gys, gxs * dof, (PetscScalar ****)array… in DMDAVecRestoreArray() [all …]
|
| H A D | fdda.c | 261 PetscInt xs, ys, nx, ny, i, j, ii, gxs, gys, gnx, gny, m, n, M, N, dim, s, k, nc, col; in DMCreateColoring_DA_2d_MPIAIJ() local 278 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, NULL, &gnx, &gny, NULL)); in DMCreateColoring_DA_2d_MPIAIJ() 302 for (j = gys; j < gys + gny; j++) { in DMCreateColoring_DA_2d_MPIAIJ() 325 …PetscInt xs, ys, nx, ny, i, j, gxs, gys, gnx, gny, m, n, p, dim, s, k, nc, col, zs, gzs, i… in DMCreateColoring_DA_3d_MPIAIJ() local 345 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, &gzs, &gnx, &gny, &gnz)); in DMCreateColoring_DA_3d_MPIAIJ() 369 for (j = gys; j < gys + gny; j++) { in DMCreateColoring_DA_3d_MPIAIJ() 459 PetscInt xs, ys, nx, ny, i, j, ii, gxs, gys, gnx, gny, m, n, dim, s, k, nc; in DMCreateColoring_DA_2d_5pt_MPIAIJ() local 473 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, NULL, &gnx, &gny, NULL)); in DMCreateColoring_DA_2d_5pt_MPIAIJ() 493 for (j = gys; j < gys + gny; j++) { in DMCreateColoring_DA_2d_5pt_MPIAIJ() 824 …PetscInt xs, ys, nx, ny, i, j, slot, gxs, gys, gnx, gny, m, n, dim, s, *cols = NULL,… in DMCreateMatrix_DA_2d_MPISELL() local [all …]
|
| H A D | dalocal.c | 137 …gys) && !(j >= info.gys + info.gym), PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Y index %" PetscI… in DMDAGetCellPoint()
|
| /petsc/src/dm/impls/da/ftn-custom/ |
| H A D | zda1f90.c | 68 PetscInt xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof; in dmdavecgetarray1_() local 73 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarray1_() 86 gys = ys; in dmdavecgetarray1_() 109 PetscInt xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof; in dmdavecgetarray2_() local 114 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarray2_() 127 gys = ys; in dmdavecgetarray2_() 134 gys = gxs; in dmdavecgetarray2_() 141 *ierr = F90Array2dCreate(aa, MPIU_SCALAR, gxs, gxm, gys, gym, a PETSC_F90_2PTR_PARAM(ptrd)); in dmdavecgetarray2_() 156 PetscInt xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof; in dmdavecgetarray3_() local 161 *ierr = DMDAGetGhostCorners(*da, &gxs, &gys, &gzs, &gxm, &gym, &gzm); in dmdavecgetarray3_() [all …]
|
| /petsc/src/dm/impls/da/kokkos/ |
| H A D | dagetov.kokkos.cxx | 8 #define DMDA_VEC_GET_SHAPE(da, vec, xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, d… argument 11 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, &gzs, &gxm, &gym, &gzm)); \ 20 gys = ys; \ 29 …PetscInt xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, di… in DMDAVecGetKokkosOffsetView_Private() local 36 DMDA_VEC_GET_SHAPE(da, vec, xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof); in DMDAVecGetKokkosOffsetView_Private() 63 …PetscInt xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, … in DMDAVecGetKokkosOffsetView() local 70 DMDA_VEC_GET_SHAPE(da, vec, xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof); in DMDAVecGetKokkosOffsetView() 95 …PetscInt xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, di… in DMDAVecGetKokkosOffsetView_Private() local 102 DMDA_VEC_GET_SHAPE(da, vec, xs, ys, zs, xm, ym, zm, gxs, gys, gzs, gxm, gym, gzm, N, dim, dof); in DMDAVecGetKokkosOffsetView_Private() 106 …*ov = PetscScalarKokkosOffsetView2DType<MemorySpace>(kv.data(), {gys * dof, gxs * dof}, {(gys + gy… in DMDAVecGetKokkosOffsetView_Private() [all …]
|
| /petsc/src/ts/tutorials/autodiff/adolc-utils/ |
| H A D | matfree.cxx | 60 for (j = info.gys; j < info.gys + info.gym; j++) { in PetscAdolcIJacobianVectorProduct() 76 for (j = info.gys; j < info.gys + info.gym; j++) { in PetscAdolcIJacobianVectorProduct() 142 for (j = info.gys; j < info.gys + info.gym; j++) { in PetscAdolcIJacobianVectorProductIDMass() 210 for (j = info.gys; j < info.gys + info.gym; j++) { in PetscAdolcIJacobianTransposeVectorProduct() 230 for (j = info.gys; j < info.gys + info.gym; j++) { in PetscAdolcIJacobianTransposeVectorProduct() 296 for (j = info.gys; j < info.gys + info.gym; j++) { in PetscAdolcIJacobianTransposeVectorProductIDMass()
|
| H A D | init.cxx | 111 PetscInt gxs, gys, gxm, gym; in GiveGhostPoints2d() local 114 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, NULL, &gxm, &gym, NULL)); in GiveGhostPoints2d() 116 *a2d -= gys; in GiveGhostPoints2d()
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | eptorsion2.c | 159 PetscInt xs, ys, xm, ym, gxm, gym, gxs, gys, xe, ye; in FormInitialGuess() local 165 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in FormInitialGuess() 173 k = (j - gys) * gxm + i - gxs; in FormInitialGuess() 201 PetscInt xs, ys, xm, ym, gxm, gym, gxs, gys; in FormFunctionGradient() local 229 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in FormFunctionGradient() 246 k = (j - gys) * gxm + i - gxs; in FormFunctionGradient() 278 k = (j - gys) * gxm + i - gxs; in FormFunctionGradient() 331 PetscInt xs, xm, gxs, gxm, ys, ym, gys, gym; in FormHessian() local 343 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in FormHessian() 347 row = (j - gys) * gxm + (i - gxs); in FormHessian() [all …]
|
| H A D | eptorsion2f.F90 | 58 PetscInt gxm, gym, gxs, gys 67 …PetscCall(DMDAGetGhostCorners(dm, gxs, gys, PETSC_NULL_INTEGER, gxm, gym, PETSC_NULL_INTEGER, ierr… 75 k = (j - gys)*gxm + i - gxs 124 PetscInt gxs, gys, gxm, gym 146 …PetscCall(DMDAGetGhostCorners(dm, gxs, gys, PETSC_NULL_INTEGER, gxm, gym, PETSC_NULL_INTEGER, ierr… 179 k = (j - gys)*gxm + i - gxs 212 k = (j - gys)*gxm + i - gxs 268 PetscInt ys, ym, gys, gym 276 …PetscCall(DMDAGetGhostCorners(dm, gxs, gys, PETSC_NULL_INTEGER, gxm, gym, PETSC_NULL_INTEGER, ierr… 280 row = (j - gys)*gxm + (i - gxs) [all …]
|
| H A D | minsurf2.c | 166 PetscInt xs, xm, gxs, gxm, ys, ym, gys, gym; in FormFunction() local 178 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in FormFunction() 210 if (j + 1 == gys + gym) { /* top side */ in FormFunction() 300 PetscInt xs, xm, gxs, gxm, ys, ym, gys, gym; in FormFunctionGradient() local 313 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in FormFunctionGradient() 350 if (j + 1 == gys + gym) { /* top side */ in FormFunctionGradient() 357 if (i > gxs && j + 1 < gys + gym) xlt = x[j + 1][i - 1]; in FormFunctionGradient() 358 if (j > gys && i + 1 < gxs + gxm) xrb = x[j - 1][i + 1]; in FormFunctionGradient() 506 PetscInt xs, xm, gxs, gxm, ys, ym, gys, gym; in QuadraticH() local 520 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in QuadraticH() [all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex5f.F90 | 40 PetscInt ys, ye, ym, gys, gye, gym 164 PetscScalar x(gxs:gxe, gys:gye) 250 PetscScalar x(gxs:gxe, gys:gye) 288 row = (j - gys)*gxm + xs - gxs - 1 446 call DMDAGetGhostCorners(da, gxs, gys, PETSC_NULL_INTEGER, gxm, gym, PETSC_NULL_INTEGER, ierr) 455 gys = gys + 1 459 gye = gys + gym - 1
|
| H A D | ex5f90t.F90 | 41 PetscInt ys, ye, ym, gys, gye, gym 224 PetscScalar x(ctx%gxs:ctx%gxe, ctx%gys:ctx%gye) 389 PetscScalar x(ctx%gxs:ctx%gxe, ctx%gys:ctx%gye) 423 row = (j - ctx%gys)*ctx%gxm + ctx%xs - ctx%gxs - 1 525 …PetscCallA(DMDAGetGhostCorners(ctx%da, ctx%gxs, ctx%gys, PETSC_NULL_INTEGER, ctx%gxm, ctx%gym, PET… 532 ctx%gys = ctx%gys + 1 536 ctx%gye = ctx%gys + ctx%gym - 1
|
| H A D | ex5f90.F90 | 41 PetscInt ys, ye, ym, gys, gye, gym 234 PetscScalar x(ctx%gxs:ctx%gxe, ctx%gys:ctx%gye) 400 PetscScalar x(ctx%gxs:ctx%gxe, ctx%gys:ctx%gye) 434 row = (j - ctx%gys)*ctx%gxm + ctx%xs - ctx%gxs - 1 537 …PetscCallA(DMDAGetGhostCorners(da, ctx%gxs, ctx%gys, PETSC_NULL_INTEGER, ctx%gxm, ctx%gym, PETSC_N… 544 ctx%gys = ctx%gys + 1 548 ctx%gye = ctx%gys + ctx%gym - 1
|
| /petsc/src/binding/petsc4py/demo/legacy/wrap-f2py/ |
| H A D | Bratu2D.F90 | 29 PetscInt my, ys, ye, ym, gys, gye, gym 42 …PetscCall(DMDAGetGhostCorners(da, grd%gxs, grd%gys, PETSC_NULL_INTEGER, grd%gxm, grd%gym, PETSC_NU… 47 grd%gys = grd%gys + 1 51 grd%gye = grd%gys + grd%gym - 1 90 PetscScalar x(grd%gxs:grd%gxe, grd%gys:grd%gye) 128 PetscScalar x(grd%gxs:grd%gxe, grd%gys:grd%gye) 148 row = (j - grd%gys)*grd%gxm + grd%xs - grd%gxs - 1
|
| /petsc/src/dm/tests/ |
| H A D | ex2k.kokkos.cxx | 36 PetscInt xm, ym, zm, xs, ys, zs, gxm, gym, gzm, gxs, gys, gzs; in Update1() local 40 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, &gzs, &gxm, &gym, &gzm)); in Update1() 59 PetscInt xm, ym, zm, xs, ys, zs, gxm, gym, gzm, gxs, gys, gzs; in Update2() local 63 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, &gzs, &gxm, &gym, &gzm)); in Update2() 64 #define X2(k, j, i) x2[(k - gzs) * gym * gxm + (j - gys) * gxm + (i - gxs)] in Update2() 84 PetscInt xm, ym, zm, xs, ys, zs, gxm, gym, gzm, gxs, gys, gzs; in main() local 112 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, &gzs, &gxm, &gym, &gzm)); in main()
|
| H A D | ex43.c | 30 …for (j = info.gys; j < info.gys + info.gym; j++) PetscCall(PetscSynchronizedPrintf(com, "%g, ", (d… in PrintVecWithGhosts()
|
| /petsc/src/tao/bound/tutorials/ |
| H A D | plate2f.F90 | 69 PetscInt gys, gym 94 …PetscCall(DMDAGetGhostCorners(dm, gxs, gys, PETSC_NULL_INTEGER, gxm, gym, PETSC_NULL_INTEGER, ierr… 114 row = (j - gys)*gxm + (i - gxs) 144 if (j + 1 == gys + gym) then !top side 151 if ((i > gxs) .and. (j + 1 < gys + gym)) then 155 if ((j > gys) .and. (i + 1 < gxs + gxm)) then 208 d2 = (left_v(1 + j - ys + 1) - x_v(1 + (j - gys)*gxm))*rhx 223 d1 = (x_v(1 + (j + 1 - gys)*gxm - 1) - right_v(1 + j - ys + 1))*rhx 303 PetscInt ys, ym, gys, gym 325 …PetscCall(DMDAGetGhostCorners(dm, gxs, gys, PETSC_NULL_INTEGER, gxm, gym, PETSC_NULL_INTEGER, ierr… [all …]
|
| H A D | jbearing2.c | 175 PetscInt nx, ny, xs, xm, gxs, gxm, ys, ym, gys, gym; in ComputeB() local 192 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in ComputeB() 212 PetscInt col[5], row, nx, ny, xs, xm, gxs, gxm, ys, ym, gys, gym; in FormFunctionGradient() local 241 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in FormFunctionGradient() 262 row = (j - gys) * gxm + (i - gxs); in FormFunctionGradient() 270 if (j > gys) { in FormFunctionGradient() 292 if (j + 1 < gys + gym) { in FormFunctionGradient() 327 PetscInt col[5], row, nx, ny, xs, xm, gxs, gxm, ys, ym, gys, gym; in FormHessian() local 348 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in FormHessian() 373 row = (j - gys) * gxm + (i - gxs); in FormHessian() [all …]
|
| H A D | plate2.c | 202 PetscInt xs, xm, gxs, gxm, ys, ym, gys, gym; in FormFunctionGradient() local 215 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in FormFunctionGradient() 235 row = (j - gys) * gxm + (i - gxs); in FormFunctionGradient() 261 if (j + 1 == gys + gym) { /* top side */ in FormFunctionGradient() 268 if (i > gxs && j + 1 < gys + gym) xlt = x[row - 1 + gxm]; in FormFunctionGradient() 269 if (j > gys && i + 1 < gxs + gxm) xrb = x[row + 1 - gxm]; in FormFunctionGradient() 320 d2 = (left[j - ys + 1] - x[(j - gys) * gxm]) * rhx; in FormFunctionGradient() 334 d1 = (x[(j + 1 - gys) * gxm - 1] - right[j - ys + 1]) * rhx; in FormFunctionGradient() 420 PetscInt xs, xm, gxs, gxm, ys, ym, gys, gym, col[7]; in FormHessian() local 440 PetscCall(DMDAGetGhostCorners(user->dm, &gxs, &gys, NULL, &gxm, &gym, NULL)); in FormHessian() [all …]
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex14.c | 279 PetscInt i, j, row, mx, my, xs, ys, xm, ym, gxm, gym, gxs, gys; in FormInitialGuess() local 307 PetscCall(DMDAGetGhostCorners(user->da, &gxs, &gys, NULL, &gxm, &gym, NULL)); in FormInitialGuess() 315 row = i - gxs + (j - gys) * gxm; in FormInitialGuess() 343 PetscInt i, j, row, mx, my, xs, ys, xm, ym, gxs, gys, gxm, gym; in ComputeFunction() local 376 PetscCall(DMDAGetGhostCorners(user->da, &gxs, &gys, NULL, &gxm, &gym, NULL)); in ComputeFunction() 382 row = (j - gys) * gxm + xs - gxs - 1; in ComputeFunction() 427 PetscInt xs, ys, xm, ym, gxs, gys, gxm, gym, grow; in ComputeJacobian() local 458 PetscCall(DMDAGetGhostCorners(user->da, &gxs, &gys, NULL, &gxm, &gym, NULL)); in ComputeJacobian() 479 row = (j - gys) * gxm + xs - gxs - 1; in ComputeJacobian()
|
| /petsc/src/ts/tutorials/autodiff/ |
| H A D | adr_ex5adj_mf.cxx | 291 PetscInt i, j, xs, ys, xm, ym, gxs, gys, gxm, gym; in IFunctionActive() local 311 gys = info.gys; in IFunctionActive() 356 for (j = gys; j < gys + gym; j++) { in IFunctionActive() 383 for (j = gys; j < gys + gym; j++) { in IFunctionActive() 405 f_a += info.gys; in IFunctionActive() 406 u_a += info.gys; in IFunctionActive()
|
| H A D | adr_ex5adj.cxx | 403 PetscInt i, j, xs, ys, xm, ym, gxs, gys, gxm, gym; in IFunctionActive() local 423 gys = info.gys; in IFunctionActive() 468 for (j = gys; j < gys + gym; j++) { in IFunctionActive() 495 for (j = gys; j < gys + gym; j++) { in IFunctionActive() 517 f_a += info.gys; in IFunctionActive() 518 u_a += info.gys; in IFunctionActive() 610 PetscInt i, j, xs, ys, xm, ym, gxs, gys, gxm, gym, Mx, My; in RHSFunctionActive() local 648 PetscCall(DMDAGetGhostCorners(da, &gxs, &gys, NULL, &gxm, &gym, NULL)); in RHSFunctionActive() 680 for (j = gys; j < gys + gym; j++) { in RHSFunctionActive() 708 for (j = gys; j < gys + gym; j++) { in RHSFunctionActive() [all …]
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex14f.F90 | 147 PetscInt gys, gxm, gym 182 …PetscCall(DMDAGetGhostCorners(da, gxs, gys, PETSC_NULL_INTEGER, gxm, gym, PETSC_NULL_INTEGER, ierr… 188 row = (j - gys)*gxm + xs - gxs 233 PetscInt gxs, gys, gxm, gym 270 …PetscCall(DMDAGetGhostCorners(da, gxs, gys, PETSC_NULL_INTEGER, gxm, gym, PETSC_NULL_INTEGER, ierr… 289 row = (j - gys)*gxm + xs - gxs
|
| /petsc/src/snes/utils/ftn-custom/ |
| H A D | zdmdasnesf.c | 42 …PetscCallFortranVoidFunction((*func)(info, &in[info->gys][info->dof * info->gxs], &A, &m, ctx, &ie… in sourlj2d() 54 …PetscCallFortranVoidFunction((*func)(info, &in[info->gzs][info->gys][info->dof * info->gxs], &A, &… in sourlj3d() 104 …PetscCallFortranVoidFunction((*func)(info, &in[info->gys][info->dof * info->gxs], &out[info->ys][i… in sourlf2d() 116 …PetscCallFortranVoidFunction((*func)(info, &in[info->gzs][info->gys][info->dof * info->gxs], &out[… in sourlf3d()
|
| /petsc/include/ |
| H A D | petscdmdatypes.h | 64 PetscInt gxs, gys, gzs; /* starting point of this processor including ghosts */ member
|