68 static PetscErrorCode ourprestep(TS ts)  in ourprestep()  argument
72 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio…  in ourprestep()
74 …PetscObjectUseFortranCallback(ts, _cb.prestep, (TS *, PetscErrorCode * /* PETSC_F90_2PTR_PROTO_NOV…  in ourprestep()
76 static PetscErrorCode ourpoststep(TS ts)  in ourpoststep()  argument
80 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio…  in ourpoststep()
82 …PetscObjectUseFortranCallback(ts, _cb.poststep, (TS *, PetscErrorCode * /* PETSC_F90_2PTR_PROTO_NO…  in ourpoststep()
84 static PetscErrorCode ourrhsfunction(TS ts, PetscReal d, Vec x, Vec f, PetscCtx ctx)  in ourrhsfunction()  argument
88 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio…  in ourrhsfunction()
90 …eFortranCallback(ts, _cb.rhsfunction, (TS *, PetscReal *, Vec *, Vec *, void *, PetscErrorCode * /…  in ourrhsfunction()
92 static PetscErrorCode ourifunction(TS ts, PetscReal d, Vec x, Vec xdot, Vec f, PetscCtx ctx)  in ourifunction()  argument
96 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio…  in ourifunction()
98 …rtranCallback(ts, _cb.ifunction, (TS *, PetscReal *, Vec *, Vec *, Vec *, void *, PetscErrorCode *…  in ourifunction()
100 static PetscErrorCode ourrhsjacobian(TS ts, PetscReal d, Vec x, Mat m, Mat p, PetscCtx ctx)  in ourrhsjacobian()  argument
104 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio…  in ourrhsjacobian()
106 …tranCallback(ts, _cb.rhsjacobian, (TS *, PetscReal *, Vec *, Mat *, Mat *, void *, PetscErrorCode …  in ourrhsjacobian()
108 static PetscErrorCode ourijacobian(TS ts, PetscReal d, Vec x, Vec xdot, PetscReal shift, Mat m, Mat…  in ourijacobian()  argument
112 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio…  in ourijacobian()
114 …ack(ts, _cb.ijacobian, (TS *, PetscReal *, Vec *, Vec *, PetscReal *, Mat *, Mat *, void *, PetscE…  in ourijacobian()
116 static PetscErrorCode ourijacobianp(TS ts, PetscReal d, Vec x, Vec xdot, PetscReal shift, Mat m, Pe…  in ourijacobianp()  argument
120 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio…  in ourijacobianp()
122 …llback(ts, _cb.ijacobianp, (TS *, PetscReal *, Vec *, Vec *, PetscReal *, Mat *, void *, PetscErro…  in ourijacobianp()
124 static PetscErrorCode ourrhsjacobianp(TS ts, PetscReal d, Vec x, Mat m, PetscCtx ctx)  in ourrhsjacobianp()  argument
128 …PetscCall(PetscObjectGetFortranCallback((PetscObject)ts, PETSC_FORTRAN_CALLBACK_CLASS, _cb.functio…  in ourrhsjacobianp()
130 …FortranCallback(ts, _cb.rhsjacobianp, (TS *, PetscReal *, Vec *, Mat *, void *, PetscErrorCode * /…  in ourrhsjacobianp()
135   TS ts = *(TS *)ctx;  in ourmonitordestroy()  local
136   PetscObjectUseFortranCallback(ts, _cb.mondestroy, (void *, PetscErrorCode *), (_ctx, &ierr));  in ourmonitordestroy()
142 static PetscErrorCode ourmonitor(TS ts, PetscInt i, PetscReal d, Vec v, PetscCtx ctx)  in ourmonitor()  argument
144 …PetscObjectUseFortranCallback(ts, _cb.monitor, (TS *, PetscInt *, PetscReal *, Vec *, void *, Pets…  in ourmonitor()
155 PETSC_EXTERN void tsmonitorlgsettransform_(TS *ts, void (*f)(void *, Vec *, Vec *, PetscErrorCode *…  in tsmonitorlgsettransform_()  argument
157   *ierr = TSMonitorLGSetTransform(*ts, ourtransform, NULL, NULL);  in tsmonitorlgsettransform_()
159 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.transfo…  in tsmonitorlgsettransform_()
162 PETSC_EXTERN void tssetprestep_(TS *ts, PetscErrorCode (*f)(TS *, PetscErrorCode *), PetscErrorCode…  in tssetprestep_()  argument
164   *ierr = TSSetPreStep(*ts, ourprestep);  in tssetprestep_()
166 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.prestep…  in tssetprestep_()
169 PETSC_EXTERN void tssetpoststep_(TS *ts, PetscErrorCode (*f)(TS *, PetscErrorCode *), PetscErrorCod…  in tssetpoststep_()  argument
171   *ierr = TSSetPostStep(*ts, ourpoststep);  in tssetpoststep_()
173 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.postste…  in tssetpoststep_()
178 PETSC_EXTERN void tssetrhsfunction_(TS *ts, Vec *r, void (*f)(TS *, PetscReal *, Vec *, Vec *, void…  in tssetrhsfunction_()  argument
185     *ierr = TSSetRHSFunction(*ts, R, TSComputeRHSFunctionLinear, fP);  in tssetrhsfunction_()
187 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.rhsfunc…  in tssetrhsfunction_()
188     *ierr = TSSetRHSFunction(*ts, R, ourrhsfunction, NULL);  in tssetrhsfunction_()
191 PETSC_EXTERN void tsgetrhsfunction_(TS *ts, Vec *r, void *func, void **ctx, PetscErrorCode *ierr)  in tsgetrhsfunction_()  argument
195   *ierr = TSGetRHSFunction(*ts, r, NULL, ctx);  in tsgetrhsfunction_()
198 PETSC_EXTERN void tscomputeifunctionlinear_(TS *ts, PetscReal *t, Vec *X, Vec *Xdot, Vec *F, PetscC…
200 PETSC_EXTERN void tssetifunction_(TS *ts, Vec *r, void (*f)(TS *, PetscReal *, Vec *, Vec *, Vec *,…  in tssetifunction_()  argument
207     *ierr = TSSetIFunction(*ts, R, TSComputeIFunctionLinear, fP);  in tssetifunction_()
209 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.ifuncti…  in tssetifunction_()
210     *ierr = TSSetIFunction(*ts, R, ourifunction, NULL);  in tssetifunction_()
213 PETSC_EXTERN void tsgetifunction_(TS *ts, Vec *r, void *func, void **ctx, PetscErrorCode *ierr)  in tsgetifunction_()  argument
217   *ierr = TSGetIFunction(*ts, r, NULL, ctx);  in tsgetifunction_()
222 PETSC_EXTERN void tssetrhsjacobian_(TS *ts, Mat *A, Mat *B, void (*f)(TS *, PetscReal *, Vec *, Mat…  in tssetrhsjacobian_()  argument
226     *ierr = TSSetRHSJacobian(*ts, *A, *B, TSComputeRHSJacobianConstant, fP);  in tssetrhsjacobian_()
228 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.rhsjaco…  in tssetrhsjacobian_()
229     *ierr = TSSetRHSJacobian(*ts, *A, *B, ourrhsjacobian, NULL);  in tssetrhsjacobian_()
233 PETSC_EXTERN void tscomputeijacobianconstant_(TS *ts, PetscReal *t, Vec *X, Vec *Xdot, PetscReal *s…
235 PETSC_EXTERN void tssetijacobian_(TS *ts, Mat *A, Mat *B, void (*f)(TS *, PetscReal *, Vec *, Vec *…  in tssetijacobian_()  argument
239     *ierr = TSSetIJacobian(*ts, *A, *B, TSComputeIJacobianConstant, fP);  in tssetijacobian_()
241 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.ijacobi…  in tssetijacobian_()
242     *ierr = TSSetIJacobian(*ts, *A, *B, ourijacobian, NULL);  in tssetijacobian_()
245 PETSC_EXTERN void tsgetijacobian_(TS *ts, Mat *J, Mat *M, int *func, void **ctx, PetscErrorCode *ie…  in tsgetijacobian_()  argument
250   *ierr = TSGetIJacobian(*ts, J, M, NULL, ctx);  in tsgetijacobian_()
252 PETSC_EXTERN void tssetijacobianp_(TS *ts, Mat *A, void (*f)(TS *, PetscReal *, Vec *, Vec *, Petsc…  in tssetijacobianp_()  argument
255 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.ijacobi…  in tssetijacobianp_()
256   *ierr = TSSetIJacobianP(*ts, *A, ourijacobianp, NULL);  in tssetijacobianp_()
258 PETSC_EXTERN void tsgetijacobianp_(TS *ts, Mat *J, int *func, void **ctx, PetscErrorCode *ierr)  in tsgetijacobianp_()  argument
262   *ierr = TSGetIJacobianP(*ts, J, NULL, ctx);  in tsgetijacobianp_()
264 PETSC_EXTERN void tssetrhsjacobianp_(TS *ts, Mat *A, void (*f)(TS *, PetscReal *, Vec *, Mat *, voi…  in tssetrhsjacobianp_()  argument
267 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.rhsjaco…  in tssetrhsjacobianp_()
268   *ierr = TSSetRHSJacobianP(*ts, *A, ourrhsjacobianp, NULL);  in tssetrhsjacobianp_()
270 PETSC_EXTERN void tsgetrhsjacobianp_(TS *ts, Mat *J, int *func, void **ctx, PetscErrorCode *ierr)  in tsgetrhsjacobianp_()  argument
274   *ierr = TSGetRHSJacobianP(*ts, J, NULL, ctx);  in tsgetrhsjacobianp_()
281 PETSC_EXTERN void tsmonitorset_(TS *ts, void (*func)(TS *, PetscInt *, PetscReal *, Vec *, void *, …  in tsmonitorset_()  argument
285 …*ierr = TSMonitorSet(*ts, (PetscErrorCode (*)(TS, PetscInt, PetscReal, Vec, void *))TSMonitorDefau…  in tsmonitorset_()
287 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.monitor…  in tsmonitorset_()
288 …*ierr = PetscObjectSetFortranCallback((PetscObject)*ts, PETSC_FORTRAN_CALLBACK_CLASS, &_cb.mondest…  in tsmonitorset_()
289     *ierr = TSMonitorSet(*ts, ourmonitor, *ts, ourmonitordestroy);  in tsmonitorset_()
294 PETSC_EXTERN void tsgetrhsjacobian_(TS *ts, Mat *J, Mat *M, int *func, void **ctx, PetscErrorCode *…  in tsgetrhsjacobian_()  argument
296   *ierr = TSGetRHSJacobian(*ts, J, M, NULL, ctx);  in tsgetrhsjacobian_()