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