Searched refs:gsvals (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/snes/tutorials/ |
| H A D | ex13.c | 277 PetscScalar *rvals, *svals, *gsvals; in ComputeSpectral() local
304 PetscCall(PetscMalloc2(N, &gray, N, &gsvals)); in ComputeSpectral()
306 PetscCallMPI(MPI_Gatherv(svals, in, MPIU_SCALAR, gsvals, cnt, displs, MPIU_SCALAR, 0, comm)); in ComputeSpectral()
311 gsvals = svals; in ComputeSpectral()
330 rvals[j] = gsvals[nperm[j]]; in ComputeSpectral()
334 if (size > 1) PetscCall(PetscFree2(gray, gsvals)); in ComputeSpectral()
|