1 #include "zpetsc.h" 2 #include "petscis.h" 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define islocaltoglobalmappingview_ ISLOCALTOGLOBALMAPPINGVIEW 6 #define islocaltoglobalmappingcreate_ ISLOCALTOGLOBALMAPPINGCREATE 7 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8 #define islocaltoglobalmappingview_ islocaltoglobalmappingview 9 #define islocaltoglobalmappingcreate_ islocaltoglobalmappingcreate 10 #endif 11 12 EXTERN_C_BEGIN 13 14 void PETSC_STDCALL islocaltoglobalmappingview_(ISLocalToGlobalMapping *mapping,PetscViewer *viewer,PetscErrorCode *ierr) 15 { 16 CHKFORTRANNULLOBJECTDEREFERENCE(viewer); 17 *ierr = ISLocalToGlobalMappingView(*mapping,*viewer); 18 } 19 20 void PETSC_STDCALL islocaltoglobalmappingcreate_(MPI_Comm *comm,PetscInt *n,PetscInt *indices,ISLocalToGlobalMapping *mapping,PetscErrorCode *ierr) 21 { 22 *ierr = ISLocalToGlobalMappingCreate((MPI_Comm)PetscToPointerComm(*comm),*n,indices,mapping); 23 } 24 25 EXTERN_C_END 26