Actual source code: zgcommf.c

      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: }