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 CHKFORTRANNULLOBJECTDEREFERENCE(viewer); 15 *ierr = ISLocalToGlobalMappingView(*mapping,*viewer); 16 } 17 18 EXTERN_C_END 19