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