| /petsc/src/sys/tests/ |
| H A D | ex8.c | 52 struct FCtx *fctx = (struct FCtx *)ctx; in FSend() local
55 …PetscCheck(rank == fctx->toranks[tonum], PETSC_COMM_SELF, PETSC_ERR_PLIB, "Rank %d does not match … in FSend()
56 …tscCheck(fctx->rank == *(PetscMPIInt *)todata, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Todata %d does no… in FSend()
57 PetscCallMPI(MPI_Isend(&fctx->todata[tonum].rank, 1, MPIU_INT, rank, tag[0], comm, &req[0])); in FSend()
58 PetscCallMPI(MPI_Isend(&fctx->todata[tonum].value, 1, MPIU_SCALAR, rank, tag[1], comm, &req[1])); in FSend()
64 struct FCtx *fctx = (struct FCtx *)ctx; in FRecv() local
69 PetscCall(PetscSegBufferGet(fctx->seg, 1, &buf)); in FRecv()
114 struct FCtx fctx; in main() local
116 fctx.rank = rank; in main()
117 fctx.nto = nto; in main()
[all …]
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex21.c | 34 RBFCtx fctx; in main() local
58 fctx.lambda = 0.01; in main()
59 PetscCall(PetscOptionsGetReal(NULL, NULL, "-lambda", &fctx.lambda, NULL)); in main()
60 PetscCall(PetscRandomGetValueReal(r, &fctx.sigma)); in main()
61 PetscCall(PetscOptionsGetReal(NULL, NULL, "-sigma", &fctx.sigma, NULL)); in main()
62 PetscCall(PetscMalloc1(sdim, &fctx.l)); in main()
63 PetscCall(PetscRandomGetValuesReal(r, sdim, fctx.l)); in main()
64 PetscCall(PetscOptionsGetRealArray(NULL, NULL, "-l", fctx.l, (i = sdim, &i), NULL)); in main()
73 …Call(MatSetValue(Ad, i, j, RBF(sdim, coords + i * sdim, coords + j * sdim, &fctx), INSERT_VALUES)); in main()
80 …WORLD, n, n, PETSC_DECIDE, PETSC_DECIDE, sdim, coords, PETSC_FALSE, RBF, &fctx, eta, leafsize, bas… in main()
[all …]
|
| /petsc/src/snes/impls/gs/ |
| H A D | gssecant.c | 21 void *fctx; in SNESComputeNGSDefaultSecant() local
34 PetscCall(SNESGetFunction(snes, NULL, &func, &fctx)); in SNESComputeNGSDefaultSecant()
57 PetscCall((*func)(snes, X, F, fctx)); in SNESComputeNGSDefaultSecant()
69 PetscCall((*func)(snes, W, G, fctx)); in SNESComputeNGSDefaultSecant()
112 PetscCall((*func)(snes, X, F, fctx)); in SNESComputeNGSDefaultSecant()
|
| /petsc/src/sys/utils/ftn-custom/ |
| H A D | zsortsof.c | 14 void *fctx; member
21 fc->fcmp(a, b, fc->fctx, &result); in cmp_via_fortran()
|
| /petsc/src/mat/matfd/ |
| H A D | fdmatrix.c | 258 PetscErrorCode MatFDColoringGetFunction(MatFDColoring matfd, MatFDColoringFn **f, void **fctx) in MatFDColoringGetFunction() argument
263 if (fctx) *fctx = matfd->fctx; in MatFDColoringGetFunction()
290 PetscErrorCode MatFDColoringSetFunction(MatFDColoring matfd, MatFDColoringFn *f, void *fctx) in MatFDColoringSetFunction() argument
295 matfd->fctx = fctx; in MatFDColoringSetFunction()
|
| /petsc/src/ts/utils/ |
| H A D | tsconvest.c | 127 PetscCtx fctx, jctx, rctx, ctx; in PetscConvEstGetConvRateTS_Spatial_Private() local
185 PetscCall(DMTSGetIFunctionLocal(dm[r - 1], &ifunc, &fctx)); in PetscConvEstGetConvRateTS_Spatial_Private()
188 if (ifunc) PetscCall(DMTSSetIFunctionLocal(dm[r], ifunc, fctx)); in PetscConvEstGetConvRateTS_Spatial_Private()
233 PetscCall(DMTSGetIFunctionLocal(dm[r - 1], &ifunc, &fctx)); in PetscConvEstGetConvRateTS_Spatial_Private()
266 if (ifunc) PetscCall(DMTSSetIFunctionLocal(ce->idm, ifunc, fctx)); in PetscConvEstGetConvRateTS_Spatial_Private()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | fdmpiaij.c | 40 void *fctx = coloring->fctx; in MatFDColoringApply_BAIJ() local
53 PetscCall((*f)(sctx, x1, w1, fctx)); in MatFDColoringApply_BAIJ()
132 PetscCall((*f)(sctx, w3, w2, fctx)); in MatFDColoringApply_BAIJ()
191 void *fctx = coloring->fctx; in MatFDColoringApply_AIJ() local
207 PetscCall((*f)(sctx, x1, w1, fctx)); in MatFDColoringApply_AIJ()
288 PetscCall((*f)(sctx, w3, w2, fctx)); in MatFDColoringApply_AIJ()
359 PetscCall((*f)(sctx, w3, w2, fctx)); in MatFDColoringApply_AIJ()
|
| /petsc/src/ts/tests/ |
| H A D | ex10.c | 18 void *fctx, *Fctx; member
36 tsdae->fctx = ctx; in TSDAESimpleSetRHSFunction()
102 PetscCall((*tsdae->f)(t, U, tsdae->V, F, tsdae->fctx)); in TSDAESimple_Reduced_TSFunction()
208 PetscCall((*tsdae->f)(t, tsdae->U, tsdae->V, full->UF, tsdae->fctx)); in TSDAESimple_Full_TSRHSFunction()
|
| /petsc/src/mat/impls/cdiagonal/ |
| H A D | cdiagonal.c | 414 …Mat_ConstantDiagonal *actx = (Mat_ConstantDiagonal *)A->data, *fctx = (Mat_ConstantDiagonal *)fact… in MatFactorNumeric_ConstantDiagonal() local
419 fctx->diag = 1.0 / actx->diag; in MatFactorNumeric_ConstantDiagonal()
|
| /petsc/src/dm/impls/composite/ |
| H A D | pack.c | 1318 void *fctx; in DMCompositeSampleGLVisFields_Private() local
1321 … PetscCall(PetscViewerGLVisGetFields_Internal(ctx->subv[i], &nfi, NULL, NULL, &g2l, NULL, &fctx)); in DMCompositeSampleGLVisFields_Private()
1323 if (g2l) PetscCall((*g2l)((PetscObject)ctx->vecs[i], nfi, oXfield + cumf, fctx)); in DMCompositeSampleGLVisFields_Private()
|
| /petsc/include/petsc/private/ |
| H A D | matimpl.h | 664 …void *fctx; /* optional user-defined context for use by the function… member
|
| /petsc/include/ |
| H A D | petscmat.h | 1732 PETSC_EXTERN_TYPEDEF typedef PetscErrorCode MatFDColoringFn(void *snes, Vec x, Vec y, void *fctx);
|