Actual source code: zdrawopenxf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscdraw.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define petscdrawopenx_ PETSCDRAWOPENX
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define petscdrawopenx_ petscdrawopenx
8: #endif
10: PETSC_EXTERN void petscdrawopenx_(MPI_Comm *comm, char *display, char *title, int *x, int *y, int *w, int *h, PetscDraw *inctx, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2)
11: {
12: char *t1, *t2;
14: FIXCHAR(display, len1, t1);
15: FIXCHAR(title, len2, t2);
16: *ierr = PetscDrawOpenX(MPI_Comm_f2c(*(MPI_Fint *)&*comm), t1, t2, *x, *y, *w, *h, inctx);
17: if (*ierr) return;
18: FREECHAR(display, t1);
19: FREECHAR(title, t2);
20: }