1 #include "zpetsc.h" 2 #include "petscis.h" 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define islocaltoglobalmappingview_ ISLOCALTOGLOBALMAPPINGVIEW 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define islocaltoglobalmappingview_ islocaltoglobalmappingview 8 #endif 9 10 EXTERN_C_BEGIN 11 12 void PETSC_STDCALL islocaltoglobalmappingview_(ISLocalToGlobalMapping *mapping,PetscViewer *viewer,PetscErrorCode *ierr) 13 { 14 PetscViewer v; 15 PetscPatchDefaultViewers_Fortran(viewer,v); 16 *ierr = ISLocalToGlobalMappingView(*mapping,v); 17 } 18 19 EXTERN_C_END 20