Searched refs:userctx (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex13.c | 27 extern PetscErrorCode UserDoLinearSolver(PetscScalar *, UserCtx *userctx, PetscScalar *b, PetscScal…
31 UserCtx userctx; in main() local
51 PetscCall(UserInitializeLinearSolver(m, n, &userctx)); in main()
99 PetscCall(UserDoLinearSolver(rho, &userctx, userb, userx)); in main()
121 PetscCall(UserFinalizeLinearSolver(&userctx)); in main()
127 PetscErrorCode UserInitializeLinearSolver(PetscInt m, PetscInt n, UserCtx *userctx) in UserInitializeLinearSolver() argument
138 userctx->m = m; in UserInitializeLinearSolver()
139 userctx->n = n; in UserInitializeLinearSolver()
140 userctx->hx2 = (m + 1) * (m + 1); in UserInitializeLinearSolver()
141 userctx->hy2 = (n + 1) * (n + 1); in UserInitializeLinearSolver()
[all …]
|
| H A D | ex13f90.F90 | 15 subroutine UserInitializeLinearSolver(m, n, userctx, ierr) argument
19 type(User) userctx
58 userctx%x = x
59 userctx%b = b
60 userctx%A = A
61 userctx%ksp = ksp
62 userctx%m = m
63 userctx%n = n
72 subroutine UserDoLinearSolver(rho, userctx, userb, userx, ierr) argument
75 type(User) userctx
[all …]
|
| /petsc/src/snes/tests/ |
| H A D | ex21f.F90 | 9 type userctx type
11 end type userctx
16 type(userctx) user
36 type(userctx) user
48 type(userctx) user
|