1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* drawv.c */
5 /* Fortran interface file */
6
7 /*
8 * This file was generated automatically by bfort from the C source
9 * file.
10 */
11
12 #ifdef PETSC_USE_POINTER_CONVERSION
13 #if defined(__cplusplus)
14 extern "C" {
15 #endif
16 extern void *PetscToPointer(void*);
17 extern int PetscFromPointer(void *);
18 extern void PetscRmPointer(void*);
19 #if defined(__cplusplus)
20 }
21 #endif
22
23 #else
24
25 #define PetscToPointer(a) (*(PetscFortranAddr *)(a))
26 #define PetscFromPointer(a) (PetscFortranAddr)(a)
27 #define PetscRmPointer(a)
28 #endif
29
30 #include "petscdraw.h"
31 #include "petscviewer.h"
32 #ifdef PETSC_HAVE_FORTRAN_CAPS
33 #define petscviewerdrawclear_ PETSCVIEWERDRAWCLEAR
34 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
35 #define petscviewerdrawclear_ petscviewerdrawclear
36 #endif
37 #ifdef PETSC_HAVE_FORTRAN_CAPS
38 #define petscviewerdrawgetpause_ PETSCVIEWERDRAWGETPAUSE
39 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
40 #define petscviewerdrawgetpause_ petscviewerdrawgetpause
41 #endif
42 #ifdef PETSC_HAVE_FORTRAN_CAPS
43 #define petscviewerdrawsetpause_ PETSCVIEWERDRAWSETPAUSE
44 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
45 #define petscviewerdrawsetpause_ petscviewerdrawsetpause
46 #endif
47 #ifdef PETSC_HAVE_FORTRAN_CAPS
48 #define petscviewerdrawsethold_ PETSCVIEWERDRAWSETHOLD
49 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
50 #define petscviewerdrawsethold_ petscviewerdrawsethold
51 #endif
52 #ifdef PETSC_HAVE_FORTRAN_CAPS
53 #define petscviewerdrawgethold_ PETSCVIEWERDRAWGETHOLD
54 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
55 #define petscviewerdrawgethold_ petscviewerdrawgethold
56 #endif
57 #ifdef PETSC_HAVE_FORTRAN_CAPS
58 #define petscviewerdrawsetbounds_ PETSCVIEWERDRAWSETBOUNDS
59 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
60 #define petscviewerdrawsetbounds_ petscviewerdrawsetbounds
61 #endif
62
63
64 /* Definitions of Fortran Wrapper routines */
65 #if defined(__cplusplus)
66 extern "C" {
67 #endif
petscviewerdrawclear_(PetscViewer viewer,int * __ierr)68 PETSC_EXTERN void petscviewerdrawclear_(PetscViewer viewer, int *__ierr)
69 {
70 *__ierr = PetscViewerDrawClear(
71 (PetscViewer)PetscToPointer((viewer) ));
72 }
petscviewerdrawgetpause_(PetscViewer viewer,PetscReal * pause,int * __ierr)73 PETSC_EXTERN void petscviewerdrawgetpause_(PetscViewer viewer,PetscReal *pause, int *__ierr)
74 {
75 *__ierr = PetscViewerDrawGetPause(
76 (PetscViewer)PetscToPointer((viewer) ),pause);
77 }
petscviewerdrawsetpause_(PetscViewer viewer,PetscReal * pause,int * __ierr)78 PETSC_EXTERN void petscviewerdrawsetpause_(PetscViewer viewer,PetscReal *pause, int *__ierr)
79 {
80 *__ierr = PetscViewerDrawSetPause(
81 (PetscViewer)PetscToPointer((viewer) ),*pause);
82 }
petscviewerdrawsethold_(PetscViewer viewer,PetscBool * hold,int * __ierr)83 PETSC_EXTERN void petscviewerdrawsethold_(PetscViewer viewer,PetscBool *hold, int *__ierr)
84 {
85 *__ierr = PetscViewerDrawSetHold(
86 (PetscViewer)PetscToPointer((viewer) ),*hold);
87 }
petscviewerdrawgethold_(PetscViewer viewer,PetscBool * hold,int * __ierr)88 PETSC_EXTERN void petscviewerdrawgethold_(PetscViewer viewer,PetscBool *hold, int *__ierr)
89 {
90 *__ierr = PetscViewerDrawGetHold(
91 (PetscViewer)PetscToPointer((viewer) ),hold);
92 }
petscviewerdrawsetbounds_(PetscViewer viewer,PetscInt * nbounds,PetscReal * bounds,int * __ierr)93 PETSC_EXTERN void petscviewerdrawsetbounds_(PetscViewer viewer,PetscInt *nbounds, PetscReal *bounds, int *__ierr)
94 {
95 *__ierr = PetscViewerDrawSetBounds(
96 (PetscViewer)PetscToPointer((viewer) ),*nbounds,bounds);
97 }
98 #if defined(__cplusplus)
99 }
100 #endif
101