1*69e49704SSatish Balay #include <petsc/private/fortranimpl.h> 2*69e49704SSatish Balay #include <petscdmda.h> 3*69e49704SSatish Balay 4*69e49704SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 5*69e49704SSatish Balay #define dmdagetprocessorsubset_ DMDAGETPROCESSORSUBSET 6*69e49704SSatish Balay #define dmdagetprocessorsubsets_ DMDAGETPROCESSORSUBSETS 7*69e49704SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8*69e49704SSatish Balay #define dmdagetprocessorsubset_ dmdagetprocessorsubset 9*69e49704SSatish Balay #define dmdagetprocessorsubsets_ dmdagetprocessorsubsets 10*69e49704SSatish Balay #endif 11*69e49704SSatish Balay 12*69e49704SSatish Balay PETSC_EXTERN void PETSC_STDCALL dmdagetprocessorsubset_(DM *da,DMDADirection *dir,PetscInt *gp,MPI_Fint *fcomm, int *__ierr ) 13*69e49704SSatish Balay { 14*69e49704SSatish Balay MPI_Comm comm; 15*69e49704SSatish Balay *__ierr = DMDAGetProcessorSubset(*da,*dir,*gp,&comm); 16*69e49704SSatish Balay *fcomm = MPI_Comm_c2f(comm); 17*69e49704SSatish Balay } 18*69e49704SSatish Balay PETSC_EXTERN void PETSC_STDCALL dmdagetprocessorsubsets_(DM *da,DMDADirection *dir,MPI_Fint *subfcomm, int *__ierr ) 19*69e49704SSatish Balay { 20*69e49704SSatish Balay MPI_Comm subcomm; 21*69e49704SSatish Balay *__ierr = DMDAGetProcessorSubsets(*da,*dir,&subcomm); 22*69e49704SSatish Balay *subfcomm = MPI_Comm_c2f(subcomm); 23*69e49704SSatish Balay } 24*69e49704SSatish Balay 25