Actual source code: zsfutilsf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscsf.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define petscsfdistributesection_ PETSCSFDISTRIBUTESECTION
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define petscsfdistributesection_ petscsfdistributesection
8: #endif
10: PETSC_EXTERN void petscsfdistributesection_(PetscSF *sf, PetscSection *rootSection, PetscInt **remoteOffsets, PetscSection *leafSection, PetscErrorCode *ierr)
11: {
12: if (remoteOffsets != PETSC_NULL_INTEGER_Fortran) {
13: (void)PetscError(PETSC_COMM_SELF, __LINE__, "PetscSFDistributeSection_Fortran", __FILE__, PETSC_ERR_SUP, PETSC_ERROR_INITIAL, "The remoteOffsets argument must be PETSC_NULL_INTEGER in Fortran");
14: *ierr = PETSC_ERR_SUP;
15: return;
16: }
17: *ierr = PetscSFDistributeSection(*sf, *rootSection, NULL, *leafSection);
18: }