1: #include <petsc/private/fortranimpl.h> 2: #include <petscdt.h> 3: #include <petscviewer.h> 5: #if defined(PETSC_HAVE_FORTRAN_CAPS) 6: #define petscquadratureview_ PETSCQUADRATUREVIEW 7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8: #define petscquadratureview_ petscquadratureview 9: #endif 11: PETSC_EXTERN void petscquadratureview_(PetscQuadrature *q, PetscViewer *vin, PetscErrorCode *ierr) 12: { 13: PetscViewer v; 14: PetscPatchDefaultViewers_Fortran(vin, v); 15: *ierr = PetscQuadratureView(*q, v); 16: }