1*6dd63270SBarry Smith #include <petsc/private/ftnimpl.h> 255fcb7f5SSatish Balay 355fcb7f5SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 455fcb7f5SSatish Balay #define petscobjectgetcomm_ PETSCOBJECTGETCOMM 555fcb7f5SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 655fcb7f5SSatish Balay #define petscobjectgetcomm_ petscobjectgetcomm 755fcb7f5SSatish Balay #endif 855fcb7f5SSatish Balay petscobjectgetcomm_(PetscObject * obj,MPI_Fint * comm,PetscErrorCode * ierr)9ce78bad3SBarry SmithPETSC_EXTERN void petscobjectgetcomm_(PetscObject *obj, MPI_Fint *comm, PetscErrorCode *ierr) 1055fcb7f5SSatish Balay { 1155fcb7f5SSatish Balay MPI_Comm c; 1255fcb7f5SSatish Balay *ierr = PetscObjectGetComm(*obj, &c); 13a542b6e8SBarry Smith *(int *)comm = MPI_Comm_c2f(c); 1455fcb7f5SSatish Balay } 15