Date: 2025-03-28T21:11:21+00:00

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