| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex68.c | 16 PetscReal xd; in ComputeSolution() local
22 xd = nodes[i]; in ComputeSolution()
23 xx[i] = (xd * xd - 1.0) * PetscCosReal(5. * PETSC_PI * xd); in ComputeSolution()
37 PetscReal xd; in ComputeRhs() local
43 xd = nodes[i]; in ComputeRhs()
44 …PETSC_PI * xd * PetscSinReal(5. * PETSC_PI * xd) + (2. - (5. * PETSC_PI) * (5. * PETSC_PI) * (xd *… in ComputeRhs()
|
| H A D | ex69.c | 26 PetscReal xd; in ComputeSolution() local
36 xd = xx[j]; in ComputeSolution()
37 uu[j] = (xd * xd - 1.0) * PetscCosReal(5. * PETSC_PI * xd); in ComputeSolution()
52 PetscReal xd; in ComputeRhs() local
68 xd = xx[j * (n - 1) + i]; in ComputeRhs()
69 …PETSC_PI * xd * PetscSinReal(5. * PETSC_PI * xd) + (2. - (5. * PETSC_PI) * (5. * PETSC_PI) * (xd *… in ComputeRhs()
|
| /petsc/src/vec/is/sf/tests/ |
| H A D | ex23.c | 15 PetscInt *xh, *yh, *xd, *yd; in main() local
38 PetscCall(PetscDeviceMalloc(dctx, PETSC_MEMTYPE_DEVICE, n2, &xd)); in main()
45 PetscCall(PetscDeviceMemcpy(dctx, xd, xh, sizeof(PetscInt) * n2)); in main()
48 …PetscCall(PetscSFReduceWithMemTypeBegin(vscat, MPIU_INT, PETSC_MEMTYPE_DEVICE, xd, PETSC_MEMTYPE_D… in main()
49 PetscCall(PetscSFReduceEnd(vscat, MPIU_INT, xd, yd, MPI_SUM)); in main()
54 …ithMemTypeBegin(vscat, MPIU_2INT, PETSC_MEMTYPE_DEVICE, yd, PETSC_MEMTYPE_DEVICE, xd, MPI_MINLOC)); in main()
55 PetscCall(PetscSFBcastEnd(vscat, MPIU_2INT, yd, xd, MPI_MINLOC)); in main()
56 PetscCall(PetscDeviceMemcpy(dctx, xh, xd, sizeof(PetscInt) * n2)); in main()
62 PetscCall(PetscDeviceFree(dctx, xd)); in main()
|
| /petsc/src/sys/classes/draw/tests/ |
| H A D | ex5f.F90 | 19 PetscReal xd, yd
50 xd = real(i) - 5.0
51 yd = xd*xd
52 PetscCallA(PetscDrawLGAddPoint(lg, xd, yd, ierr))
|
| H A D | ex3.c | 21 PetscReal xd, yd; in main() local
67 xd = (PetscReal)(i - 5); in main()
68 yd = xd * xd; in main()
69 PetscCall(PetscDrawLGAddPoint(lg, &xd, &yd)); in main()
|
| H A D | ex9.c | 15 PetscReal xd; in main() local
51 xd = (PetscReal)(i - 5); in main()
52 PetscCall(PetscDrawHGAddValue(hist, xd * xd)); in main()
|
| /petsc/src/mat/tests/ |
| H A D | ex268.c | 24 Vec x, xd, b; in main() local
101 PetscCall(MatDenseGetColumnVecWrite(Xd, 0, &xd)); in main()
103 PetscCall(MatSolve(Fd, b, xd)); in main()
104 PetscCall(VecAXPY(xd, -1.0, x)); in main()
105 PetscCall(VecNorm(xd, NORM_INFINITY, &norm)); in main()
110 PetscCall(MatSolveTranspose(Fd, b, xd)); in main()
111 PetscCall(VecAXPY(xd, -1.0, x)); in main()
112 PetscCall(VecNorm(xd, NORM_INFINITY, &norm)); in main()
116 PetscCall(MatDenseRestoreColumnVecWrite(Xd, 0, &xd)); in main()
|
| /petsc/src/ksp/pc/impls/tfs/ |
| H A D | tfs.c | 12 Vec b, xd, xo; member
25 PetscCall(VecDestroy(&tfs->xd)); in PCDestroy_TFS()
69 PetscCall(VecPlaceArray(tfs->xd, xin)); in PCTFSLocalMult_TFS()
71 PetscCall(MatMult(a->A, tfs->xd, tfs->b)); in PCTFSLocalMult_TFS()
74 PetscCall(VecResetArray(tfs->xd)); in PCTFSLocalMult_TFS()
100 PetscCall(VecCreateSeqWithArray(PETSC_COMM_SELF, 1, a->A->cmap->n, NULL, &tfs->xd)); in PCSetUp_TFS()
150 tfs->xd = NULL; in PCCreate_TFS()
|
| /petsc/src/dm/impls/plex/cgns/ |
| H A D | plexcgns2.c | 1719 double *xd[3]; in DMPlexCreateCGNS_Internal_Parallel() local
1736 …if (read_with_double) PetscCall(PetscMalloc3(myownedv, &xd[0], myownedv, &xd[1], myownedv, &xd[2])… in DMPlexCreateCGNS_Internal_Parallel()
1751 …lCGNSReadData(cgp_coord_read_data(cgid, base, zone, (d + 1), range_min, range_max, xd[d]), *dm, 0); in DMPlexCreateCGNS_Internal_Parallel()
1753 for (PetscInt v = 0; v < myownedv; ++v) coords[v * coordDim + 0] = xd[0][v]; in DMPlexCreateCGNS_Internal_Parallel()
1756 for (PetscInt v = 0; v < myownedv; ++v) coords[v * coordDim + 1] = xd[1][v]; in DMPlexCreateCGNS_Internal_Parallel()
1759 for (PetscInt v = 0; v < myownedv; ++v) coords[v * coordDim + 2] = xd[2][v]; in DMPlexCreateCGNS_Internal_Parallel()
1774 if (read_with_double) PetscCall(PetscFree3(xd[0], xd[1], xd[2])); in DMPlexCreateCGNS_Internal_Parallel()
|