| /petsc/src/dm/dt/interface/ftn-custom/ |
| H A D | zdtf90.c | 20 …*ierr = F90Array1dCreate((void *)points, MPIU_REAL, 1, (*npoints) * (*dim), ptrP PETSC_F90_2PTR_PA… in petscquadraturegetdata_()
22 …*ierr = F90Array1dCreate((void *)weights, MPIU_REAL, 1, (*npoints) * (*Nc), ptrW PETSC_F90_2PTR_PA… in petscquadraturegetdata_()
27 *ierr = F90Array1dDestroy(ptrP, MPIU_REAL PETSC_F90_2PTR_PARAM(ptrp)); in petscquadraturerestoredata_()
29 *ierr = F90Array1dDestroy(ptrW, MPIU_REAL PETSC_F90_2PTR_PARAM(ptrw)); in petscquadraturerestoredata_()
36 *ierr = F90Array1dAccess(ptrP, MPIU_REAL, (void **)&points PETSC_F90_2PTR_PARAM(ptrp)); in petscquadraturesetdata_()
38 *ierr = F90Array1dAccess(ptrW, MPIU_REAL, (void **)&weights PETSC_F90_2PTR_PARAM(ptrw)); in petscquadraturesetdata_()
|
| /petsc/src/dm/dt/fe/impls/composite/ |
| H A D | fecomposite.c | 42 PetscCall(DMGetWorkArray(K, dim, MPIU_REAL, &subpoint)); in PetscFESetUp_Composite()
61 PetscCall(DMRestoreWorkArray(K, dim, MPIU_REAL, &subpoint)); in PetscFESetUp_Composite()
125 PetscCall(DMGetWorkArray(dm, dim, MPIU_REAL, &subpoint)); in PetscFEComputeTabulation_Composite()
143 PetscCall(DMRestoreWorkArray(dm, dim, MPIU_REAL, &subpoint)); in PetscFEComputeTabulation_Composite()
145 if (K >= 0) PetscCall(DMGetWorkArray(dm, npoints * spdim, MPIU_REAL, &tmpB)); in PetscFEComputeTabulation_Composite()
146 if (K >= 1) PetscCall(DMGetWorkArray(dm, npoints * spdim * dim, MPIU_REAL, &tmpD)); in PetscFEComputeTabulation_Composite()
147 if (K >= 2) PetscCall(DMGetWorkArray(dm, npoints * spdim * dim * dim, MPIU_REAL, &tmpH)); in PetscFEComputeTabulation_Composite()
189 if (K >= 0) PetscCall(DMRestoreWorkArray(dm, npoints * spdim, MPIU_REAL, &tmpB)); in PetscFEComputeTabulation_Composite()
190 if (K >= 1) PetscCall(DMRestoreWorkArray(dm, npoints * spdim * dim, MPIU_REAL, &tmpD)); in PetscFEComputeTabulation_Composite()
191 if (K >= 2) PetscCall(DMRestoreWorkArray(dm, npoints * spdim * dim * dim, MPIU_REAL, &tmpH)); in PetscFEComputeTabulation_Composite()
|
| /petsc/src/dm/dt/space/impls/subspace/ |
| H A D | spacesubspace.c | 107 PetscCall(DMGetWorkArray(sp->dm, npoints * origDim, MPIU_REAL, &inpoints)); in PetscSpaceEvaluate_Subspace()
122 if (B) PetscCall(DMGetWorkArray(sp->dm, npoints * origNb * origNc, MPIU_REAL, &inB)); in PetscSpaceEvaluate_Subspace()
123 if (D) PetscCall(DMGetWorkArray(sp->dm, npoints * origNb * origNc * origDim, MPIU_REAL, &inD)); in PetscSpaceEvaluate_Subspace()
124 …if (H) PetscCall(DMGetWorkArray(sp->dm, npoints * origNb * origNc * origDim * origDim, MPIU_REAL, … in PetscSpaceEvaluate_Subspace()
129 PetscCall(DMGetWorkArray(sp->dm, origNc * origDim * origDim, MPIU_REAL, &phi)); in PetscSpaceEvaluate_Subspace()
130 PetscCall(DMGetWorkArray(sp->dm, origNc * subDim * subDim, MPIU_REAL, &psi)); in PetscSpaceEvaluate_Subspace()
171 PetscCall(DMRestoreWorkArray(sp->dm, subNc * origDim, MPIU_REAL, &psi)); in PetscSpaceEvaluate_Subspace()
172 PetscCall(DMRestoreWorkArray(sp->dm, origNc * origDim, MPIU_REAL, &phi)); in PetscSpaceEvaluate_Subspace()
173 PetscCall(DMRestoreWorkArray(sp->dm, npoints * origNb * origNc * origDim, MPIU_REAL, &inH)); in PetscSpaceEvaluate_Subspace()
178 PetscCall(DMGetWorkArray(sp->dm, origNc * origDim, MPIU_REAL, &phi)); in PetscSpaceEvaluate_Subspace()
[all …]
|
| /petsc/src/sys/ftn-custom/ |
| H A D | f90_cwrap.c | 127 } else if (type == MPIU_REAL) { in F90Array1dCreate()
173 } else if (type == MPIU_REAL) { in F90Array1dAccess()
214 } else if (type == MPIU_REAL) { in F90Array1dDestroy()
289 } else if (type == MPIU_REAL) { in F90Array2dCreate()
304 } else if (type == MPIU_REAL) { in F90Array2dAccess()
319 } else if (type == MPIU_REAL) { in F90Array2dDestroy()
375 } else if (type == MPIU_REAL) { in F90Array3dCreate()
390 } else if (type == MPIU_REAL) { in F90Array3dAccess()
405 } else if (type == MPIU_REAL) { in F90Array3dDestroy()
469 } else if (type == MPIU_REAL) { in F90Array4dAccess()
|
| /petsc/src/tao/leastsquares/tutorials/ |
| H A D | chwirut2.c | 124 …PetscCallMPI(MPI_Recv(&f_i, 1, MPIU_REAL, MPI_ANY_SOURCE, MPI_ANY_TAG, PETSC_COMM_WORLD, &status)); in EvaluateFunction()
134 …PetscCallMPI(MPI_Send(x, NPARAMETERS, MPIU_REAL, status.MPI_SOURCE, (PetscMPIInt)next_task, PETSC_… in EvaluateFunction()
139 … PetscCallMPI(MPI_Send(x, NPARAMETERS, MPIU_REAL, status.MPI_SOURCE, IDLE_TAG, PETSC_COMM_WORLD)); in EvaluateFunction()
611 PetscCallMPI(MPI_Send(&f, 1, MPIU_REAL, 0, IDLE_TAG, PETSC_COMM_WORLD)); in TaskWorker()
613 PetscCallMPI(MPI_Recv(x, NPARAMETERS, MPIU_REAL, 0, MPI_ANY_TAG, PETSC_COMM_WORLD, &status)); in TaskWorker()
616 PetscCallMPI(MPI_Send(&f, 1, MPIU_REAL, 0, IDLE_TAG, PETSC_COMM_WORLD)); in TaskWorker()
620 PetscCallMPI(MPI_Send(&f, 1, MPIU_REAL, 0, tag, PETSC_COMM_WORLD)); in TaskWorker()
649 … PetscCallMPI(MPI_Recv(&f, 1, MPIU_REAL, MPI_ANY_SOURCE, MPI_ANY_TAG, PETSC_COMM_WORLD, &status)); in StopWorkers()
652 PetscCallMPI(MPI_Send(x, NPARAMETERS, MPIU_REAL, status.MPI_SOURCE, DIE_TAG, PETSC_COMM_WORLD)); in StopWorkers()
|
| /petsc/src/vec/vec/impls/mpi/ |
| H A D | pvecimpl.h | 132 …PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, z, 1, MPIU_REAL, ops[1], PetscObjectComm((PetscObject)xi… in VecMinMax_MPI_Default()
174 …PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, z, zn, MPIU_REAL, op, PetscObjectComm((PetscObject)xin))… in VecNorm_MPI_Default()
198 …PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, loc, 6, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscObjec… in VecErrorWeightedNorms_MPI_Default()
200 …PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, loc, 3, MPIU_REAL, MPIU_MAX, PetscObjectComm((PetscObjec… in VecErrorWeightedNorms_MPI_Default()
201 …PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, loc + 3, 3, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscO… in VecErrorWeightedNorms_MPI_Default()
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex22.c | 15 PetscCall(DMGetWorkArray(dm, dimR * numPoints, MPIU_REAL, &preimage)); in testIdentity()
16 PetscCall(DMGetWorkArray(dm, dimC * numPoints, MPIU_REAL, &mapped)); in testIdentity()
17 PetscCall(DMGetWorkArray(dm, dimR * numPoints, MPIU_REAL, &inverted)); in testIdentity()
94 PetscCall(DMRestoreWorkArray(dm, dimR * numPoints, MPIU_REAL, &inverted)); in testIdentity()
95 PetscCall(DMRestoreWorkArray(dm, dimC * numPoints, MPIU_REAL, &mapped)); in testIdentity()
96 PetscCall(DMRestoreWorkArray(dm, dimR * numPoints, MPIU_REAL, &preimage)); in testIdentity()
|
| /petsc/src/sys/tutorials/ |
| H A D | ex3f90.F90 | 90 …PetscCallMPIA(MPI_Isend(message, msgLen, MPIU_REAL, mod(rank + 1_PETSC_MPIINT_KIND, size), tagMsg …
91 …PetscCallMPIA(MPI_Recv(message, msgLen, MPIU_REAL, mod(rank - 1_PETSC_MPIINT_KIND + size, size), t…
200 …PetscCallMPIA(MPI_Isend(message, msgLen, MPIU_REAL, mod(rank + 1_PETSC_MPIINT_KIND, size), tagMsg …
201 …PetscCallMPIA(MPI_Recv(message, msgLen, MPIU_REAL, mod(rank - 1_PETSC_MPIINT_KIND + size, size), t…
|
| /petsc/src/dm/impls/da/ |
| H A D | gr1.c | 198 PetscCallMPI(MPI_Bcast(&xmin, 1, MPIU_REAL, 0, comm)); in VecView_MPI_Draw_DA1d()
199 PetscCallMPI(MPI_Bcast(&xmax, 1, MPIU_REAL, size - 1, comm)); in VecView_MPI_Draw_DA1d()
249 PetscCallMPI(MPI_Send((void *)&xg[n - 1], 1, MPIU_REAL, rank + 1, tag, comm)); in VecView_MPI_Draw_DA1d()
250 PetscCallMPI(MPI_Send((void *)&array[j + (n - 1) * dof], 1, MPIU_REAL, rank + 1, tag, comm)); in VecView_MPI_Draw_DA1d()
253 PetscCallMPI(MPI_Recv(&xgtmp, 1, MPIU_REAL, rank - 1, tag, comm, &status)); in VecView_MPI_Draw_DA1d()
254 PetscCallMPI(MPI_Recv(&tmp, 1, MPIU_REAL, rank - 1, tag, comm, &status)); in VecView_MPI_Draw_DA1d()
|
| /petsc/src/dm/dt/fe/tests/ |
| H A D | ex2.c | 207 PetscCall(DMGetWorkArray(dm, Np * Nb * Nc, MPIU_REAL, &B)); in TestEvaluation()
208 PetscCall(DMGetWorkArray(dm, Np * Nb * Nc * dim, MPIU_REAL, &D)); in TestEvaluation()
209 PetscCall(DMGetWorkArray(dm, Np * Nb * Nc * dim * dim, MPIU_REAL, &H)); in TestEvaluation()
226 PetscCall(DMRestoreWorkArray(dm, Np * Nb, MPIU_REAL, &B)); in TestEvaluation()
227 PetscCall(DMRestoreWorkArray(dm, Np * Nb * dim, MPIU_REAL, &D)); in TestEvaluation()
228 PetscCall(DMRestoreWorkArray(dm, Np * Nb * dim * dim, MPIU_REAL, &H)); in TestEvaluation()
|
| /petsc/src/vec/is/sf/utils/ |
| H A D | sfcoord.c | 139 PetscCallMPI(MPI_Allgather(bbox, msize, MPIU_REAL, bboxes, msize, MPIU_REAL, comm)); in PetscSFSetGraphFromCoordinates()
165 PetscCallMPI(MPI_Type_contiguous(msize, MPIU_REAL, &unit)); in PetscSFSetGraphFromCoordinates()
|
| /petsc/src/ksp/ksp/interface/ftn-custom/ |
| H A D | zitfuncf90.c | 15 *ierr = F90Array1dCreate((void *)hist, MPIU_REAL, 1, *n, indices PETSC_F90_2PTR_PARAM(ptrd)); in kspgetresidualhistory_()
|
| /petsc/src/dm/impls/plex/ftn-custom/ |
| H A D | zplexfemf90.c | 117 *ierr = F90Array1dCreate((void *)v, MPIU_REAL, 1, numFaces * 2, vPtr PETSC_F90_2PTR_PARAM(vPtrd)); in dmplexgetfacegeometry_()
128 *ierr = F90Array1dAccess(vPtr, MPIU_REAL, (void **)&v PETSC_F90_2PTR_PARAM(vPtrd)); in dmplexrestorefacegeometry_()
134 *ierr = F90Array1dDestroy(vPtr, MPIU_REAL PETSC_F90_2PTR_PARAM(gPtrd)); in dmplexrestorefacegeometry_()
|
| /petsc/src/sys/classes/draw/interface/ |
| H A D | dmouse.c | 43 PetscCallMPI(MPI_Bcast(bcast, 4, MPIU_REAL, 0, PetscObjectComm((PetscObject)draw))); in PetscDrawGetMouseButton()
|
| /petsc/src/vec/vec/impls/mpi/mpiviennacl/ |
| H A D | mpiviennacl.cxx | 42 …PetscCallMPI(MPIU_Allreduce(&work, &sum, 1, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscObject)xin)… in VecNorm_MPIViennaCL()
48 … PetscCallMPI(MPIU_Allreduce(&work, z, 1, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscObject)xin))); in VecNorm_MPIViennaCL()
53 … PetscCallMPI(MPIU_Allreduce(&work, z, 1, MPIU_REAL, MPIU_MAX, PetscObjectComm((PetscObject)xin))); in VecNorm_MPIViennaCL()
59 … PetscCallMPI(MPIU_Allreduce(temp, z, 2, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscObject)xin))); in VecNorm_MPIViennaCL()
|
| /petsc/src/snes/interface/ftn-custom/ |
| H A D | zsnesf90.c | 20 *ierr = F90Array1dCreate(hist, MPIU_REAL, 1, N, r PETSC_F90_2PTR_PARAM(ptrd1)); in snesgetconvergencehistory_()
|
| /petsc/src/dm/dt/space/impls/tensor/ |
| H A D | spacetensor.c | 316 PetscCall(DMGetWorkArray(dm, npoints * Nv, MPIU_REAL, &lpoints)); in PetscSpaceEvaluate_Tensor()
317 if (B || D || H) PetscCall(DMGetWorkArray(dm, npoints * pdim * Nc, MPIU_REAL, &sB)); in PetscSpaceEvaluate_Tensor()
318 if (D || H) PetscCall(DMGetWorkArray(dm, npoints * pdim * Nc * Nv, MPIU_REAL, &sD)); in PetscSpaceEvaluate_Tensor()
319 if (H) PetscCall(DMGetWorkArray(dm, npoints * pdim * Nc * Nv * Nv, MPIU_REAL, &sH)); in PetscSpaceEvaluate_Tensor()
423 if (H) PetscCall(DMRestoreWorkArray(dm, npoints * pdim * Nc * Nv * Nv, MPIU_REAL, &sH)); in PetscSpaceEvaluate_Tensor()
424 if (D || H) PetscCall(DMRestoreWorkArray(dm, npoints * pdim * Nc * Nv, MPIU_REAL, &sD)); in PetscSpaceEvaluate_Tensor()
425 if (B || D || H) PetscCall(DMRestoreWorkArray(dm, npoints * pdim * Nc, MPIU_REAL, &sB)); in PetscSpaceEvaluate_Tensor()
426 PetscCall(DMRestoreWorkArray(dm, npoints * Nv, MPIU_REAL, &lpoints)); in PetscSpaceEvaluate_Tensor()
|
| /petsc/src/sys/objects/ |
| H A D | finit.c | 58 freal = MPI_Type_c2f(MPIU_REAL); in PetscInitializeFortran()
|
| /petsc/src/dm/dt/space/impls/sum/ |
| H A D | spacesum.c | 436 if (B || D || H) PetscCall(DMGetWorkArray(dm, numelB, MPIU_REAL, &sB)); in PetscSpaceEvaluate_Sum()
437 if (D || H) PetscCall(DMGetWorkArray(dm, numelD, MPIU_REAL, &sD)); in PetscSpaceEvaluate_Sum()
438 if (H) PetscCall(DMGetWorkArray(dm, numelH, MPIU_REAL, &sH)); in PetscSpaceEvaluate_Sum()
499 if (H) PetscCall(DMRestoreWorkArray(dm, numelH, MPIU_REAL, &sH)); in PetscSpaceEvaluate_Sum()
500 if (D || H) PetscCall(DMRestoreWorkArray(dm, numelD, MPIU_REAL, &sD)); in PetscSpaceEvaluate_Sum()
501 if (B || D || H) PetscCall(DMRestoreWorkArray(dm, numelB, MPIU_REAL, &sB)); in PetscSpaceEvaluate_Sum()
|
| /petsc/src/sys/classes/random/tutorials/ |
| H A D | ex2.c | 83 PetscCallMPI(MPI_Reduce(&x, &totalx, 1, MPIU_REAL, MPIU_SUM, 0, PETSC_COMM_WORLD)); in main()
162 PetscCallMPI(MPI_Bcast(v, (PetscMPIInt)(2 * num), MPIU_REAL, 0, PETSC_COMM_WORLD)); in readData()
|
| /petsc/src/dm/tests/ |
| H A D | ex32.c | 15 PetscCallMPI(MPIU_Allreduce(&nrm, &gnrm, 1, MPIU_REAL, MPIU_MAX, PETSC_COMM_WORLD)); in CompareGhostedCoords()
|
| /petsc/src/vec/vec/utils/ |
| H A D | vinv.c | 135 …PetscCallMPI(MPIU_Allreduce(&tnorm, nrm, 1, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscObject)v))); in VecStrideNorm()
140 …PetscCallMPI(MPIU_Allreduce(&tnorm, nrm, 1, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscObject)v))); in VecStrideNorm()
146 …PetscCallMPI(MPIU_Allreduce(&tnorm, nrm, 1, MPIU_REAL, MPIU_MAX, PetscObjectComm((PetscObject)v))); in VecStrideNorm()
208 … PetscCallMPI(MPIU_Allreduce(&max, nrm, 1, MPIU_REAL, MPIU_MAX, PetscObjectComm((PetscObject)v))); in VecStrideMax()
283 … PetscCallMPI(MPIU_Allreduce(&min, nrm, 1, MPIU_REAL, MPIU_MIN, PetscObjectComm((PetscObject)v))); in VecStrideMin()
441 PetscCallMPI(MPIU_Allreduce(tnorm, nrm, ibs, MPIU_REAL, MPIU_SUM, comm)); in VecStrideNormAll()
450 PetscCallMPI(MPIU_Allreduce(tnorm, nrm, ibs, MPIU_REAL, MPIU_SUM, comm)); in VecStrideNormAll()
465 PetscCallMPI(MPIU_Allreduce(tnorm, nrm, ibs, MPIU_REAL, MPIU_MAX, comm)); in VecStrideNormAll()
526 PetscCallMPI(MPIU_Allreduce(max, nrm, ibs, MPIU_REAL, MPIU_MAX, comm)); in VecStrideMaxAll()
587 PetscCallMPI(MPIU_Allreduce(min, nrm, ibs, MPIU_REAL, MPIU_MIN, comm)); in VecStrideMinAll()
|
| /petsc/src/dm/impls/stag/tests/ |
| H A D | ex53.c | 53 PetscCallMPI(MPIU_Allreduce(&work, &norm, 1, MPIU_REAL, MPIU_MAX, PETSC_COMM_WORLD)); in main()
|
| /petsc/src/mat/graphops/color/impls/jp/ |
| H A D | jp.c | 94 PetscCall(PetscSFBcastBegin(sf, MPIU_REAL, dwts, owts, MPI_REPLACE)); in MCJPGreatestWeight_Private()
95 PetscCall(PetscSFBcastEnd(sf, MPIU_REAL, dwts, owts, MPI_REPLACE)); in MCJPGreatestWeight_Private()
120 PetscCall(PetscSFBcastBegin(sf, MPIU_REAL, dwts, owts, MPI_REPLACE)); in MCJPGreatestWeight_Private()
121 PetscCall(PetscSFBcastEnd(sf, MPIU_REAL, dwts, owts, MPI_REPLACE)); in MCJPGreatestWeight_Private()
|
| /petsc/src/sys/error/ |
| H A D | err.c | 609 PetscCallMPI(MPI_Gatherv(idx, NN, MPIU_REAL, NULL, NULL, NULL, MPIU_REAL, 0, comm)); in PetscRealViewNumColumns()
621 PetscCallMPI(MPI_Gatherv(idx, NN, MPIU_REAL, array, sizes, displs, MPIU_REAL, 0, comm)); in PetscRealViewNumColumns()
|