1e7abf250SBlaise Bourdin #include <petsc-private/fortranimpl.h> 2e7abf250SBlaise Bourdin #include <petscmat.h> 3665c2dedSJed 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 11*8cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL matnullspaceview_(MatNullSpace *sp,PetscViewer *vin,PetscErrorCode *ierr) 12e7abf250SBlaise Bourdin { 13e7abf250SBlaise Bourdin PetscViewer v; 14e7abf250SBlaise Bourdin PetscPatchDefaultViewers_Fortran(vin,v); 15e7abf250SBlaise Bourdin *ierr = MatNullSpaceView(*sp,v); 16e7abf250SBlaise Bourdin } 179f7953f8SBarry Smith 18