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