1: #include <petsc/private/fortranimpl.h> 2: #include <petscts.h> 4: #if defined(PETSC_HAVE_FORTRAN_CAPS) 5: #define tssundialsgetiterations_ TSSUNDIALSGETITERATIONS 6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7: #define tssundialsgetiterations_ tssundialsgetiterations 8: #endif 10: PETSC_EXTERN void tssundialsgetiterations_(TS *ts, PetscInt *nonlin, PetscInt *lin, PetscErrorCode *ierr) 11: { 12: CHKFORTRANNULLINTEGER(nonlin); 13: CHKFORTRANNULLINTEGER(lin); 14: *ierr = TSSundialsGetIterations(*ts, nonlin, lin); 15: }