1: #include <petsc/private/fortranimpl.h> 3: #if defined(PETSC_HAVE_FORTRAN_CAPS) 4: #define petscobjectgetname_ PETSCOBJECTGETNAME 5: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 6: #define petscobjectgetname_ petscobjectgetname 7: #endif 9: PETSC_EXTERN void petscobjectgetname_(PetscObject *obj, char *name, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len) 10: { 11: const char *tmp; 12: *ierr = PetscObjectGetName(*obj, &tmp); 13: *ierr = PetscStrncpy(name, tmp, len); 14: if (*ierr) return; 15: FIXRETURNCHAR(PETSC_TRUE, name, len); 16: }