xref: /petsc/src/sys/objects/ftn-custom/zgcommf.c (revision 55fcb7f56954f81e13f188954f526d43b66569ef) 
1*55fcb7f5SSatish Balay #include "zpetsc.h"
2*55fcb7f5SSatish Balay #include "petsc.h"
3*55fcb7f5SSatish Balay 
4*55fcb7f5SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS)
5*55fcb7f5SSatish Balay #define petscobjectgetcomm_        PETSCOBJECTGETCOMM
6*55fcb7f5SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7*55fcb7f5SSatish Balay #define petscobjectgetcomm_        petscobjectgetcomm
8*55fcb7f5SSatish Balay #endif
9*55fcb7f5SSatish Balay 
10*55fcb7f5SSatish Balay EXTERN_C_BEGIN
11*55fcb7f5SSatish Balay void PETSC_STDCALL petscobjectgetcomm_(PetscObject *obj,int *comm,PetscErrorCode *ierr)
12*55fcb7f5SSatish Balay {
13*55fcb7f5SSatish Balay   MPI_Comm c;
14*55fcb7f5SSatish Balay   *ierr = PetscObjectGetComm(*obj,&c);
15*55fcb7f5SSatish Balay   *(int*)comm = PetscFromPointerComm(c);
16*55fcb7f5SSatish Balay }
17*55fcb7f5SSatish Balay 
18*55fcb7f5SSatish Balay EXTERN_C_END
19