xref: /petsc/src/dm/impls/da/ftn-custom/zdasubf.c (revision b0dcfd164860a975c76f90dabf1036901aab1c4e)

#include <petsc/private/ftnimpl.h>
#include <petscdmda.h>

#if defined(PETSC_HAVE_FORTRAN_CAPS)
  #define dmdagetprocessorsubset_  DMDAGETPROCESSORSUBSET
  #define dmdagetprocessorsubsets_ DMDAGETPROCESSORSUBSETS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  #define dmdagetprocessorsubset_  dmdagetprocessorsubset
  #define dmdagetprocessorsubsets_ dmdagetprocessorsubsets
#endif

PETSC_EXTERN void dmdagetprocessorsubset_(DM *da, DMDirection *dir, PetscInt *gp, MPI_Fint *fcomm, int *__ierr)
{
  MPI_Comm comm;
  *__ierr = DMDAGetProcessorSubset(*da, *dir, *gp, &comm);
  *fcomm  = MPI_Comm_c2f(comm);
}
PETSC_EXTERN void dmdagetprocessorsubsets_(DM *da, DMDirection *dir, MPI_Fint *subfcomm, int *__ierr)
{
  MPI_Comm subcomm;
  *__ierr   = DMDAGetProcessorSubsets(*da, *dir, &subcomm);
  *subfcomm = MPI_Comm_c2f(subcomm);
}