1 #include <petsc/private/ftnimpl.h> 2 3 #if defined(PETSC_HAVE_FORTRAN_CAPS) 4 #define petscobjectgetcomm_ PETSCOBJECTGETCOMM 5 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 6 #define petscobjectgetcomm_ petscobjectgetcomm 7 #endif 8 petscobjectgetcomm_(PetscObject * obj,MPI_Fint * comm,PetscErrorCode * ierr)9PETSC_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 } 15