xref: /petsc/src/sys/objects/ftn-custom/zgcommf.c (revision 517f05f0c367049e47099f3ac6f8384e1913dc1d)

#include <petsc/private/fortranimpl.h>

#if defined(PETSC_HAVE_FORTRAN_CAPS)
  #define petscobjectgetcomm_ PETSCOBJECTGETCOMM
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  #define petscobjectgetcomm_ petscobjectgetcomm
#endif

PETSC_EXTERN void petscobjectgetcomm_(PetscObject *obj, int *comm, PetscErrorCode *ierr)
{
  MPI_Comm c;
  *ierr        = PetscObjectGetComm(*obj, &c);
  *(int *)comm = MPI_Comm_c2f(c);
}