Actual source code: zpythonmf.c

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

  4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  5: #define matpythonsettype_            MATPYTHONSETTYPE
  6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  7: #define matpythonsettype_            matpythonsettype
  8: #endif



 13: void PETSC_STDCALL  matpythonsettype_(Mat *mat, CHAR name PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len) )
 14: {
 15:   char *t;
 16:   FIXCHAR(name,len,t);
 17:   *MatPythonSetType(*mat,t);
 18:   FREECHAR(name,t);
 19: }