Actual source code: zsysf90.c
1: #include <petsc/private/f90impl.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: }