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