1 #include "petscsys.h"
2 #include "petscfix.h"
3 #include "petsc/private/fortranimpl.h"
4 /* space.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 "petscfe.h"
31 #ifdef PETSC_HAVE_FORTRAN_CAPS
32 #define petscspacesetfromoptions_ PETSCSPACESETFROMOPTIONS
33 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
34 #define petscspacesetfromoptions_ petscspacesetfromoptions
35 #endif
36 #ifdef PETSC_HAVE_FORTRAN_CAPS
37 #define petscspacedestroy_ PETSCSPACEDESTROY
38 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
39 #define petscspacedestroy_ petscspacedestroy
40 #endif
41 #ifdef PETSC_HAVE_FORTRAN_CAPS
42 #define petscspacecreate_ PETSCSPACECREATE
43 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
44 #define petscspacecreate_ petscspacecreate
45 #endif
46 #ifdef PETSC_HAVE_FORTRAN_CAPS
47 #define petscspacegetdimension_ PETSCSPACEGETDIMENSION
48 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
49 #define petscspacegetdimension_ petscspacegetdimension
50 #endif
51 #ifdef PETSC_HAVE_FORTRAN_CAPS
52 #define petscspacegetdegree_ PETSCSPACEGETDEGREE
53 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
54 #define petscspacegetdegree_ petscspacegetdegree
55 #endif
56 #ifdef PETSC_HAVE_FORTRAN_CAPS
57 #define petscspacesetdegree_ PETSCSPACESETDEGREE
58 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
59 #define petscspacesetdegree_ petscspacesetdegree
60 #endif
61 #ifdef PETSC_HAVE_FORTRAN_CAPS
62 #define petscspacegetnumcomponents_ PETSCSPACEGETNUMCOMPONENTS
63 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
64 #define petscspacegetnumcomponents_ petscspacegetnumcomponents
65 #endif
66 #ifdef PETSC_HAVE_FORTRAN_CAPS
67 #define petscspacesetnumcomponents_ PETSCSPACESETNUMCOMPONENTS
68 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
69 #define petscspacesetnumcomponents_ petscspacesetnumcomponents
70 #endif
71 #ifdef PETSC_HAVE_FORTRAN_CAPS
72 #define petscspacesetnumvariables_ PETSCSPACESETNUMVARIABLES
73 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
74 #define petscspacesetnumvariables_ petscspacesetnumvariables
75 #endif
76 #ifdef PETSC_HAVE_FORTRAN_CAPS
77 #define petscspacegetnumvariables_ PETSCSPACEGETNUMVARIABLES
78 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
79 #define petscspacegetnumvariables_ petscspacegetnumvariables
80 #endif
81 #ifdef PETSC_HAVE_FORTRAN_CAPS
82 #define petscspacegetheightsubspace_ PETSCSPACEGETHEIGHTSUBSPACE
83 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
84 #define petscspacegetheightsubspace_ petscspacegetheightsubspace
85 #endif
86
87
88 /* Definitions of Fortran Wrapper routines */
89 #if defined(__cplusplus)
90 extern "C" {
91 #endif
petscspacesetfromoptions_(PetscSpace sp,int * __ierr)92 PETSC_EXTERN void petscspacesetfromoptions_(PetscSpace sp, int *__ierr)
93 {
94 *__ierr = PetscSpaceSetFromOptions(
95 (PetscSpace)PetscToPointer((sp) ));
96 }
petscspacedestroy_(PetscSpace * sp,int * __ierr)97 PETSC_EXTERN void petscspacedestroy_(PetscSpace *sp, int *__ierr)
98 {
99 *__ierr = PetscSpaceDestroy(sp);
100 }
petscspacecreate_(MPI_Fint * comm,PetscSpace * sp,int * __ierr)101 PETSC_EXTERN void petscspacecreate_(MPI_Fint * comm,PetscSpace *sp, int *__ierr)
102 {
103 *__ierr = PetscSpaceCreate(
104 MPI_Comm_f2c(*(comm)),sp);
105 }
petscspacegetdimension_(PetscSpace sp,PetscInt * dim,int * __ierr)106 PETSC_EXTERN void petscspacegetdimension_(PetscSpace sp,PetscInt *dim, int *__ierr)
107 {
108 *__ierr = PetscSpaceGetDimension(
109 (PetscSpace)PetscToPointer((sp) ),dim);
110 }
petscspacegetdegree_(PetscSpace sp,PetscInt * minDegree,PetscInt * maxDegree,int * __ierr)111 PETSC_EXTERN void petscspacegetdegree_(PetscSpace sp,PetscInt *minDegree,PetscInt *maxDegree, int *__ierr)
112 {
113 *__ierr = PetscSpaceGetDegree(
114 (PetscSpace)PetscToPointer((sp) ),minDegree,maxDegree);
115 }
petscspacesetdegree_(PetscSpace sp,PetscInt * degree,PetscInt * maxDegree,int * __ierr)116 PETSC_EXTERN void petscspacesetdegree_(PetscSpace sp,PetscInt *degree,PetscInt *maxDegree, int *__ierr)
117 {
118 *__ierr = PetscSpaceSetDegree(
119 (PetscSpace)PetscToPointer((sp) ),*degree,*maxDegree);
120 }
petscspacegetnumcomponents_(PetscSpace sp,PetscInt * Nc,int * __ierr)121 PETSC_EXTERN void petscspacegetnumcomponents_(PetscSpace sp,PetscInt *Nc, int *__ierr)
122 {
123 *__ierr = PetscSpaceGetNumComponents(
124 (PetscSpace)PetscToPointer((sp) ),Nc);
125 }
petscspacesetnumcomponents_(PetscSpace sp,PetscInt * Nc,int * __ierr)126 PETSC_EXTERN void petscspacesetnumcomponents_(PetscSpace sp,PetscInt *Nc, int *__ierr)
127 {
128 *__ierr = PetscSpaceSetNumComponents(
129 (PetscSpace)PetscToPointer((sp) ),*Nc);
130 }
petscspacesetnumvariables_(PetscSpace sp,PetscInt * n,int * __ierr)131 PETSC_EXTERN void petscspacesetnumvariables_(PetscSpace sp,PetscInt *n, int *__ierr)
132 {
133 *__ierr = PetscSpaceSetNumVariables(
134 (PetscSpace)PetscToPointer((sp) ),*n);
135 }
petscspacegetnumvariables_(PetscSpace sp,PetscInt * n,int * __ierr)136 PETSC_EXTERN void petscspacegetnumvariables_(PetscSpace sp,PetscInt *n, int *__ierr)
137 {
138 *__ierr = PetscSpaceGetNumVariables(
139 (PetscSpace)PetscToPointer((sp) ),n);
140 }
petscspacegetheightsubspace_(PetscSpace sp,PetscInt * height,PetscSpace * subsp,int * __ierr)141 PETSC_EXTERN void petscspacegetheightsubspace_(PetscSpace sp,PetscInt *height,PetscSpace *subsp, int *__ierr)
142 {
143 *__ierr = PetscSpaceGetHeightSubspace(
144 (PetscSpace)PetscToPointer((sp) ),*height,subsp);
145 }
146 #if defined(__cplusplus)
147 }
148 #endif
149