Actual source code: zdtrif.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscdraw.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define petscdrawtensorcontour_ PETSCDRAWTENSORCONTOUR
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define petscdrawtensorcontour_ petscdrawtensorcontour
8: #endif
10: PETSC_EXTERN void petscdrawtensorcontour_(PetscDraw *win, int *m, int *n, PetscReal *x, PetscReal *y, PetscReal *V, PetscErrorCode *ierr)
11: {
12: CHKFORTRANNULLREAL(x);
13: CHKFORTRANNULLREAL(y);
14: *ierr = PetscDrawTensorContour(*win, *m, *n, x, y, V);
15: }