1 #include <petsc/private/ftnimpl.h> 2 3 #if defined(PETSC_HAVE_FORTRAN_CAPS) 4 #define petscintarray1ddestroyf90_ PETSCINTARRAY1DDESTROYF90 5 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 6 #define petscintarray1ddestroyf90_ petscintarray1ddestroyf90 7 #endif 8 petscintarray1ddestroyf90_(F90Array1d * ptr,int * __ierr PETSC_F90_2PTR_PROTO (ptrd))9PETSC_EXTERN void petscintarray1ddestroyf90_(F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROTO(ptrd)) 10 { 11 PetscInt *fa; 12 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 } 19