1 #include <petsc-private/fortranimpl.h> 2 #include <petscmat.h> 3 #include <petscviewer.h> 4 5 #if defined(PETSC_HAVE_FORTRAN_CAPS) 6 #define matnullspaceview_ MATNULLSPACEVIEW 7 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8 #define matnullspaceview_ matnullspaceview 9 #endif 10 11 EXTERN_C_BEGIN 12 void PETSC_STDCALL matnullspaceview_(MatNullSpace *sp,PetscViewer *vin,PetscErrorCode *ierr) 13 { 14 PetscViewer v; 15 PetscPatchDefaultViewers_Fortran(vin,v); 16 *ierr = MatNullSpaceView(*sp,v); 17 } 18 EXTERN_C_END 19