1*af0996ceSBarry Smith #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 98cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL petscobjectgetcomm_(PetscObject *obj,int *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 } 1555fcb7f5SSatish Balay 16