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: }