Lines Matching refs:ctx
69 AppCtx ctx; in main() local
85 PetscCall(TSSetRHSFunction(ts, tsrhs, TSFunction, &ctx)); in main()
87 ctx.f = f; in main()
89 PetscCall(SNESCreate(PETSC_COMM_WORLD, &ctx.snes)); in main()
90 PetscCall(SNESSetFromOptions(ctx.snes)); in main()
91 PetscCall(SNESSetFunction(ctx.snes, NULL, SNESFunction, &ctx)); in main()
92 PetscCall(SNESSetJacobian(ctx.snes, NULL, NULL, SNESComputeJacobianDefault, &ctx)); in main()
93 ctx.F = F; in main()
94 PetscCall(VecCreateMPI(PETSC_COMM_WORLD, 1, PETSC_DETERMINE, &ctx.V)); in main()
97 PetscCall(VecCreateMPI(PETSC_COMM_WORLD, 2, PETSC_DETERMINE, &ctx.UV)); in main()
100 PetscCall(VecScatterCreate(U, NULL, ctx.UV, is, &ctx.scatterU)); in main()
104 PetscCall(VecScatterCreate(ctx.V, NULL, ctx.UV, is, &ctx.scatterV)); in main()
110 PetscCall(VecDestroy(&ctx.V)); in main()
111 PetscCall(VecDestroy(&ctx.UV)); in main()
112 PetscCall(VecScatterDestroy(&ctx.scatterU)); in main()
113 PetscCall(VecScatterDestroy(&ctx.scatterV)); in main()
116 PetscCall(SNESDestroy(&ctx.snes)); in main()
129 AppCtx *ctx = (AppCtx *)actx; in TSFunction() local
132 ctx->t = t; in TSFunction()
133 PetscCall(VecScatterBegin(ctx->scatterU, U, ctx->UV, INSERT_VALUES, SCATTER_FORWARD)); in TSFunction()
134 PetscCall(VecScatterEnd(ctx->scatterU, U, ctx->UV, INSERT_VALUES, SCATTER_FORWARD)); in TSFunction()
135 PetscCall(SNESSolve(ctx->snes, NULL, ctx->V)); in TSFunction()
136 PetscCall(VecScatterBegin(ctx->scatterV, ctx->V, ctx->UV, INSERT_VALUES, SCATTER_FORWARD)); in TSFunction()
137 PetscCall(VecScatterEnd(ctx->scatterV, ctx->V, ctx->UV, INSERT_VALUES, SCATTER_FORWARD)); in TSFunction()
138 PetscCall((*ctx->f)(t, ctx->UV, F)); in TSFunction()
148 AppCtx *ctx = (AppCtx *)actx; in SNESFunction() local
151 PetscCall(VecScatterBegin(ctx->scatterV, V, ctx->UV, INSERT_VALUES, SCATTER_FORWARD)); in SNESFunction()
152 PetscCall(VecScatterEnd(ctx->scatterV, V, ctx->UV, INSERT_VALUES, SCATTER_FORWARD)); in SNESFunction()
153 PetscCall((*ctx->F)(ctx->t, ctx->UV, F)); in SNESFunction()