| /petsc/src/sys/objects/device/tests/ |
| H A D | petscdevicetestcommon.h | 44 …AssertPetscStreamTypesValidAndEqual(PetscStreamType left, PetscStreamType right, const char *errSt… in AssertPetscStreamTypesValidAndEqual() argument
48 PetscValidStreamType(right, 2); in AssertPetscStreamTypesValidAndEqual()
49 …PetscCheck(left == right, PETSC_COMM_SELF, PETSC_ERR_ARG_CORRUPT, errStr, PetscStreamTypes[left], … in AssertPetscStreamTypesValidAndEqual()
53 …AssertPetscDeviceTypesValidAndEqual(PetscDeviceType left, PetscDeviceType right, const char *errSt… in AssertPetscDeviceTypesValidAndEqual() argument
57 PetscValidDeviceType(right, 2); in AssertPetscDeviceTypesValidAndEqual()
58 …PetscCheck(left == right, PETSC_COMM_SELF, PETSC_ERR_ARG_CORRUPT, errStr, PetscDeviceTypes[left], … in AssertPetscDeviceTypesValidAndEqual()
62 static inline PetscErrorCode AssertPetscDevicesValidAndEqual(PetscDevice left, PetscDevice right, c… in AssertPetscDevicesValidAndEqual() argument
65 PetscCheckCompatibleDevices(left, 1, right, 2); in AssertPetscDevicesValidAndEqual()
66 …PetscCheck(left == right, PETSC_COMM_SELF, PETSC_ERR_ARG_CORRUPT, "%s: %p != %p", errStr, (void *)… in AssertPetscDevicesValidAndEqual()
70 …scDeviceContextsValidAndEqual(PetscDeviceContext left, PetscDeviceContext right, const char *errSt… in AssertPetscDeviceContextsValidAndEqual() argument
[all …]
|
| /petsc/src/sys/utils/ |
| H A D | sortip.c | 23 …scErrorCode PetscSortIntWithPermutation_Private(const PetscInt v[], PetscInt vdx[], PetscInt right) in PetscSortIntWithPermutation_Private() argument
28 if (right <= 1) { in PetscSortIntWithPermutation_Private()
29 if (right == 1) { in PetscSortIntWithPermutation_Private()
34 SWAP(vdx[0], vdx[right / 2], tmp); in PetscSortIntWithPermutation_Private()
37 for (i = 1; i <= right; i++) { in PetscSortIntWithPermutation_Private()
45 PetscCall(PetscSortIntWithPermutation_Private(v, vdx + last + 1, right - (last + 1))); in PetscSortIntWithPermutation_Private()
93 …ErrorCode PetscSortRealWithPermutation_Private(const PetscReal v[], PetscInt vdx[], PetscInt right) in PetscSortRealWithPermutation_Private() argument
99 if (right <= 1) { in PetscSortRealWithPermutation_Private()
100 if (right == 1) { in PetscSortRealWithPermutation_Private()
105 SWAP(vdx[0], vdx[right / 2], tmp); in PetscSortRealWithPermutation_Private()
[all …]
|
| H A D | sortd.c | 41 static PetscErrorCode PetscSortReal_Private(PetscReal *v, PetscCount right) in PetscSortReal_Private() argument
47 if (right <= 1) { in PetscSortReal_Private()
48 if (right == 1) { in PetscSortReal_Private()
53 SWAP(v[0], v[right / 2], tmp); in PetscSortReal_Private()
56 for (i = 1; i <= right; i++) { in PetscSortReal_Private()
64 PetscCall(PetscSortReal_Private(v + last + 1, right - (last + 1))); in PetscSortReal_Private()
121 static PetscErrorCode PetscSortRealWithArrayInt_Private(PetscReal *v, PetscInt *V, PetscCount right) in PetscSortRealWithArrayInt_Private() argument
128 if (right <= 1) { in PetscSortRealWithArrayInt_Private()
129 if (right == 1) { in PetscSortRealWithArrayInt_Private()
134 SWAP2ri(v[0], v[right / 2], V[0], V[right / 2], rtmp, itmp); in PetscSortRealWithArrayInt_Private()
[all …]
|
| H A D | sortso.c | 4 static inline int Compare_PetscMPIInt_Private(const void *left, const void *right, PETSC_UNUSED Pet… in Compare_PetscMPIInt_Private() argument
6 PetscMPIInt l = *(PetscMPIInt *)left, r = *(PetscMPIInt *)right; in Compare_PetscMPIInt_Private()
10 static inline int Compare_PetscInt_Private(const void *left, const void *right, PETSC_UNUSED PetscC… in Compare_PetscInt_Private() argument
12 PetscInt l = *(PetscInt *)left, r = *(PetscInt *)right; in Compare_PetscInt_Private()
16 static inline int Compare_PetscReal_Private(const void *left, const void *right, PETSC_UNUSED Petsc… in Compare_PetscReal_Private() argument
18 PetscReal l = *(PetscReal *)left, r = *(PetscReal *)right; in Compare_PetscReal_Private()
209 …, char *tarr, size_t size, CompFunc cmp, PetscCtx ctx, PetscInt left, PetscInt mid, PetscInt right) in PetscTimSortMergeLo_Private() argument
216 while ((i < llen) && (j <= right)) { in PetscTimSortMergeLo_Private()
232 … PetscCall(PetscGallopSearchLeft_Private(arr, size, cmp, ctx, j, right, tarr + (i * size), &l2)); in PetscTimSortMergeLo_Private()
237 if (i >= llen || j > right) break; in PetscTimSortMergeLo_Private()
[all …]
|
| /petsc/src/dm/impls/stag/tests/output/ |
| H A D | ex50_dim-3_coords-true.out | 5 Lower left corner -1. -2. -3. : Upper right 1. 2. 3.
120 Lower left corner -1. -2. -3. : Upper right 1. 2. 3.
163 Lower left corner -1. -2. -3. : Upper right 1. 2. 3.
206 Lower left corner -1. -2. -3. : Upper right 1. 2. 0.
285 Lower left corner -1. -2. -3. : Upper right 1. 2. 0.
316 Lower left corner -1. -2. -3. : Upper right 1. 2. 0.
347 Lower left corner -1. -2. -3. : Upper right 1. 2. 0.
378 Lower left corner -1. -2. -3. : Upper right 1. 0. 3.
457 Lower left corner -1. -2. -3. : Upper right 1. 0. 3.
488 Lower left corner -1. -2. -3. : Upper right 1. 0. 3.
[all …]
|
| /petsc/src/mat/impls/blockmat/seq/ |
| H A D | blockmat.c | 13 Vec left, right, middle, workb; /* dummy vectors to perform local parts of product */ member
28 Vec left = a->left, right = a->right, middle = a->middle; in MatSOR_BlockMat_Symmetric() local
72 PetscCall(VecPlaceArray(right, x + idx[j] * bs)); in MatSOR_BlockMat_Symmetric()
73 PetscCall(MatMultAdd(v[j], right, left, left)); in MatSOR_BlockMat_Symmetric()
74 PetscCall(VecResetArray(right)); in MatSOR_BlockMat_Symmetric()
76 PetscCall(VecPlaceArray(right, b + i * bs)); in MatSOR_BlockMat_Symmetric()
77 PetscCall(VecAYPX(left, -1.0, right)); in MatSOR_BlockMat_Symmetric()
78 PetscCall(VecResetArray(right)); in MatSOR_BlockMat_Symmetric()
80 PetscCall(VecPlaceArray(right, x + i * bs)); in MatSOR_BlockMat_Symmetric()
81 PetscCall(MatSolve(diag[i], left, right)); in MatSOR_BlockMat_Symmetric()
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex97.c | 51 static PetscErrorCode CheckMatrices(Mat A, Mat B, Vec left, Vec right, Vec X, Vec Y, Vec X1, Vec Y1) in CheckMatrices() argument
56 PetscCall(VecDuplicateVecs(right, 2, &rtmp)); in CheckMatrices()
60 PetscCall(MatDiagonalScale(A, left, right)); in CheckMatrices()
61 PetscCall(MatDiagonalScale(B, left, right)); in CheckMatrices()
100 Vec left, right, X, Y, X1, Y1; in main() local
126 PetscCall(MatCreateVecs(Asub, &right, &left)); in main()
127 PetscCall(VecDuplicate(right, &X)); in main()
128 PetscCall(VecDuplicate(right, &X1)); in main()
134 PetscCall(VecSetRandom(right, NULL)); in main()
141 PetscCall(VecSet(right, 1.0)); in main()
[all …]
|
| H A D | ex99.c | 51 static PetscErrorCode CheckMatrices(Mat A, Mat B, Vec left, Vec right, Vec X, Vec Y, Vec X1, Vec Y1) in CheckMatrices() argument
56 PetscCall(VecDuplicateVecs(right, 2, &rtmp)); in CheckMatrices()
60 PetscCall(MatDiagonalScale(A, left, right)); in CheckMatrices()
61 PetscCall(MatDiagonalScale(B, left, right)); in CheckMatrices()
102 Vec left, right, X, Y, X1, Y1; in main() local
127 PetscCall(MatCreateVecs(Asub, &right, &left)); in main()
128 PetscCall(VecDuplicate(right, &X)); in main()
129 PetscCall(VecDuplicate(right, &X1)); in main()
135 PetscCall(VecSetRandom(right, NULL)); in main()
142 PetscCall(VecSet(right, 1.0)); in main()
[all …]
|
| H A D | ex241.c | 48 Vec right, left, perm; in main() local
90 PetscCall(MatCreateVecs(A, &right, &left)); in main()
91 PetscCall(VecSetRandom(right, rdm)); in main()
92 PetscCall(MatMult(A, right, left)); in main()
98 PetscCall(VecPermute(right, iss, PETSC_FALSE)); in main()
100 PetscCall(MatMult(A, right, left)); in main()
107 PetscCall(VecDestroy(&right)); in main()
208 PetscCall(MatCreateVecs(R, &right, &left)); in main()
209 PetscCall(VecSetRandom(right, rdm)); in main()
210 PetscCall(MatMult(R, right, left)); in main()
[all …]
|
| /petsc/src/sys/classes/draw/interface/ |
| H A D | dtext.c | 121 PetscReal top, left, right, bottom, tw, th; in PetscDrawStringBoxed() local
145 right = sxl + .5 * ((PetscReal)mlen + 2) * tw; in PetscDrawStringBoxed()
147 if (w) *w = right - left; in PetscDrawStringBoxed()
152 draw->boundbox_xr = PetscMax(draw->boundbox_xr, right); in PetscDrawStringBoxed()
157 PetscCall(PetscDrawLine(draw, left, top, right, top, bc)); in PetscDrawStringBoxed()
159 PetscCall(PetscDrawLine(draw, right, bottom, right, top, bc)); in PetscDrawStringBoxed()
160 PetscCall(PetscDrawLine(draw, left, bottom, right, bottom, bc)); in PetscDrawStringBoxed()
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex45.c | 17 Vec *left, *right; in main() local
36 PetscCall(KSPCreateVecs(ksp, 1, &right, 1, &left)); in main()
37 PetscCall(VecView(right[0], PETSC_VIEWER_STDOUT_(c))); in main()
38 PetscCall(VecDestroyVecs(1, &right)); in main()
|
| /petsc/src/sys/classes/draw/impls/x/ |
| H A D | ximage.c | 9 …cErrorCode PetscArgSortPixVal(const PetscDrawXiPixVal v[PETSC_DRAW_MAXCOLOR], int idx[], int right) in PetscArgSortPixVal() argument
20 if (right <= 1) { in PetscArgSortPixVal()
21 if (right == 1) { in PetscArgSortPixVal()
26 SWAP(idx[0], idx[right / 2]); in PetscArgSortPixVal()
29 for (i = 1; i <= right; i++) in PetscArgSortPixVal()
36 PetscCall(PetscArgSortPixVal(v, idx + last + 1, right - (last + 1))); in PetscArgSortPixVal()
|
| /petsc/src/dm/impls/swarm/tests/output/ |
| H A D | ex12_3d_p4.out | 5 Lower left corner 0. 0. 0. : Upper right 1. 0.428571 0.428571
8 Lower left corner 0. 0.571429 0. : Upper right 1. 1. 0.428571
11 Lower left corner 0. 0. 0.571429 : Upper right 1. 0.428571 1.
14 Lower left corner 0. 0.571429 0.571429 : Upper right 1. 1. 1.
|
| H A D | ex12_3d_p2.out | 5 Lower left corner 0. 0. 0. : Upper right 1. 1. 0.428571
8 Lower left corner 0. 0. 0.571429 : Upper right 1. 1. 1.
|
| /petsc/src/mat/impls/shell/ |
| H A D | shell.c | 127 if (!shell->right) { in MatShellPreScaleRight()
130 if (!shell->right_work) PetscCall(VecDuplicate(shell->right, &shell->right_work)); in MatShellPreScaleRight()
131 PetscCall(VecPointwiseMult(shell->right_work, x, shell->right)); in MatShellPreScaleRight()
157 if (shell->right) { in MatShellPostScaleRight()
163 PetscCall(VecGetArrayRead(shell->right, &d)); in MatShellPostScaleRight()
168 } else PetscCall(VecPointwiseMult(x, x, shell->right)); in MatShellPostScaleRight()
444 PetscCall(VecDestroy(&shell->right)); in MatDestroy_Shell()
528 if (shell->right || shell->left) { in MatProductNumeric_Shell_X()
539 if (shell->right) PetscCall(MatDiagonalScale(mdata->B, shell->right, NULL)); in MatProductNumeric_Shell_X()
545 if (shell->right) PetscCall(MatDiagonalScale(mdata->B, NULL, shell->right)); in MatProductNumeric_Shell_X()
[all …]
|
| /petsc/doc/tutorials/ |
| H A D | guide_to_examples_by_physics.md | 43 -\nabla\cdot \left( \lambda I \operatorname{trace}(\bm\varepsilon) + 2\mu \bm\varepsilon \right) = …
49 \bm \varepsilon = \frac{1}{2} \left(\nabla \bm u + (\nabla \bm u)^T \right)
65 J = \mathrm{det}(F) = \mathrm{det}\left(\nabla u\right)
68 and the right Cauchy-Green deformation tensor
77 \frac{\mu}{2} \left( \mathrm{Tr}(C) - 3 \right) + J p + \frac{\kappa}{2} (J - 1) = 0
116 …+ u\cdot\nabla u - \nabla \cdot \left(\mu \left(\nabla u + \nabla u^T\right)\right) + \nabla p + f…
|
| /petsc/lib/petsc/bin/maint/petsclinter/petsclinter/classes/ |
| H A D | _src_pos.py | 167 right = SourceLocation.from_position(tu, self.line, self.column + 1)
168 return func(SourceRange.from_locations(self, right), *args, **kwargs)
384 …def from_locations(cls, left: SourceLocationLike, right: SourceLocationLike, tu: Optional[clx.Tran…
405 assert left.offset <= right.offset
410 tu = getattr(right, attr, None)
412 return cls(clx.SourceRange.from_locations(as_clang_sl(left), as_clang_sl(right)), tu=tu)
473 …def merge(cls, left: SourceRangeLike, right: SourceRangeLike, tu: Optional[clx.TranslationUnit] = …
496 start = min(cast(left.start), cast(right.start))
497 end = max(cast(left.end), cast(right.end))
|
| /petsc/lib/petsc/bin/maint/abi-compliance-checker/modules/Internals/Styles/ |
| H A D | HeadersDiff.css | 32 .right { background-color: #FFF; }
41 .lineno { color: red; background-color: #FFF; font-size: 0.7em; text-align: right; padding: 0 2px; …
44 .right .cont { background-color: #EEE; }
|
| /petsc/src/mat/impls/submat/ |
| H A D | submat.c | 29 static PetscErrorCode MatDiagonalScale_SubMatrix(Mat N, Vec left, Vec right) in MatDiagonalScale_SubMatrix() argument
34 if (right) { in MatDiagonalScale_SubMatrix()
36 PetscCall(VecScatterBegin(Na->rprolong, right, Na->rwork, INSERT_VALUES, SCATTER_FORWARD)); in MatDiagonalScale_SubMatrix()
37 PetscCall(VecScatterEnd(Na->rprolong, right, Na->rwork, INSERT_VALUES, SCATTER_FORWARD)); in MatDiagonalScale_SubMatrix()
44 PetscCall(MatDiagonalScale(Na->A, left ? Na->lwork : NULL, right ? Na->rwork : NULL)); in MatDiagonalScale_SubMatrix()
187 Vec left, right; in MatCreateSubMatrixVirtual() local
235 PetscCall(MatCreateVecs(N, &right, &left)); in MatCreateSubMatrixVirtual()
237 PetscCall(VecScatterCreate(right, NULL, Na->rwork, iscol, &Na->rprolong)); in MatCreateSubMatrixVirtual()
239 PetscCall(VecDestroy(&right)); in MatCreateSubMatrixVirtual()
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | minsurf1.c | 23 PetscReal *bottom, *top, *left, *right; /* boundary values */ member
105 PetscCall(PetscFree(user.right)); in main()
164 xr = user->right[j + 1]; in FormFunctionGradient()
165 xrb = user->right[j]; in FormFunctionGradient()
238 d1 = (x[(j + 1) * mx - 1] - user->right[j + 1]) * rhx; in FormFunctionGradient()
239 d4 = (user->right[j] - user->right[j + 1]) * rhy; in FormFunctionGradient()
255 d1 = (user->right[my + 1] - user->right[my]) * rhy; in FormFunctionGradient()
349 xr = user->right[j + 1]; in QuadraticH()
350 xrb = user->right[j]; in QuadraticH()
491 PetscCall(PetscMalloc1(rsize, &user->right)); in MSA_BoundaryConditions()
[all …]
|
| H A D | minsurf2.c | 28 PetscReal *bottom, *top, *left, *right; /* boundary values */ member
143 PetscCall(PetscFree(user.right)); in main()
205 xr = user->right[j - ys + 1]; in FormFunction()
250 d1 = (x[j][mx - 1] - user->right[j - ys + 1]) * rhx; in FormFunction()
251 d4 = (user->right[j - ys] - user->right[j - ys + 1]) * rhy; in FormFunction()
268 d1 = (user->right[ym + 1] - user->right[ym]) * rhy; in FormFunction()
344 xr = user->right[j - ys + 1]; in FormFunctionGradient()
345 xrb = user->right[j - ys]; in FormFunctionGradient()
423 d1 = (x[j][mx - 1] - user->right[j - ys + 1]) * rhx; in FormFunctionGradient()
424 d4 = (user->right[j - ys] - user->right[j - ys + 1]) * rhy; in FormFunctionGradient()
[all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex4.c | 28 PetscScalar *bottom, *top, *left, *right; member
141 xr = user->right[j + 1]; in FormObjectiveLocal()
182 d1 = (x[j][mx - 1] - user->right[j + 1]) / hx; in FormObjectiveLocal()
183 d4 = (user->right[j] - user->right[j + 1]) / hy; in FormObjectiveLocal()
200 d1 = (user->right[ym + 1] - user->right[ym]) / hy; in FormObjectiveLocal()
243 xr = user->right[j + 1]; in FormFunctionLocal()
244 xrb = user->right[j]; in FormFunctionLocal()
339 xr = user->right[j + 1]; in FormJacobianLocal()
340 xrb = user->right[j]; in FormJacobianLocal()
483 PetscCall(PetscMalloc1(rsize, &user->right)); in FormBoundaryConditions_Enneper()
[all …]
|
| /petsc/src/tao/bound/tutorials/ |
| H A D | plate2.c | 209 PetscReal *g, *x, *left, *right, *bottom, *top; in FormFunctionGradient() local
230 PetscCall(VecGetArray(user->Right, &right)); in FormFunctionGradient()
255 xr = right[j - ys + 1]; in FormFunctionGradient()
256 xrb = right[j - ys]; in FormFunctionGradient()
334 d1 = (x[(j + 1 - gys) * gxm - 1] - right[j - ys + 1]) * rhx; in FormFunctionGradient()
335 d4 = (right[j - ys] - right[j - ys + 1]) * rhy; in FormFunctionGradient()
353 d1 = (right[ym + 1] - right[ym]) * rhy; in FormFunctionGradient()
367 PetscCall(VecRestoreArray(user->Right, &right)); in FormFunctionGradient()
425 PetscReal *x, *left, *right, *bottom, *top; in FormHessian() local
451 PetscCall(VecGetArray(user->Right, &right)); in FormHessian()
[all …]
|
| /petsc/src/mat/impls/normal/ |
| H A D | normm.c | 224 Vec left, right, dshift; in MatConvert_Normal_AIJ() local
230 …PetscCall(MatShellGetScalingShifts(A, &shift, &scale, &dshift, &left, &right, (Mat *)MAT_SHELL_NOT… in MatConvert_Normal_AIJ()
247 PetscCall(MatDiagonalScale(*newmat, left, right)); in MatConvert_Normal_AIJ()
275 Vec right; in MatProductNumeric_Normal_Dense() local
285 …WED, &scale, (Vec *)MAT_SHELL_NOT_ALLOWED, (Vec *)MAT_SHELL_NOT_ALLOWED, &right, (Mat *)MAT_SHELL_… in MatProductNumeric_Normal_Dense()
286 if (right) { in MatProductNumeric_Normal_Dense()
288 PetscCall(MatDiagonalScale(C, right, NULL)); in MatProductNumeric_Normal_Dense()
319 Vec right; in MatProductSymbolic_Normal_Dense() local
328 …WED, &scale, (Vec *)MAT_SHELL_NOT_ALLOWED, (Vec *)MAT_SHELL_NOT_ALLOWED, &right, (Mat *)MAT_SHELL_… in MatProductSymbolic_Normal_Dense()
344 if (right) PetscCall(MatProductCreate(a->A, C, NULL, contents->work)); in MatProductSymbolic_Normal_Dense()
|
| /petsc/src/tao/complementarity/tutorials/ |
| H A D | minsurf1.c | 26 PetscReal *bottom, *top, *left, *right; member
118 PetscCall(PetscFree(user.right)); in main()
178 xr = user->right[j + 1]; in FormConstraints()
179 xrb = user->right[j]; in FormConstraints()
303 xr = user->right[j + 1]; in FormJacobian()
304 xrb = user->right[j]; in FormJacobian()
443 PetscCall(PetscMalloc1(rsize, &user->right)); in MSA_BoundaryConditions()
468 boundary = user->right; in MSA_BoundaryConditions()
533 …[i + 1]) / (my + 2) + ((i + 1) * user->left[j + 1] + (mx - i + 1) * user->right[j + 1]) / (mx + 2)… in MSA_InitialPoint()
|