Lines Matching refs:snes
86 static PetscErrorCode ourtrprecheckfunction(SNES snes, Vec x, Vec y, PetscBool *changed_y, PetscCtx… in ourtrprecheckfunction() argument
90 …PetscCall(PetscObjectGetFortranCallback((PetscObject)snes, PETSC_FORTRAN_CALLBACK_CLASS, _cb.trpre… in ourtrprecheckfunction()
92 …seFortranCallback(snes, _cb.trprecheck, (SNES *, Vec *, Vec *, PetscBool *, void *, PetscErrorCode… in ourtrprecheckfunction()
95 PETSC_EXTERN void snesnewtontrsetprecheck_(SNES *snes, void (*func)(SNES, Vec, Vec, PetscBool *, vo… in snesnewtontrsetprecheck_() argument
97 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpre… in snesnewtontrsetprecheck_()
100 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpre… in snesnewtontrsetprecheck_()
103 *ierr = SNESNewtonTRSetPreCheck(*snes, ourtrprecheckfunction, NULL); in snesnewtontrsetprecheck_()
106 PETSC_EXTERN void snesnewtontrdcsetprecheck_(SNES *snes, void (*func)(SNES, Vec, Vec, PetscBool *, … in snesnewtontrdcsetprecheck_() argument
108 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpre… in snesnewtontrdcsetprecheck_()
111 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpre… in snesnewtontrdcsetprecheck_()
114 *ierr = SNESNewtonTRDCSetPreCheck(*snes, ourtrprecheckfunction, NULL); in snesnewtontrdcsetprecheck_()
117 static PetscErrorCode ourtrpostcheckfunction(SNES snes, Vec x, Vec y, Vec w, PetscBool *changed_y, … in ourtrpostcheckfunction() argument
121 …PetscCall(PetscObjectGetFortranCallback((PetscObject)snes, PETSC_FORTRAN_CALLBACK_CLASS, _cb.trpos… in ourtrpostcheckfunction()
123 …llback(snes, _cb.trpostcheck, (SNES *, Vec *, Vec *, Vec *, PetscBool *, PetscBool *, void *, Pets… in ourtrpostcheckfunction()
126 PETSC_EXTERN void snesnewtontrsetpostcheck_(SNES *snes, void (*func)(SNES, Vec, Vec, Vec, PetscBool… in snesnewtontrsetpostcheck_() argument
128 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpos… in snesnewtontrsetpostcheck_()
131 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpos… in snesnewtontrsetpostcheck_()
134 *ierr = SNESNewtonTRSetPostCheck(*snes, ourtrpostcheckfunction, NULL); in snesnewtontrsetpostcheck_()
137 PETSC_EXTERN void snesnewtontrdcsetpostcheck_(SNES *snes, void (*func)(SNES, Vec, Vec, Vec, PetscBo… in snesnewtontrdcsetpostcheck_() argument
139 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpos… in snesnewtontrdcsetpostcheck_()
142 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.trpos… in snesnewtontrdcsetpostcheck_()
145 *ierr = SNESNewtonTRDCSetPostCheck(*snes, ourtrpostcheckfunction, NULL); in snesnewtontrdcsetpostcheck_()
148 static PetscErrorCode oursnesfunction(SNES snes, Vec x, Vec f, PetscCtx ctx) in oursnesfunction() argument
152 …PetscCall(PetscObjectGetFortranCallback((PetscObject)snes, PETSC_FORTRAN_CALLBACK_CLASS, _cb.funct… in oursnesfunction()
154 …ObjectUseFortranCallback(snes, _cb.function, (SNES *, Vec *, Vec *, void *, PetscErrorCode *PETSC_… in oursnesfunction()
157 static PetscErrorCode oursnesobjective(SNES snes, Vec x, PetscReal *v, PetscCtx ctx) in oursnesobjective() argument
161 …PetscCall(PetscObjectGetFortranCallback((PetscObject)snes, PETSC_FORTRAN_CALLBACK_CLASS, _cb.objec… in oursnesobjective()
163 …ectUseFortranCallback(snes, _cb.objective, (SNES *, Vec *, PetscReal *, void *, PetscErrorCode *PE… in oursnesobjective()
166 static PetscErrorCode oursnestest(SNES snes, PetscInt it, PetscReal a, PetscReal d, PetscReal c, SN… in oursnestest() argument
168 …nCallback(snes, _cb.test, (SNES *, PetscInt *, PetscReal *, PetscReal *, PetscReal *, SNESConverge… in oursnestest()
176 static PetscErrorCode oursnesjacobian(SNES snes, Vec x, Mat m, Mat p, PetscCtx ctx) in oursnesjacobian() argument
178 …PetscObjectUseFortranCallback(snes, _cb.jacobian, (SNES *, Vec *, Mat *, Mat *, void *, PetscError… in oursnesjacobian()
181 static PetscErrorCode oursnesupdate(SNES snes, PetscInt i) in oursnesupdate() argument
183 …PetscObjectUseFortranCallback(snes, _cb.update, (SNES *, PetscInt *, PetscErrorCode *), (&snes, &i… in oursnesupdate()
185 static PetscErrorCode oursnesngs(SNES snes, Vec x, Vec b, PetscCtx ctx) in oursnesngs() argument
187 …PetscObjectUseFortranCallback(snes, _cb.ngs, (SNES *, Vec *, Vec *, void *, PetscErrorCode *), (&s… in oursnesngs()
189 static PetscErrorCode oursnesmonitor(SNES snes, PetscInt i, PetscReal d, PetscCtx ctx) in oursnesmonitor() argument
191 …PetscObjectUseFortranCallback(snes, _cb.monitor, (SNES *, PetscInt *, PetscReal *, void *, PetscEr… in oursnesmonitor()
195 SNES snes = *(SNES *)ctx; in ourmondestroy() local
196 PetscObjectUseFortranCallback(snes, _cb.mondestroy, (void *, PetscErrorCode *), (_ctx, &ierr)); in ourmondestroy()
203 PETSC_EXTERN void snessetjacobian_(SNES *snes, Mat *A, Mat *B, void (*func)(SNES *, Vec *, Mat *, M… in snessetjacobian_() argument
207 *ierr = SNESSetJacobian(*snes, *A, *B, SNESComputeJacobianDefault, ctx); in snessetjacobian_()
213 *ierr = SNESSetJacobian(*snes, *A, *B, SNESComputeJacobianDefaultColor, *(MatFDColoring *)ctx); in snessetjacobian_()
215 *ierr = SNESSetJacobian(*snes, *A, *B, MatMFFDComputeJacobian, ctx); in snessetjacobian_()
217 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.jacob… in snessetjacobian_()
218 if (!*ierr) *ierr = SNESSetJacobian(*snes, *A, *B, oursnesjacobian, NULL); in snessetjacobian_()
222 PETSC_EXTERN void snessetjacobiannointerface_(SNES *snes, Mat *A, Mat *B, void (*func)(SNES *, Vec … in snessetjacobiannointerface_() argument
224 snessetjacobian_(snes, A, B, func, ctx, ierr PETSC_F90_2PTR_PARAM(ptr)); in snessetjacobiannointerface_()
228 PETSC_EXTERN void snesgetjacobian_(SNES *snes, Mat *A, Mat *B, int *func, void **ctx, PetscErrorCod… in snesgetjacobian_() argument
236 *ierr = SNESGetJacobian(*snes, A, B, &jfunc, &jctx); in snesgetjacobian_()
241 …*ierr = PetscObjectGetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, _cb.jacobi… in snesgetjacobian_()
245 static PetscErrorCode oursnespicardfunction(SNES snes, Vec x, Vec f, PetscCtx ctx) in oursnespicardfunction() argument
249 …PetscCall(PetscObjectGetFortranCallback((PetscObject)snes, PETSC_FORTRAN_CALLBACK_CLASS, _cb.funct… in oursnespicardfunction()
251 …ObjectUseFortranCallback(snes, _cb.function, (SNES *, Vec *, Vec *, void *, PetscErrorCode *PETSC_… in oursnespicardfunction()
254 static PetscErrorCode oursnespicardjacobian(SNES snes, Vec x, Mat m, Mat p, PetscCtx ctx) in oursnespicardjacobian() argument
256 …PetscObjectUseFortranCallback(snes, _cb.jacobian, (SNES *, Vec *, Mat *, Mat *, void *, PetscError… in oursnespicardjacobian()
259 PETSC_EXTERN void snessetpicard_(SNES *snes, Vec *r, void (*func)(SNES, Vec, Vec, void *, PetscErro… in snessetpicard_() argument
261 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.funct… in snessetpicard_()
263 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.funct… in snessetpicard_()
266 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.jacob… in snessetpicard_()
267 …if (!*ierr) *ierr = SNESSetPicard(*snes, *r, oursnespicardfunction, *A, *B, oursnespicardjacobian,… in snessetpicard_()
270 PETSC_EXTERN void snessetpicardnointerface_(SNES *snes, Vec *r, void (*func)(SNES, Vec, Vec, void *… in snessetpicardnointerface_() argument
272 snessetpicard_(snes, r, func, A, B, J, ctx, ierr PETSC_F90_2PTR_PARAM(ptr)); in snessetpicardnointerface_()
275 PETSC_EXTERN void snessetfunction_(SNES *snes, Vec *r, void (*func)(SNES, Vec, Vec, void *, PetscEr… in snessetfunction_() argument
277 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.funct… in snessetfunction_()
280 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.funct… in snessetfunction_()
283 *ierr = SNESSetFunction(*snes, *r, oursnesfunction, NULL); in snessetfunction_()
286 PETSC_EXTERN void snessetfunctionnointerface_(SNES *snes, Vec *r, void (*func)(SNES, Vec, Vec, void… in snessetfunctionnointerface_() argument
288 snessetfunction_(snes, r, func, ctx, ierr PETSC_F90_2PTR_PARAM(ptr)); in snessetfunctionnointerface_()
291 PETSC_EXTERN void snessetobjective_(SNES *snes, SNESObjectiveFn func, PetscCtx ctx, PetscErrorCode … in snessetobjective_() argument
293 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.objec… in snessetobjective_()
296 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.objec… in snessetobjective_()
299 *ierr = SNESSetObjective(*snes, oursnesobjective, NULL); in snessetobjective_()
302 PETSC_EXTERN void snessetobjectivenointerface_(SNES *snes, SNESObjectiveFn func, PetscCtx ctx, Pets… in snessetobjectivenointerface_() argument
304 snessetobjective_(snes, func, ctx, ierr PETSC_F90_2PTR_PARAM(ptr)); in snessetobjectivenointerface_()
307 PETSC_EXTERN void snessetngs_(SNES *snes, void (*func)(SNES *, Vec *, Vec *, void *, PetscErrorCode… in snessetngs_() argument
309 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.ngs, … in snessetngs_()
311 *ierr = SNESSetNGS(*snes, oursnesngs, NULL); in snessetngs_()
313 PETSC_EXTERN void snessetupdate_(SNES *snes, void (*func)(SNES *, PetscInt *, PetscErrorCode *), Pe… in snessetupdate_() argument
315 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.updat… in snessetupdate_()
317 *ierr = SNESSetUpdate(*snes, oursnesupdate); in snessetupdate_()
321 PETSC_EXTERN void snesgetfunction_(SNES *snes, Vec *r, void (*func)(SNES, Vec, Vec, void *, PetscEr… in snesgetfunction_() argument
324 *ierr = SNESGetFunction(*snes, r, NULL, NULL); in snesgetfunction_()
327 …*ierr = PetscObjectGetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functi… in snesgetfunction_()
330 PETSC_EXTERN void snesgetngs_(SNES *snes, void *func, void **ctx, PetscErrorCode *ierr) in snesgetngs_() argument
332 …*ierr = PetscObjectGetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, _cb.ngs, N… in snesgetngs_()
338 PETSC_EXTERN void snessetconvergencetest_(SNES *snes, void (*func)(SNES *, PetscInt *, PetscReal *,… in snessetconvergencetest_() argument
343 *ierr = SNESSetConvergenceTest(*snes, SNESConvergedDefault, NULL, NULL); in snessetconvergencetest_()
345 *ierr = SNESSetConvergenceTest(*snes, SNESConvergedSkip, NULL, NULL); in snessetconvergencetest_()
347 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.test,… in snessetconvergencetest_()
350 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.destr… in snessetconvergencetest_()
352 *ierr = SNESSetConvergenceTest(*snes, oursnestest, *snes, ourdestroy); in snessetconvergencetest_()
353 } else *ierr = SNESSetConvergenceTest(*snes, oursnestest, *snes, NULL); in snessetconvergencetest_()
359 PETSC_EXTERN void snesmonitorsolution_(SNES *snes, PetscInt *its, PetscReal *fgnorm, PetscViewerAnd…
361 PETSC_EXTERN void snesmonitorsolutionupdate_(SNES *snes, PetscInt *its, PetscReal *fgnorm, PetscVie…
363 PETSC_EXTERN void snesmonitorset_(SNES *snes, void (*func)(SNES *, PetscInt *, PetscReal *, void *,… in snesmonitorset_() argument
367 …*ierr = SNESMonitorSet(*snes, (PetscErrorCode (*)(SNES, PetscInt, PetscReal, void *))SNESMonitorDe… in snesmonitorset_()
369 …*ierr = SNESMonitorSet(*snes, (PetscErrorCode (*)(SNES, PetscInt, PetscReal, void *))SNESMonitorSo… in snesmonitorset_()
371 …*ierr = SNESMonitorSet(*snes, (PetscErrorCode (*)(SNES, PetscInt, PetscReal, void *))SNESMonitorSo… in snesmonitorset_()
373 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.monit… in snesmonitorset_()
375 …*ierr = PetscObjectSetFortranCallback((PetscObject)*snes, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.monde… in snesmonitorset_()
377 *ierr = SNESMonitorSet(*snes, oursnesmonitor, *snes, ourmondestroy); in snesmonitorset_()