Do you have any tests for this?<div><br></div><div>There were some duplicate names</div><div><br></div><div><div>+#define tssetifunction_                      tssetifunction</div><div>+#define tssetifunction_                      tsgetifunction</div>
<div>+#define tssetijacobian_                      tssetijacobian</div><div>+#define tssetijacobian_                      tsgetijacobian</div><div><br></div><div>and missing error checking</div><div><br></div><div><div>+void PETSC_STDCALL tsgetijacobian_(TS *ts,Mat *J,Mat *M,int *func,void **ctx,PetscErrorCode *ierr)</div>
<div>+{</div><div>+  *ierr = TSGetIJacobian(*ts,J,M,0,ctx);</div><div>+}</div></div><div><br></div><div>which I am fixing up.</div><br><div class="gmail_quote">On Fri, Aug 17, 2012 at 9:00 AM, Blaise Bourdin <span dir="ltr">&lt;<a href="mailto:bourdin@lsu.edu" target="_blank">bourdin@lsu.edu</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi,<br>
<br>
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?<br>

<span class="HOEnZb"><font color="#888888"><br>
Blaise<br>
</font></span><br><br>
--<br>
Department of Mathematics and Center for Computation &amp; Technology<br>
Louisiana State University, Baton Rouge, LA 70803, USA<br>
Tel. <a href="tel:%2B1%20%28225%29%20578%201612" value="+12255781612">+1 (225) 578 1612</a>, Fax  <a href="tel:%2B1%20%28225%29%20578%204276" value="+12255784276">+1 (225) 578 4276</a> <a href="http://www.math.lsu.edu/~bourdin" target="_blank">http://www.math.lsu.edu/~bourdin</a><br>

<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br></blockquote></div><br></div>