Do you have any tests for this?

There were some duplicate names

+#define tssetifunction_                      tssetifunction

+#define tssetifunction_                      tsgetifunction

+#define tssetijacobian_                      tssetijacobian

+#define tssetijacobian_                      tsgetijacobian

and missing error checking

+void PETSC_STDCALL tsgetijacobian_(TS *ts,Mat *J,Mat *M,int *func,void **ctx,PetscErrorCode *ierr)

+{

+  *ierr = TSGetIJacobian(*ts,J,M,0,ctx);

+}

which I am fixing up.

On Fri, Aug 17, 2012 at 9:00 AM, Blaise Bourdin <bourdin@lsu.edu> wrote:

Hi,

The attached trivial patch adds fortran bindings for a few TS functions (TSGetIFunction, TSGetRHSFunction, TSGetIJAcobian, TSSetOptiosnPrefix, TSAppendOptionsPrefix). Can somebody push it to petsc-3.3 if it makes sense?

Blaise

--
Department of Mathematics and Center for Computation & Technology
Louisiana State University, Baton Rouge, LA 70803, USA
Tel. +1 (225) 578 1612, Fax  +1 (225) 578 4276 http://www.math.lsu.edu/~bourdin