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: }