1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* dscatter.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 "petscsys.h"
32 #ifdef PETSC_HAVE_FORTRAN_CAPS
33 #define petscdrawspsetdimension_ PETSCDRAWSPSETDIMENSION
34 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
35 #define petscdrawspsetdimension_ petscdrawspsetdimension
36 #endif
37 #ifdef PETSC_HAVE_FORTRAN_CAPS
38 #define petscdrawspreset_ PETSCDRAWSPRESET
39 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
40 #define petscdrawspreset_ petscdrawspreset
41 #endif
42 #ifdef PETSC_HAVE_FORTRAN_CAPS
43 #define petscdrawspaddpoint_ PETSCDRAWSPADDPOINT
44 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
45 #define petscdrawspaddpoint_ petscdrawspaddpoint
46 #endif
47 #ifdef PETSC_HAVE_FORTRAN_CAPS
48 #define petscdrawspdraw_ PETSCDRAWSPDRAW
49 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
50 #define petscdrawspdraw_ petscdrawspdraw
51 #endif
52 #ifdef PETSC_HAVE_FORTRAN_CAPS
53 #define petscdrawspsave_ PETSCDRAWSPSAVE
54 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
55 #define petscdrawspsave_ petscdrawspsave
56 #endif
57 #ifdef PETSC_HAVE_FORTRAN_CAPS
58 #define petscdrawspsetlimits_ PETSCDRAWSPSETLIMITS
59 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
60 #define petscdrawspsetlimits_ petscdrawspsetlimits
61 #endif
62
63
64 /* Definitions of Fortran Wrapper routines */
65 #if defined(__cplusplus)
66 extern "C" {
67 #endif
petscdrawspsetdimension_(PetscDrawSP sp,int * dim,int * __ierr)68 PETSC_EXTERN void petscdrawspsetdimension_(PetscDrawSP sp,int *dim, int *__ierr)
69 {
70 *__ierr = PetscDrawSPSetDimension(
71 (PetscDrawSP)PetscToPointer((sp) ),*dim);
72 }
petscdrawspreset_(PetscDrawSP sp,int * __ierr)73 PETSC_EXTERN void petscdrawspreset_(PetscDrawSP sp, int *__ierr)
74 {
75 *__ierr = PetscDrawSPReset(
76 (PetscDrawSP)PetscToPointer((sp) ));
77 }
petscdrawspaddpoint_(PetscDrawSP sp,PetscReal * x,PetscReal * y,int * __ierr)78 PETSC_EXTERN void petscdrawspaddpoint_(PetscDrawSP sp,PetscReal *x,PetscReal *y, int *__ierr)
79 {
80 *__ierr = PetscDrawSPAddPoint(
81 (PetscDrawSP)PetscToPointer((sp) ),x,y);
82 }
petscdrawspdraw_(PetscDrawSP sp,PetscBool * clear,int * __ierr)83 PETSC_EXTERN void petscdrawspdraw_(PetscDrawSP sp,PetscBool *clear, int *__ierr)
84 {
85 *__ierr = PetscDrawSPDraw(
86 (PetscDrawSP)PetscToPointer((sp) ),*clear);
87 }
petscdrawspsave_(PetscDrawSP sp,int * __ierr)88 PETSC_EXTERN void petscdrawspsave_(PetscDrawSP sp, int *__ierr)
89 {
90 *__ierr = PetscDrawSPSave(
91 (PetscDrawSP)PetscToPointer((sp) ));
92 }
petscdrawspsetlimits_(PetscDrawSP sp,PetscReal * x_min,PetscReal * x_max,PetscReal * y_min,PetscReal * y_max,int * __ierr)93 PETSC_EXTERN void petscdrawspsetlimits_(PetscDrawSP sp,PetscReal *x_min,PetscReal *x_max,PetscReal *y_min,PetscReal *y_max, int *__ierr)
94 {
95 *__ierr = PetscDrawSPSetLimits(
96 (PetscDrawSP)PetscToPointer((sp) ),*x_min,*x_max,*y_min,*y_max);
97 }
98 #if defined(__cplusplus)
99 }
100 #endif
101