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: }