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

  3: #if PetscDefined(HAVE_FORTRAN_CAPS)
  4:   #define petscintarray1ddestroyf90_ PETSCINTARRAY1DDESTROYF90
  5: #elif !PetscDefined(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: }