| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex69.c | 24 PetscInt j, xs, xn; in ComputeSolution() local
30 PetscCall(DMDAGetCorners(da, &xs, NULL, NULL, &xn, NULL, NULL)); in ComputeSolution()
35 for (j = xs; j < xs + xn; j++) { in ComputeSolution()
50 PetscInt i, j, xs, xn, n = gll->n; in ComputeRhs() local
56 PetscCall(DMDAGetCorners(da, &xs, NULL, NULL, &xn, NULL, NULL)); in ComputeRhs()
58 xn = xn / (n - 1); in ComputeRhs()
65 for (j = xs; j < xs + xn; j++) { in ComputeRhs()
91 PetscInt N = 80, n, q = 8, xs, xn, j, l; in main() local
157 PetscCall(DMDAGetCorners(da, &xs, NULL, NULL, &xn, NULL, NULL)); in main()
159 xn = xn / (n - 1); in main()
[all …]
|
| /petsc/src/ts/tutorials/ |
| H A D | ex50.c | 260 PetscInt i, xs, xn; in TrueSolution() local
265 PetscCall(DMDAGetCorners(appctx->da, &xs, NULL, NULL, &xn, NULL, NULL)); in TrueSolution()
266 for (i = xs; i < xs + xn; i++) { in TrueSolution()
325 PetscInt i, j, xs, xn; in MatMult_Laplacian() local
346 PetscCall(DMDAGetCorners(appctx->da, &xs, NULL, NULL, &xn, NULL, NULL)); in MatMult_Laplacian()
348 …for (j = xs; j < xs + xn; j += appctx->param.N - 1) PetscCallBLAS("BLASgemv", BLASgemv_("N", &n, &… in MatMult_Laplacian()
365 PetscInt j, xs, xn; in MatMult_Advection() local
382 PetscCall(DMDAGetCorners(appctx->da, &xs, NULL, NULL, &xn, NULL, NULL)); in MatMult_Advection()
384 …for (j = xs; j < xs + xn; j += appctx->param.N - 1) PetscCallBLAS("BLASgemv", BLASgemv_("N", &n, &… in MatMult_Advection()
418 PetscInt i, xs, xn, l, j; in RHSMatrixLaplaciangllDM() local
[all …]
|
| H A D | ex18.c | 448 PetscScalar xn[2]; in delta_phi_2d() local
452 PetscCall(constant_x_2d(dim, time, x0, Nf, xn, ctx)); in delta_phi_2d()
454 const PetscReal xi = x[0] - PetscRealPart(xn[0]); in delta_phi_2d()
455 const PetscReal eta = x[1] - PetscRealPart(xn[1]); in delta_phi_2d()
480 PetscScalar xn[2]; in gaussian_phi_2d() local
482 PetscCall(constant_x_2d(dim, time, x0, Nf, xn, ctx)); in gaussian_phi_2d()
486 const PetscReal xi = x[0] - PetscRealPart(xn[0]); in gaussian_phi_2d()
487 const PetscReal eta = x[1] - PetscRealPart(xn[1]); in gaussian_phi_2d()
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | burgers_spectral.c | 298 PetscInt i, xs, xn; in InitialConditions() local
303 PetscCall(DMDAGetCorners(appctx->da, &xs, NULL, NULL, &xn, NULL, NULL)); in InitialConditions()
304 …for (i = xs; i < xs + xn; i++) s[i] = 2.0 * appctx->param.mu * PETSC_PI * PetscSinScalar(PETSC_PI … in InitialConditions()
326 PetscInt i, xs, xn; in TrueSolution() local
331 PetscCall(DMDAGetCorners(appctx->da, &xs, NULL, NULL, &xn, NULL, NULL)); in TrueSolution()
332 …for (i = xs; i < xs + xn; i++) s[i] = 2.0 * appctx->param.mu * PETSC_PI * PetscSinScalar(PETSC_PI … in TrueSolution()
351 PetscInt i, xs, xn; in ComputeObjective() local
356 PetscCall(DMDAGetCorners(appctx->da, &xs, NULL, NULL, &xn, NULL, NULL)); in ComputeObjective()
357 for (i = xs; i < xs + xn; i++) { in ComputeObjective()
430 PetscInt i, xs, xn, l, j; in RHSMatrixLaplaciangllDM() local
[all …]
|
| H A D | spectraladjointassimilation.c | 455 PetscInt i, xs, xn, l, j; in RHSLaplacian() local
471 PetscCall(DMDAGetCorners(appctx->da, &xs, NULL, NULL, &xn, NULL, NULL)); in RHSLaplacian()
475 xn = xn / (appctx->param.N - 1); in RHSLaplacian()
481 for (j = xs; j < xs + xn; j++) { in RHSLaplacian()
506 PetscInt i, xs, xn, l, j; in RHSAdvection() local
522 PetscCall(DMDAGetCorners(appctx->da, &xs, NULL, NULL, &xn, NULL, NULL)); in RHSAdvection()
526 xn = xn / (appctx->param.N - 1); in RHSAdvection()
532 for (j = xs; j < xs + xn; j++) { in RHSAdvection()
|
| /petsc/src/dm/tests/ |
| H A D | ex36.c | 90 PetscScalar xn[] = {-1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0}; in DAApplyConformalMapping() local
107 xx += Ni[p] * xn[p]; in DAApplyConformalMapping()
173 PetscScalar xn[] = {0.0, 2.0, 0.2, 3.5}; in DAApplyConformalMapping() local
184 xx += Ni[p] * xn[p]; in DAApplyConformalMapping()
219 PetscScalar xn[] = {0.0, 2.0, 0.2, 3.5, 0.0, 2.1, 0.23, 3.125}; in DAApplyTrilinearMapping() local
236 xx += Ni[p] * xn[p]; in DAApplyTrilinearMapping()
|
| /petsc/src/snes/tutorials/network/power/ |
| H A D | case9.m | 59 % 1 startup shutdown n x1 y1 ... xn yn
|
| /petsc/src/ksp/ksp/impls/ibcgs/ |
| H A D | ibcgs.c | 28 #define xn_1 xn
58 PetscScalar *PETSC_RESTRICT rn, *PETSC_RESTRICT xn, *PETSC_RESTRICT vn, *PETSC_RESTRICT zn; in KSPSolve_IBCGS() local
270 xn[i] += zn[i] + omegan * sn[i]; in KSPSolve_IBCGS()
|
| /petsc/src/dm/impls/da/ |
| H A D | da.c | 1358 PetscInt i, j, xs, xn, q; in DMDASetGLLCoordinates_1d() local
1369 PetscCall(DMDAGetCorners(dm, &xs, NULL, NULL, &xn, NULL, NULL)); in DMDASetGLLCoordinates_1d()
1371 xn = xn / (n - 1); in DMDASetGLLCoordinates_1d()
1377 for (j = xs; j < xs + xn; j++) { in DMDASetGLLCoordinates_1d()
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | petscsnes.pxi | 440 cdef object xn = toReal(xnorm)
447 reason = converged(Snes, it, (xn, gn, fn), *args, **kargs)
|