1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* hdf5v.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 "petscviewerhdf5.h"
31 #ifdef PETSC_HAVE_FORTRAN_CAPS
32 #define petscviewerhdf5setbasedimension2_ PETSCVIEWERHDF5SETBASEDIMENSION2
33 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
34 #define petscviewerhdf5setbasedimension2_ petscviewerhdf5setbasedimension2
35 #endif
36 #ifdef PETSC_HAVE_FORTRAN_CAPS
37 #define petscviewerhdf5getbasedimension2_ PETSCVIEWERHDF5GETBASEDIMENSION2
38 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
39 #define petscviewerhdf5getbasedimension2_ petscviewerhdf5getbasedimension2
40 #endif
41 #ifdef PETSC_HAVE_FORTRAN_CAPS
42 #define petscviewerhdf5setspoutput_ PETSCVIEWERHDF5SETSPOUTPUT
43 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
44 #define petscviewerhdf5setspoutput_ petscviewerhdf5setspoutput
45 #endif
46 #ifdef PETSC_HAVE_FORTRAN_CAPS
47 #define petscviewerhdf5getspoutput_ PETSCVIEWERHDF5GETSPOUTPUT
48 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
49 #define petscviewerhdf5getspoutput_ petscviewerhdf5getspoutput
50 #endif
51 #ifdef PETSC_HAVE_FORTRAN_CAPS
52 #define petscviewerhdf5setcollective_ PETSCVIEWERHDF5SETCOLLECTIVE
53 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
54 #define petscviewerhdf5setcollective_ petscviewerhdf5setcollective
55 #endif
56 #ifdef PETSC_HAVE_FORTRAN_CAPS
57 #define petscviewerhdf5getcollective_ PETSCVIEWERHDF5GETCOLLECTIVE
58 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
59 #define petscviewerhdf5getcollective_ petscviewerhdf5getcollective
60 #endif
61 #ifdef PETSC_HAVE_FORTRAN_CAPS
62 #define petscviewerhdf5popgroup_ PETSCVIEWERHDF5POPGROUP
63 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
64 #define petscviewerhdf5popgroup_ petscviewerhdf5popgroup
65 #endif
66 #ifdef PETSC_HAVE_FORTRAN_CAPS
67 #define petscviewerhdf5opengroup_ PETSCVIEWERHDF5OPENGROUP
68 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
69 #define petscviewerhdf5opengroup_ petscviewerhdf5opengroup
70 #endif
71 #ifdef PETSC_HAVE_FORTRAN_CAPS
72 #define petscviewerhdf5incrementtimestep_ PETSCVIEWERHDF5INCREMENTTIMESTEP
73 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
74 #define petscviewerhdf5incrementtimestep_ petscviewerhdf5incrementtimestep
75 #endif
76 #ifdef PETSC_HAVE_FORTRAN_CAPS
77 #define petscviewerhdf5settimestep_ PETSCVIEWERHDF5SETTIMESTEP
78 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
79 #define petscviewerhdf5settimestep_ petscviewerhdf5settimestep
80 #endif
81 #ifdef PETSC_HAVE_FORTRAN_CAPS
82 #define petscviewerhdf5gettimestep_ PETSCVIEWERHDF5GETTIMESTEP
83 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
84 #define petscviewerhdf5gettimestep_ petscviewerhdf5gettimestep
85 #endif
86 #ifdef PETSC_HAVE_FORTRAN_CAPS
87 #define petscviewerhdf5hasgroup_ PETSCVIEWERHDF5HASGROUP
88 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
89 #define petscviewerhdf5hasgroup_ petscviewerhdf5hasgroup
90 #endif
91 #ifdef PETSC_HAVE_FORTRAN_CAPS
92 #define petscviewerhdf5hasobject_ PETSCVIEWERHDF5HASOBJECT
93 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
94 #define petscviewerhdf5hasobject_ petscviewerhdf5hasobject
95 #endif
96
97
98 /* Definitions of Fortran Wrapper routines */
99 #if defined(__cplusplus)
100 extern "C" {
101 #endif
petscviewerhdf5setbasedimension2_(PetscViewer viewer,PetscBool * flg,int * __ierr)102 PETSC_EXTERN void petscviewerhdf5setbasedimension2_(PetscViewer viewer,PetscBool *flg, int *__ierr)
103 {
104 *__ierr = PetscViewerHDF5SetBaseDimension2(
105 (PetscViewer)PetscToPointer((viewer) ),*flg);
106 }
petscviewerhdf5getbasedimension2_(PetscViewer viewer,PetscBool * flg,int * __ierr)107 PETSC_EXTERN void petscviewerhdf5getbasedimension2_(PetscViewer viewer,PetscBool *flg, int *__ierr)
108 {
109 *__ierr = PetscViewerHDF5GetBaseDimension2(
110 (PetscViewer)PetscToPointer((viewer) ),flg);
111 }
petscviewerhdf5setspoutput_(PetscViewer viewer,PetscBool * flg,int * __ierr)112 PETSC_EXTERN void petscviewerhdf5setspoutput_(PetscViewer viewer,PetscBool *flg, int *__ierr)
113 {
114 *__ierr = PetscViewerHDF5SetSPOutput(
115 (PetscViewer)PetscToPointer((viewer) ),*flg);
116 }
petscviewerhdf5getspoutput_(PetscViewer viewer,PetscBool * flg,int * __ierr)117 PETSC_EXTERN void petscviewerhdf5getspoutput_(PetscViewer viewer,PetscBool *flg, int *__ierr)
118 {
119 *__ierr = PetscViewerHDF5GetSPOutput(
120 (PetscViewer)PetscToPointer((viewer) ),flg);
121 }
petscviewerhdf5setcollective_(PetscViewer viewer,PetscBool * flg,int * __ierr)122 PETSC_EXTERN void petscviewerhdf5setcollective_(PetscViewer viewer,PetscBool *flg, int *__ierr)
123 {
124 *__ierr = PetscViewerHDF5SetCollective(
125 (PetscViewer)PetscToPointer((viewer) ),*flg);
126 }
petscviewerhdf5getcollective_(PetscViewer viewer,PetscBool * flg,int * __ierr)127 PETSC_EXTERN void petscviewerhdf5getcollective_(PetscViewer viewer,PetscBool *flg, int *__ierr)
128 {
129 *__ierr = PetscViewerHDF5GetCollective(
130 (PetscViewer)PetscToPointer((viewer) ),flg);
131 }
petscviewerhdf5popgroup_(PetscViewer viewer,int * __ierr)132 PETSC_EXTERN void petscviewerhdf5popgroup_(PetscViewer viewer, int *__ierr)
133 {
134 *__ierr = PetscViewerHDF5PopGroup(
135 (PetscViewer)PetscToPointer((viewer) ));
136 }
petscviewerhdf5opengroup_(PetscViewer viewer,hid_t * fileId,hid_t * groupId,int * __ierr)137 PETSC_EXTERN void petscviewerhdf5opengroup_(PetscViewer viewer,hid_t *fileId,hid_t *groupId, int *__ierr)
138 {
139 *__ierr = PetscViewerHDF5OpenGroup(
140 (PetscViewer)PetscToPointer((viewer) ),
141 (hid_t* )PetscToPointer((fileId) ),
142 (hid_t* )PetscToPointer((groupId) ));
143 }
petscviewerhdf5incrementtimestep_(PetscViewer viewer,int * __ierr)144 PETSC_EXTERN void petscviewerhdf5incrementtimestep_(PetscViewer viewer, int *__ierr)
145 {
146 *__ierr = PetscViewerHDF5IncrementTimestep(
147 (PetscViewer)PetscToPointer((viewer) ));
148 }
petscviewerhdf5settimestep_(PetscViewer viewer,PetscInt * timestep,int * __ierr)149 PETSC_EXTERN void petscviewerhdf5settimestep_(PetscViewer viewer,PetscInt *timestep, int *__ierr)
150 {
151 *__ierr = PetscViewerHDF5SetTimestep(
152 (PetscViewer)PetscToPointer((viewer) ),*timestep);
153 }
petscviewerhdf5gettimestep_(PetscViewer viewer,PetscInt * timestep,int * __ierr)154 PETSC_EXTERN void petscviewerhdf5gettimestep_(PetscViewer viewer,PetscInt *timestep, int *__ierr)
155 {
156 *__ierr = PetscViewerHDF5GetTimestep(
157 (PetscViewer)PetscToPointer((viewer) ),timestep);
158 }
petscviewerhdf5hasgroup_(PetscViewer viewer,PetscBool * has,int * __ierr)159 PETSC_EXTERN void petscviewerhdf5hasgroup_(PetscViewer viewer,PetscBool *has, int *__ierr)
160 {
161 *__ierr = PetscViewerHDF5HasGroup(
162 (PetscViewer)PetscToPointer((viewer) ),has);
163 }
petscviewerhdf5hasobject_(PetscViewer viewer,PetscObject obj,PetscBool * has,int * __ierr)164 PETSC_EXTERN void petscviewerhdf5hasobject_(PetscViewer viewer,PetscObject obj,PetscBool *has, int *__ierr)
165 {
166 *__ierr = PetscViewerHDF5HasObject(
167 (PetscViewer)PetscToPointer((viewer) ),
168 (PetscObject)PetscToPointer((obj) ),has);
169 }
170 #if defined(__cplusplus)
171 }
172 #endif
173