1*6dd63270SBarry Smith #include <petsc/private/ftnimpl.h> 2*6dd63270SBarry Smith 3*6dd63270SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 4*6dd63270SBarry Smith #define petscintarray1ddestroyf90_ PETSCINTARRAY1DDESTROYF90 5*6dd63270SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 6*6dd63270SBarry Smith #define petscintarray1ddestroyf90_ petscintarray1ddestroyf90 7*6dd63270SBarry Smith #endif 8*6dd63270SBarry Smith petscintarray1ddestroyf90_(F90Array1d * ptr,int * __ierr PETSC_F90_2PTR_PROTO (ptrd))9*6dd63270SBarry SmithPETSC_EXTERN void petscintarray1ddestroyf90_(F90Array1d *ptr, int *__ierr PETSC_F90_2PTR_PROTO(ptrd)) 10*6dd63270SBarry Smith { 11*6dd63270SBarry Smith PetscInt *fa; 12*6dd63270SBarry Smith 13*6dd63270SBarry Smith *__ierr = F90Array1dAccess(ptr, MPIU_INT, (void **)&fa PETSC_F90_2PTR_PARAM(ptrd)); 14*6dd63270SBarry Smith if (*__ierr) return; 15*6dd63270SBarry Smith *__ierr = F90Array1dDestroy(ptr, MPIU_INT PETSC_F90_2PTR_PARAM(ptrd)); 16*6dd63270SBarry Smith if (*__ierr) return; 17*6dd63270SBarry Smith *__ierr = PetscFree(fa); 18*6dd63270SBarry Smith } 19