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