1*b45d2f2cSJed Brown #include <petsc-private/fortranimpl.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 955fcb7f5SSatish Balay EXTERN_C_BEGIN 1055fcb7f5SSatish Balay void PETSC_STDCALL petscobjectgetcomm_(PetscObject *obj,int *comm,PetscErrorCode *ierr) 1155fcb7f5SSatish Balay { 1255fcb7f5SSatish Balay MPI_Comm c; 1355fcb7f5SSatish Balay *ierr = PetscObjectGetComm(*obj,&c); 14a542b6e8SBarry Smith *(int*)comm = MPI_Comm_c2f(c); 1555fcb7f5SSatish Balay } 1655fcb7f5SSatish Balay 1755fcb7f5SSatish Balay EXTERN_C_END 18