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: }