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

#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 PETSC_STDCALL petscobjectgetcomm_(PetscObject *obj,int *comm,PetscErrorCode *ierr)
{
  MPI_Comm c;
  *ierr = PetscObjectGetComm(*obj,&c);
  *(int*)comm =  MPI_Comm_c2f(c);
}