Actual source code: zpetsc_kernel.c
1: #include "zpetsc.h"
2: #include "tao_solver.h"
4: #ifdef PETSC_HAVE_FORTRAN_CAPS
5: #define taoprintstatement_ TAOPRINTSTATEMENT
7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8: #define taoprintstatement_ taoprintstatement
10: #endif
13: void PETSC_STDCALL taoprintstatement_(TAO_SOLVER *tao, CHAR statement PETSC_MIXED_LEN(len), int *ierr PETSC_END_LEN(len))
14: {
15: char *c1;
17: FIXCHAR(statement,len,c1);
18: *TaoPrintStatement(*tao,c1);
19: FREECHAR(statement,c1);
20: }