Actual source code: zpythonkf.c

  1: #include "private/fortranimpl.h"
  2: #include "petscksp.h"

  4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  5: #define ksppythonsettype_            KSPPYTHONSETTYPE
  6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  7: #define ksppythonsettype_            ksppythonsettype
  8: #endif



 13: void PETSC_STDCALL  ksppythonsettype_(KSP *ksp, CHAR name PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len) )
 14: {
 15:   char *t;
 16:   FIXCHAR(name,len,t);
 17:   *KSPPythonSetType(*ksp,t);
 18:   FREECHAR(name,t);
 19: }