1 #include <private/fortranimpl.h> 2 3 #if defined(PETSC_HAVE_FORTRAN_CAPS) 4 #define petscobjectgetcomm_ PETSCOBJECTGETCOMM 5 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 6 #define petscobjectgetcomm_ petscobjectgetcomm 7 #endif 8 9 EXTERN_C_BEGIN 10 void PETSC_STDCALL petscobjectgetcomm_(PetscObject *obj,int *comm,PetscErrorCode *ierr) 11 { 12 MPI_Comm c; 13 *ierr = PetscObjectGetComm(*obj,&c); 14 *(int*)comm = MPI_Comm_c2f(c); 15 } 16 17 EXTERN_C_END 18