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