1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* axisc.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 #ifdef PETSC_HAVE_FORTRAN_CAPS
32 #define petscdrawaxiscreate_ PETSCDRAWAXISCREATE
33 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
34 #define petscdrawaxiscreate_ petscdrawaxiscreate
35 #endif
36 #ifdef PETSC_HAVE_FORTRAN_CAPS
37 #define petscdrawaxisdestroy_ PETSCDRAWAXISDESTROY
38 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
39 #define petscdrawaxisdestroy_ petscdrawaxisdestroy
40 #endif
41 #ifdef PETSC_HAVE_FORTRAN_CAPS
42 #define petscdrawaxissetcolors_ PETSCDRAWAXISSETCOLORS
43 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
44 #define petscdrawaxissetcolors_ petscdrawaxissetcolors
45 #endif
46 #ifdef PETSC_HAVE_FORTRAN_CAPS
47 #define petscdrawaxissetlimits_ PETSCDRAWAXISSETLIMITS
48 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
49 #define petscdrawaxissetlimits_ petscdrawaxissetlimits
50 #endif
51 #ifdef PETSC_HAVE_FORTRAN_CAPS
52 #define petscdrawaxisgetlimits_ PETSCDRAWAXISGETLIMITS
53 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
54 #define petscdrawaxisgetlimits_ petscdrawaxisgetlimits
55 #endif
56 #ifdef PETSC_HAVE_FORTRAN_CAPS
57 #define petscdrawaxissetholdlimits_ PETSCDRAWAXISSETHOLDLIMITS
58 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
59 #define petscdrawaxissetholdlimits_ petscdrawaxissetholdlimits
60 #endif
61 #ifdef PETSC_HAVE_FORTRAN_CAPS
62 #define petscdrawaxisdraw_ PETSCDRAWAXISDRAW
63 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
64 #define petscdrawaxisdraw_ petscdrawaxisdraw
65 #endif
66
67
68 /* Definitions of Fortran Wrapper routines */
69 #if defined(__cplusplus)
70 extern "C" {
71 #endif
petscdrawaxiscreate_(PetscDraw draw,PetscDrawAxis * axis,int * __ierr)72 PETSC_EXTERN void petscdrawaxiscreate_(PetscDraw draw,PetscDrawAxis *axis, int *__ierr)
73 {
74 *__ierr = PetscDrawAxisCreate(
75 (PetscDraw)PetscToPointer((draw) ),axis);
76 }
petscdrawaxisdestroy_(PetscDrawAxis * axis,int * __ierr)77 PETSC_EXTERN void petscdrawaxisdestroy_(PetscDrawAxis *axis, int *__ierr)
78 {
79 *__ierr = PetscDrawAxisDestroy(axis);
80 }
petscdrawaxissetcolors_(PetscDrawAxis axis,int * ac,int * tc,int * cc,int * __ierr)81 PETSC_EXTERN void petscdrawaxissetcolors_(PetscDrawAxis axis,int *ac,int *tc,int *cc, int *__ierr)
82 {
83 *__ierr = PetscDrawAxisSetColors(
84 (PetscDrawAxis)PetscToPointer((axis) ),*ac,*tc,*cc);
85 }
petscdrawaxissetlimits_(PetscDrawAxis axis,PetscReal * xmin,PetscReal * xmax,PetscReal * ymin,PetscReal * ymax,int * __ierr)86 PETSC_EXTERN void petscdrawaxissetlimits_(PetscDrawAxis axis,PetscReal *xmin,PetscReal *xmax,PetscReal *ymin,PetscReal *ymax, int *__ierr)
87 {
88 *__ierr = PetscDrawAxisSetLimits(
89 (PetscDrawAxis)PetscToPointer((axis) ),*xmin,*xmax,*ymin,*ymax);
90 }
petscdrawaxisgetlimits_(PetscDrawAxis axis,PetscReal * xmin,PetscReal * xmax,PetscReal * ymin,PetscReal * ymax,int * __ierr)91 PETSC_EXTERN void petscdrawaxisgetlimits_(PetscDrawAxis axis,PetscReal *xmin,PetscReal *xmax,PetscReal *ymin,PetscReal *ymax, int *__ierr)
92 {
93 *__ierr = PetscDrawAxisGetLimits(
94 (PetscDrawAxis)PetscToPointer((axis) ),xmin,xmax,ymin,ymax);
95 }
petscdrawaxissetholdlimits_(PetscDrawAxis axis,PetscBool * hold,int * __ierr)96 PETSC_EXTERN void petscdrawaxissetholdlimits_(PetscDrawAxis axis,PetscBool *hold, int *__ierr)
97 {
98 *__ierr = PetscDrawAxisSetHoldLimits(
99 (PetscDrawAxis)PetscToPointer((axis) ),*hold);
100 }
petscdrawaxisdraw_(PetscDrawAxis axis,int * __ierr)101 PETSC_EXTERN void petscdrawaxisdraw_(PetscDrawAxis axis, int *__ierr)
102 {
103 *__ierr = PetscDrawAxisDraw(
104 (PetscDrawAxis)PetscToPointer((axis) ));
105 }
106 #if defined(__cplusplus)
107 }
108 #endif
109