Actual source code: zdestroyf.c

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

  3: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  4:   #define petscobjecttypecompare_ PETSCOBJECTTYPECOMPARE
  5: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  6:   #define petscobjecttypecompare_ petscobjecttypecompare
  7: #endif

  9: PETSC_EXTERN void petscobjecttypecompare_(PetscObject *obj, char *type_name, PetscBool *same, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
 10: {
 11:   char *c1;
 12:   FIXCHAR(type_name, len, c1);
 13:   *ierr = PetscObjectTypeCompare(*obj, c1, same);
 14:   if (*ierr) return;
 15:   FREECHAR(type_name, c1);
 16: }