Actual source code: zsysf90.c

      1: #include <petsc/private/ftnimpl.h>

      3: #if defined(PETSC_HAVE_FORTRAN_CAPS)
      4:   #define petscintarray1ddestroyf90_ PETSCINTARRAY1DDESTROYF90
      5: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
      6:   #define petscintarray1ddestroyf90_ petscintarray1ddestroyf90
      7: #endif

      9: PETSC_EXTERN void petscintarray1ddestroyf90_(F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROTO(ptrd))
     10: {
     11:   PetscInt *fa;

     13:   *__ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd));
     14:   if (*__ierr) return;
     15:   *__ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd));
     16:   if (*__ierr) return;
     17:   *__ierr = PetscFree(fa);
     18: }