1 #include <petsc/private/fortranimpl.h> 2 #include <petscds.h> 3 #include <petscviewer.h> 4 5 #if defined(PETSC_HAVE_FORTRAN_CAPS) 6 #define petscdsviewfromoptions_ PETSCDSVIEWFROMOPTIONS 7 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8 #define petscdsviewfromoptions_ petscdsviewfromoptions 9 #endif 10 11 PETSC_EXTERN void petscdsviewfromoptions_(PetscDS *ao,PetscObject obj,char* type,PetscErrorCode *ierr,PETSC_FORTRAN_CHARLEN_T len) 12 { 13 char *t; 14 15 FIXCHAR(type,len,t); 16 CHKFORTRANNULLOBJECT(obj); 17 *ierr = PetscDSViewFromOptions(*ao,obj,t);if (*ierr) return; 18 FREECHAR(type,t); 19 } 20 21