1: #include <petsc/private/ftnimpl.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, MPI_Fint *comm, PetscErrorCode *ierr)
10: {
11: MPI_Comm c;
12: *ierr = PetscObjectGetComm(*obj, &c);
13: *(int *)comm = MPI_Comm_c2f(c);
14: }