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