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 <[email protected]> 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