1*6dd63270SBarry Smith #include <petsc/private/ftnimpl.h> 269e49704SSatish Balay #include <petscdmda.h> 369e49704SSatish Balay 469e49704SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 569e49704SSatish Balay #define dmdagetprocessorsubset_ DMDAGETPROCESSORSUBSET 669e49704SSatish Balay #define dmdagetprocessorsubsets_ DMDAGETPROCESSORSUBSETS 769e49704SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 869e49704SSatish Balay #define dmdagetprocessorsubset_ dmdagetprocessorsubset 969e49704SSatish Balay #define dmdagetprocessorsubsets_ dmdagetprocessorsubsets 1069e49704SSatish Balay #endif 1169e49704SSatish Balay 1219caf8f3SSatish Balay PETSC_EXTERN void dmdagetprocessorsubset_(DM *da, DMDirection *dir, PetscInt *gp, MPI_Fint *fcomm, int *__ierr) 1369e49704SSatish Balay { 1469e49704SSatish Balay MPI_Comm comm; 1569e49704SSatish Balay *__ierr = DMDAGetProcessorSubset(*da, *dir, *gp, &comm); 1669e49704SSatish Balay *fcomm = MPI_Comm_c2f(comm); 1769e49704SSatish Balay } 1819caf8f3SSatish Balay PETSC_EXTERN void dmdagetprocessorsubsets_(DM *da, DMDirection *dir, MPI_Fint *subfcomm, int *__ierr) 1969e49704SSatish Balay { 2069e49704SSatish Balay MPI_Comm subcomm; 2169e49704SSatish Balay *__ierr = DMDAGetProcessorSubsets(*da, *dir, &subcomm); 2269e49704SSatish Balay *subfcomm = MPI_Comm_c2f(subcomm); 2369e49704SSatish Balay } 24