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 PETSC_STDCALL petscdsviewfromoptions_(PetscDS *ao,PetscObject obj,char* type PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len)) 12 { 13 char *t; 14 15 FIXCHAR(type,len,t); 16 *ierr = PetscDSViewFromOptions(*ao,obj,t);if (*ierr) return; 17 FREECHAR(type,t); 18 } 19 20