Actual source code: zplexdistribute.c

  1: #include <petsc/private/fortranimpl.h>
  2: #include <petscdmplex.h>

  4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  5:   #define dmplexdistribute_        DMPLEXDISTRIBUTE
  6:   #define dmplexdistributeoverlap_ DMPLEXDISTRIBUTEOVERLAP
  7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
  8:   #define dmplexdistribute_        dmplexdistribute
  9:   #define dmplexdistributeoverlap_ dmplexdistributeoverlap
 10: #endif

 12: /* Definitions of Fortran Wrapper routines */
 13: PETSC_EXTERN void dmplexdistribute_(DM *dm, PetscInt *overlap, PetscSF *sf, DM *dmParallel, int *ierr)
 14: {
 15:   CHKFORTRANNULLOBJECT(sf);
 16:   *ierr = DMPlexDistribute(*dm, *overlap, sf, dmParallel);
 17: }

 19: PETSC_EXTERN void dmplexdistributeoverlap_(DM *dm, PetscInt *overlap, PetscSF *sf, DM *dmParallel, int *ierr)
 20: {
 21:   CHKFORTRANNULLOBJECT(sf);
 22:   *ierr = DMPlexDistributeOverlap(*dm, *overlap, sf, dmParallel);
 23: }