Lines Matching full:pc
32 static PetscErrorCode ourshellapply(PC pc, Vec x, Vec y) in ourshellapply() argument
34 …FortranVoidFunction((*(void (*)(PC *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fortran_… in ourshellapply()
38 static PetscErrorCode ourshellapplysymmetricleft(PC pc, Vec x, Vec y) in ourshellapplysymmetricleft() argument
40 …FortranVoidFunction((*(void (*)(PC *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fortran_… in ourshellapplysymmetricleft()
44 static PetscErrorCode ourshellapplysymmetricright(PC pc, Vec x, Vec y) in ourshellapplysymmetricright() argument
46 …FortranVoidFunction((*(void (*)(PC *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fortran_… in ourshellapplysymmetricright()
50 static PetscErrorCode ourshellapplyctx(PC pc, Vec x, Vec y) in ourshellapplyctx() argument
53 PetscCall(PCShellGetContext(pc, &ctx)); in ourshellapplyctx()
54 …ranVoidFunction((*(void (*)(PC *, void *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fort… in ourshellapplyctx()
58 static PetscErrorCode ourshellapplyba(PC pc, PCSide side, Vec x, Vec y, Vec work) in ourshellapplyba() argument
60 …oidFunction((*(void (*)(PC *, PCSide *, Vec *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)-… in ourshellapplyba()
64 static PetscErrorCode ourapplyrichardson(PC pc, Vec x, Vec y, Vec w, PetscReal rtol, PetscReal abst… in ourapplyrichardson() argument
66 …PC *, Vec *, Vec *, Vec *, PetscReal *, PetscReal *, PetscReal *, PetscInt *, PetscBool *, PetscIn… in ourapplyrichardson()
70 static PetscErrorCode ourshellapplytranspose(PC pc, Vec x, Vec y) in ourshellapplytranspose() argument
72 …(*)(void *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[3]))(&pc, &x… in ourshellapplytranspose()
76 static PetscErrorCode ourshellsetup(PC pc) in ourshellsetup() argument
78 …tscCallFortranVoidFunction((*(void (*)(PC *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_po… in ourshellsetup()
82 static PetscErrorCode ourshellsetupctx(PC pc) in ourshellsetupctx() argument
85 PetscCall(PCShellGetContext(pc, &ctx)); in ourshellsetupctx()
86 …allFortranVoidFunction((*(void (*)(PC *, void *, PetscErrorCode *))(((PetscObject)pc)->fortran_fun… in ourshellsetupctx()
90 static PetscErrorCode ourshelldestroy(PC pc) in ourshelldestroy() argument
92 …ction((*(void (*)(void *, PetscErrorCode *))(((PetscObject)pc)->fortran_func_pointers[5]))(&pc, &i… in ourshelldestroy()
96 static PetscErrorCode ourshellpresolve(PC pc, KSP ksp, Vec x, Vec y) in ourshellpresolve() argument
98 …tranVoidFunction((*(void (*)(PC *, KSP *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fort… in ourshellpresolve()
102 static PetscErrorCode ourshellpostsolve(PC pc, KSP ksp, Vec x, Vec y) in ourshellpostsolve() argument
104 …tranVoidFunction((*(void (*)(PC *, KSP *, Vec *, Vec *, PetscErrorCode *))(((PetscObject)pc)->fort… in ourshellpostsolve()
108 static PetscErrorCode ourshellview(PC pc, PetscViewer view) in ourshellview() argument
110 …FortranVoidFunction((*(void (*)(PC *, PetscViewer *, PetscErrorCode *))(((PetscObject)pc)->fortran… in ourshellview()
114 PETSC_EXTERN void pcshellsetapply_(PC *pc, void (*apply)(void *, Vec *, Vec *, PetscErrorCode *), P… in pcshellsetapply_() argument
116 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetapply_()
117 ((PetscObject)*pc)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)apply; in pcshellsetapply_()
119 *ierr = PCShellSetApply(*pc, ourshellapply); in pcshellsetapply_()
122 PETSC_EXTERN void pcshellsetapplysymmetricleft_(PC *pc, void (*apply)(void *, Vec *, Vec *, PetscEr… in pcshellsetapplysymmetricleft_() argument
124 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetapplysymmetricleft_()
125 ((PetscObject)*pc)->fortran_func_pointers[9] = (PetscFortranCallbackFn *)apply; in pcshellsetapplysymmetricleft_()
127 *ierr = PCShellSetApplySymmetricLeft(*pc, ourshellapplysymmetricleft); in pcshellsetapplysymmetricleft_()
130 PETSC_EXTERN void pcshellsetapplysymmetricright_(PC *pc, void (*apply)(void *, Vec *, Vec *, PetscE… in pcshellsetapplysymmetricright_() argument
132 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetapplysymmetricright_()
133 ((PetscObject)*pc)->fortran_func_pointers[10] = (PetscFortranCallbackFn *)apply; in pcshellsetapplysymmetricright_()
135 *ierr = PCShellSetApplySymmetricRight(*pc, ourshellapplysymmetricright); in pcshellsetapplysymmetricright_()
138 PETSC_EXTERN void pcshellsetapplyctx_(PC *pc, void (*apply)(void *, void *, Vec *, Vec *, PetscErro… in pcshellsetapplyctx_() argument
140 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetapplyctx_()
141 ((PetscObject)*pc)->fortran_func_pointers[0] = (PetscFortranCallbackFn *)apply; in pcshellsetapplyctx_()
143 *ierr = PCShellSetApply(*pc, ourshellapplyctx); in pcshellsetapplyctx_()
146 PETSC_EXTERN void pcshellsetapplyba_(PC *pc, void (*apply)(void *, PCSide *, Vec *, Vec *, Vec *, P… in pcshellsetapplyba_() argument
148 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetapplyba_()
149 ((PetscObject)*pc)->fortran_func_pointers[1] = (PetscFortranCallbackFn *)apply; in pcshellsetapplyba_()
151 *ierr = PCShellSetApplyBA(*pc, ourshellapplyba); in pcshellsetapplyba_()
154 PETSC_EXTERN void pcshellsetapplyrichardson_(PC *pc, void (*apply)(void *, Vec *, Vec *, Vec *, Pet… in pcshellsetapplyrichardson_() argument
156 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetapplyrichardson_()
157 ((PetscObject)*pc)->fortran_func_pointers[2] = (PetscFortranCallbackFn *)apply; in pcshellsetapplyrichardson_()
158 *ierr = PCShellSetApplyRichardson(*pc, ourapplyrichardson); in pcshellsetapplyrichardson_()
161 PETSC_EXTERN void pcshellsetapplytranspose_(PC *pc, void (*applytranspose)(void *, Vec *, Vec *, Pe… in pcshellsetapplytranspose_() argument
163 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetapplytranspose_()
164 ((PetscObject)*pc)->fortran_func_pointers[3] = (PetscFortranCallbackFn *)applytranspose; in pcshellsetapplytranspose_()
166 *ierr = PCShellSetApplyTranspose(*pc, ourshellapplytranspose); in pcshellsetapplytranspose_()
169 PETSC_EXTERN void pcshellsetsetupctx_(PC *pc, void (*setup)(void *, void *, PetscErrorCode *), Pets… in pcshellsetsetupctx_() argument
171 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetsetupctx_()
172 ((PetscObject)*pc)->fortran_func_pointers[4] = (PetscFortranCallbackFn *)setup; in pcshellsetsetupctx_()
174 *ierr = PCShellSetSetUp(*pc, ourshellsetupctx); in pcshellsetsetupctx_()
177 PETSC_EXTERN void pcshellsetsetup_(PC *pc, void (*setup)(void *, PetscErrorCode *), PetscErrorCode … in pcshellsetsetup_() argument
179 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetsetup_()
180 ((PetscObject)*pc)->fortran_func_pointers[4] = (PetscFortranCallbackFn *)setup; in pcshellsetsetup_()
182 *ierr = PCShellSetSetUp(*pc, ourshellsetup); in pcshellsetsetup_()
185 PETSC_EXTERN void pcshellsetdestroy_(PC *pc, void (*setup)(void *, PetscErrorCode *), PetscErrorCod… in pcshellsetdestroy_() argument
187 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetdestroy_()
188 ((PetscObject)*pc)->fortran_func_pointers[5] = (PetscFortranCallbackFn *)setup; in pcshellsetdestroy_()
190 *ierr = PCShellSetDestroy(*pc, ourshelldestroy); in pcshellsetdestroy_()
193 PETSC_EXTERN void pcshellsetpresolve_(PC *pc, void (*presolve)(void *, void *, Vec *, Vec *, PetscE… in pcshellsetpresolve_() argument
195 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetpresolve_()
196 ((PetscObject)*pc)->fortran_func_pointers[6] = (PetscFortranCallbackFn *)presolve; in pcshellsetpresolve_()
198 *ierr = PCShellSetPreSolve(*pc, ourshellpresolve); in pcshellsetpresolve_()
201 PETSC_EXTERN void pcshellsetpostsolve_(PC *pc, void (*postsolve)(void *, void *, Vec *, Vec *, Pets… in pcshellsetpostsolve_() argument
203 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetpostsolve_()
204 ((PetscObject)*pc)->fortran_func_pointers[7] = (PetscFortranCallbackFn *)postsolve; in pcshellsetpostsolve_()
206 *ierr = PCShellSetPostSolve(*pc, ourshellpostsolve); in pcshellsetpostsolve_()
209 PETSC_EXTERN void pcshellsetview_(PC *pc, void (*view)(void *, PetscViewer *, PetscErrorCode *), Pe… in pcshellsetview_() argument
211 PetscObjectAllocateFortranPointers(*pc, 11); in pcshellsetview_()
212 ((PetscObject)*pc)->fortran_func_pointers[8] = (PetscFortranCallbackFn *)view; in pcshellsetview_()
214 *ierr = PCShellSetView(*pc, ourshellview); in pcshellsetview_()