| /petsc/src/sys/classes/viewer/tests/ |
| H A D | ex6.c | 29 PetscReal rdata = 42; in TestWrite() local
35 PetscCall(PetscViewerBinaryWrite(viewer, &rdata, 1, PETSC_REAL)); in TestWrite()
40 PetscCall(PetscViewerBinaryWrite(subviewer, &rdata, 1, PETSC_REAL)); in TestWrite()
45 PetscCall(PetscViewerBinaryWriteAll(viewer, &rdata, 1, s, t, PETSC_REAL)); in TestWrite()
50 PetscCall(PetscViewerBinaryWrite(subviewer, &rdata, 1, PETSC_REAL)); in TestWrite()
55 PetscCall(PetscViewerBinaryWrite(viewer, &rdata, 1, PETSC_REAL)); in TestWrite()
62 PetscReal rdata = 0; in TestRead() local
69 PetscCall(PetscViewerBinaryRead(viewer, &rdata, 1, NULL, PETSC_REAL)); in TestRead()
71 PetscCheck(rdata == 42, comm, PETSC_ERR_FILE_UNEXPECTED, "Unexpected rdata=%g", (double)rdata); in TestRead()
77 PetscCall(PetscViewerBinaryRead(subviewer, &rdata, 1, NULL, PETSC_REAL)); in TestRead()
[all …]
|
| /petsc/src/vec/is/sf/tests/ |
| H A D | ex5.c | 19 PetscInt *rdata, *ldata, *rdatav, *ldatav; in TestVector() local
33 … PetscCall(PetscCalloc4(bs * ldr, &rdata, bs * ldl, &ldata, bs * ldr, &rdatav, bs * ldl, &ldatav)); in TestVector()
34 for (PetscInt i = 0; i < bs * ldr; i++) rdata[i] = i + 1; in TestVector()
37 …PetscCall(PetscSFBcastBegin(sf, MPIU_INT, PetscSafePointerPlusOffset(rdata, i * ldr), PetscSafePoi… in TestVector()
38 …PetscCall(PetscSFBcastEnd(sf, MPIU_INT, PetscSafePointerPlusOffset(rdata, i * ldr), PetscSafePoint… in TestVector()
40 PetscCall(PetscSFBcastBegin(vsf, MPIU_INT, rdata, ldatav, MPI_REPLACE)); in TestVector()
41 PetscCall(PetscSFBcastEnd(vsf, MPIU_INT, rdata, ldatav, MPI_REPLACE)); in TestVector()
52 PetscCall(PetscArrayzero(rdata, bs * ldr)); in TestVector()
56 …T, PetscSafePointerPlusOffset(ldata, i * ldl), PetscSafePointerPlusOffset(rdata, i * ldr), MPI_SUM… in TestVector()
57 …T, PetscSafePointerPlusOffset(ldata, i * ldl), PetscSafePointerPlusOffset(rdata, i * ldr), MPI_SUM… in TestVector()
[all …]
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcgraph.c | 1035 PetscInt nr, nmr, *rdata; in PCBDDCGraphSetUp() local
1058 PetscCall(PetscCalloc1(nmr, &rdata)); in PCBDDCGraphSetUp()
1059 PetscCall(PetscSFGatherBegin(graph->interface_ref_sf, MPIU_INT, graph->gsubset_size, rdata)); in PCBDDCGraphSetUp()
1060 PetscCall(PetscSFGatherEnd(graph->interface_ref_sf, MPIU_INT, graph->gsubset_size, rdata)); in PCBDDCGraphSetUp()
1063 if (rdata[j + c] != rdata[c]) valid = PETSC_FALSE; in PCBDDCGraphSetUp()
1067 PetscCall(PetscFree(rdata)); in PCBDDCGraphSetUp()
|
| H A D | bddcprivate.c | 9812 PetscInt ni, *di, *dj, m = A->rmap->n, c, *ldata, *rdata; in MatAIJExtractRows() local
9827 PetscCall(PetscMalloc2(2 * ni, &ldata, 2 * m, &rdata)); in MatAIJExtractRows()
9829 rdata[2 * i + 0] = da->i[i + 1] - da->i[i]; in MatAIJExtractRows()
9830 rdata[2 * i + 1] = da->i[i]; in MatAIJExtractRows()
9832 PetscCall(PetscSFBcastBegin(sf, MPIU_2INT, rdata, ldata, MPI_REPLACE)); in MatAIJExtractRows()
9833 PetscCall(PetscSFBcastEnd(sf, MPIU_2INT, rdata, ldata, MPI_REPLACE)); in MatAIJExtractRows()
9868 PetscCall(PetscFree2(ldata, rdata)); in MatAIJExtractRows()
|
| /petsc/src/vec/vec/impls/mpi/ |
| H A D | pbvec.c | 165 …I_Private(MPI_Comm comm, const PetscMPIInt tag[], PetscMPIInt rank, void *rdata, MPI_Request req[]… in VecAssemblyRecv_MPI_Private() argument
169 VecAssemblyHeader *hdr = (VecAssemblyHeader *)rdata; in VecAssemblyRecv_MPI_Private()
|
| /petsc/src/mat/utils/ |
| H A D | matstash.c | 803 …v_Private(MPI_Comm comm, const PetscMPIInt tag[], PetscMPIInt rank, void *rdata, MPI_Request req[]… in MatStashBTSRecv_Private() argument
806 MatStashHeader *hdr = (MatStashHeader *)rdata; in MatStashBTSRecv_Private()
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | SNES.pyx | 1409 cdef PetscReal *rdata = NULL
1418 cdef object rhist = oarray_r(empty_r(size), NULL, &rdata)
1421 CHKERR(SNESSetConvergenceHistory(self.snes, rdata, idata, size, flag))
1433 cdef PetscReal *rdata = NULL
1436 CHKERR(SNESGetConvergenceHistory(self.snes, &rdata, &idata, &size))
1437 cdef object rhist = array_r(size, rdata)
|
| H A D | KSP.pyx | 2111 cdef PetscReal *rdata = NULL
2114 cdef ndarray r = oarray_r(empty_r(its), NULL, &rdata)
2116 CHKERR(KSPComputeEigenvalues(self.ksp, its, rdata, idata, &neig))
|
| /petsc/src/vec/is/sf/impls/basic/ |
| H A D | sfpack.c | 226 Type *rdata = (Type *)rootdata, *lupdate = (Type *)leafupdate; \
237 lupdate[l + j * BS + k] = rdata[r + j * BS + k]; \
238 OpApply(Op, rdata[r + j * BS + k], ldata[l + j * BS + k]); \
|