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