1: #include <petsc/private/fortranimpl.h> 2: #include <petscpf.h> 3: #include <petscviewer.h> 5: #if defined(PETSC_HAVE_FORTRAN_CAPS) 6: #define pfviewfromoptions_ PFVIEWFROMOPTIONS 7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8: #define pfviewfromoptions_ pfviewfromoptions 9: #endif 11: PETSC_EXTERN void pfviewfromoptions_(PF *ao, PetscObject obj, char *type, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len) 12: { 13: char *t; 15: FIXCHAR(type, len, t); 16: CHKFORTRANNULLOBJECT(obj); 17: *ierr = PFViewFromOptions(*ao, obj, t); 18: if (*ierr) return; 19: FREECHAR(type, t); 20: }