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