1: #include <petsc/private/fortranimpl.h> 3: #if defined(PETSC_HAVE_FORTRAN_CAPS) 4: #define petscobjectsetname_ PETSCOBJECTSETNAME 5: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 6: #define petscobjectsetname_ petscobjectsetname 7: #endif 9: PETSC_EXTERN void petscobjectsetname_(PetscObject *obj, char *name, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len) 10: { 11: char *t1; 13: FIXCHAR(name, len, t1); 14: *ierr = PetscObjectSetName(*obj, t1); 15: if (*ierr) return; 16: FREECHAR(name, t1); 17: }