| /petsc/src/ts/tests/ |
| H A D | ex8.c | 16 PetscErrorCode f(PetscReal t, Vec UV, Vec F) in f() argument
23 PetscCall(VecGetLocalSize(UV, &n)); in f()
25 PetscCall(VecGetArrayRead(UV, &u)); in f()
29 PetscCall(VecRestoreArrayRead(UV, &u)); in f()
38 PetscErrorCode F(PetscReal t, Vec UV, Vec F) in F() argument
45 PetscCall(VecGetLocalSize(UV, &n)); in F()
47 PetscCall(VecGetArrayRead(UV, &u)); in F()
53 PetscCall(VecRestoreArrayRead(UV, &u)); in F()
70 Vec tsrhs, UV; in main() local
79 PetscCall(VecDuplicate(tsrhs, &UV)); in main()
[all …]
|
| H A D | ex7.c | 16 PetscErrorCode f(PetscReal t, Vec UV, Vec F) in f() argument
23 PetscCall(VecGetLocalSize(UV, &n)); in f()
25 PetscCall(VecGetArrayRead(UV, &u)); in f()
29 PetscCall(VecRestoreArrayRead(UV, &u)); in f()
37 PetscErrorCode F(PetscReal t, Vec UV, Vec F) in F() argument
44 PetscCall(VecGetLocalSize(UV, &n)); in F()
46 PetscCall(VecGetArrayRead(UV, &u)); in F()
50 PetscCall(VecRestoreArrayRead(UV, &u)); in F()
58 Vec UV, V; member
97 PetscCall(VecCreateMPI(PETSC_COMM_WORLD, 2, PETSC_DETERMINE, &ctx.UV)); in main()
[all …]
|
| H A D | ex9.c | 49 Vec tsrhs, UV; in main() local
62 PetscCall(VecCreateMPI(PETSC_COMM_WORLD, 2, PETSC_DETERMINE, &UV)); in main()
74 PetscCall(VecScatterCreate(ctx.U, NULL, UV, is, &ctx.scatterU)); in main()
78 PetscCall(VecScatterCreate(ctx.V, NULL, UV, is, &ctx.scatterV)); in main()
81 PetscCall(VecSet(UV, 1.0)); in main()
82 PetscCall(TSSolve(ts, UV)); in main()
84 PetscCall(VecDestroy(&UV)); in main()
100 PetscErrorCode TSFunctionRHS(TS ts, PetscReal t, Vec UV, Vec F, void *actx) in TSFunctionRHS() argument
106 PetscCall(VecScatterBegin(ctx->scatterU, UV, ctx->U, INSERT_VALUES, SCATTER_REVERSE)); in TSFunctionRHS()
107 PetscCall(VecScatterEnd(ctx->scatterU, UV, ctx->U, INSERT_VALUES, SCATTER_REVERSE)); in TSFunctionRHS()
[all …]
|
| H A D | ex10.c | 186 Vec UV, UF, VF; member
197 PetscErrorCode TSDAESimple_Full_TSRHSFunction(TS ts, PetscReal t, Vec UV, Vec F, void *actx) in TSDAESimple_Full_TSRHSFunction() argument
204 PetscCall(VecScatterBegin(full->scatterU, UV, tsdae->U, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSRHSFunction()
205 PetscCall(VecScatterEnd(full->scatterU, UV, tsdae->U, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSRHSFunction()
206 PetscCall(VecScatterBegin(full->scatterV, UV, tsdae->V, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSRHSFunction()
207 PetscCall(VecScatterEnd(full->scatterV, UV, tsdae->V, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSRHSFunction()
221 PetscErrorCode TSDAESimple_Full_TSIFunction(TS ts, PetscReal t, Vec UV, Vec UVdot, Vec F, void *act… in TSDAESimple_Full_TSIFunction() argument
228 PetscCall(VecScatterBegin(full->scatterU, UV, tsdae->U, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSIFunction()
229 PetscCall(VecScatterEnd(full->scatterU, UV, tsdae->U, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSIFunction()
230 PetscCall(VecScatterBegin(full->scatterV, UV, tsdae->V, INSERT_VALUES, SCATTER_REVERSE)); in TSDAESimple_Full_TSIFunction()
[all …]
|