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

#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);
}