Actual source code: gridBCf.c
1: /* gridBC.c */
2: /* Fortran interface file */
4: /*
5: * This file was generated automatically by bfort from the C source
6: * file.
7: */
9: #ifdef PETSC_USE_POINTER_CONVERSION
10: #if defined(__cplusplus)
11: extern "C" {
12: #endif
13: extern void *PetscToPointer(void *);
14: extern int PetscFromPointer(void *);
15: extern void PetscRmPointer(void *);
16: #if defined(__cplusplus)
17: }
18: #endif
20: #else
22: #define PetscToPointer(a) (*(long *)(a))
23: #define PetscFromPointer(a) (long)(a)
24: #define PetscRmPointer(a)
25: #endif
27: #include "petscfix.h"
28: #include grid.h
29: #include "petscfix.h"
30: #include gvec.h
31: #ifdef MPI_BUILD_PROFILING
32: #ifdef PETSC_HAVE_FORTRAN_CAPS
33: #define gridduplicatebc_ PGRIDDUPLICATEBC
34: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
35: #define gridduplicatebc_ pgridduplicatebc
36: #else
37: #define gridduplicatebc_ pgridduplicatebc_
38: #endif
39: #else
40: #ifdef PETSC_HAVE_FORTRAN_CAPS
41: #define gridduplicatebc_ GRIDDUPLICATEBC
42: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
43: #define gridduplicatebc_ gridduplicatebc
44: #endif
45: #endif
47: #ifdef MPI_BUILD_PROFILING
48: #ifdef PETSC_HAVE_FORTRAN_CAPS
49: #define gridfinalizebc_ PGRIDFINALIZEBC
50: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
51: #define gridfinalizebc_ pgridfinalizebc
52: #else
53: #define gridfinalizebc_ pgridfinalizebc_
54: #endif
55: #else
56: #ifdef PETSC_HAVE_FORTRAN_CAPS
57: #define gridfinalizebc_ GRIDFINALIZEBC
58: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
59: #define gridfinalizebc_ gridfinalizebc
60: #endif
61: #endif
63: #ifdef MPI_BUILD_PROFILING
64: #ifdef PETSC_HAVE_FORTRAN_CAPS
65: #define gridsetbcmultiplier_ PGRIDSETBCMULTIPLIER
66: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
67: #define gridsetbcmultiplier_ pgridsetbcmultiplier
68: #else
69: #define gridsetbcmultiplier_ pgridsetbcmultiplier_
70: #endif
71: #else
72: #ifdef PETSC_HAVE_FORTRAN_CAPS
73: #define gridsetbcmultiplier_ GRIDSETBCMULTIPLIER
74: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
75: #define gridsetbcmultiplier_ gridsetbcmultiplier
76: #endif
77: #endif
79: #ifdef MPI_BUILD_PROFILING
80: #ifdef PETSC_HAVE_FORTRAN_CAPS
81: #define gridgetbcmultiplier_ PGRIDGETBCMULTIPLIER
82: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
83: #define gridgetbcmultiplier_ pgridgetbcmultiplier
84: #else
85: #define gridgetbcmultiplier_ pgridgetbcmultiplier_
86: #endif
87: #else
88: #ifdef PETSC_HAVE_FORTRAN_CAPS
89: #define gridgetbcmultiplier_ GRIDGETBCMULTIPLIER
90: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
91: #define gridgetbcmultiplier_ gridgetbcmultiplier
92: #endif
93: #endif
95: #ifdef MPI_BUILD_PROFILING
96: #ifdef PETSC_HAVE_FORTRAN_CAPS
97: #define gridsetbccontext_ PGRIDSETBCCONTEXT
98: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
99: #define gridsetbccontext_ pgridsetbccontext
100: #else
101: #define gridsetbccontext_ pgridsetbccontext_
102: #endif
103: #else
104: #ifdef PETSC_HAVE_FORTRAN_CAPS
105: #define gridsetbccontext_ GRIDSETBCCONTEXT
106: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
107: #define gridsetbccontext_ gridsetbccontext
108: #endif
109: #endif
111: #ifdef MPI_BUILD_PROFILING
112: #ifdef PETSC_HAVE_FORTRAN_CAPS
113: #define gridgetbccontext_ PGRIDGETBCCONTEXT
114: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
115: #define gridgetbccontext_ pgridgetbccontext
116: #else
117: #define gridgetbccontext_ pgridgetbccontext_
118: #endif
119: #else
120: #ifdef PETSC_HAVE_FORTRAN_CAPS
121: #define gridgetbccontext_ GRIDGETBCCONTEXT
122: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
123: #define gridgetbccontext_ gridgetbccontext
124: #endif
125: #endif
127: #ifdef MPI_BUILD_PROFILING
128: #ifdef PETSC_HAVE_FORTRAN_CAPS
129: #define gridsetbcvaluestype_ PGRIDSETBCVALUESTYPE
130: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
131: #define gridsetbcvaluestype_ pgridsetbcvaluestype
132: #else
133: #define gridsetbcvaluestype_ pgridsetbcvaluestype_
134: #endif
135: #else
136: #ifdef PETSC_HAVE_FORTRAN_CAPS
137: #define gridsetbcvaluestype_ GRIDSETBCVALUESTYPE
138: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
139: #define gridsetbcvaluestype_ gridsetbcvaluestype
140: #endif
141: #endif
143: #ifdef MPI_BUILD_PROFILING
144: #ifdef PETSC_HAVE_FORTRAN_CAPS
145: #define gridcalcbcvalues_ PGRIDCALCBCVALUES
146: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
147: #define gridcalcbcvalues_ pgridcalcbcvalues
148: #else
149: #define gridcalcbcvalues_ pgridcalcbcvalues_
150: #endif
151: #else
152: #ifdef PETSC_HAVE_FORTRAN_CAPS
153: #define gridcalcbcvalues_ GRIDCALCBCVALUES
154: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
155: #define gridcalcbcvalues_ gridcalcbcvalues
156: #endif
157: #endif
159: #ifdef MPI_BUILD_PROFILING
160: #ifdef PETSC_HAVE_FORTRAN_CAPS
161: #define gridcalcbcvaluesdifference_ PGRIDCALCBCVALUESDIFFERENCE
162: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
163: #define gridcalcbcvaluesdifference_ pgridcalcbcvaluesdifference
164: #else
165: #define gridcalcbcvaluesdifference_ pgridcalcbcvaluesdifference_
166: #endif
167: #else
168: #ifdef PETSC_HAVE_FORTRAN_CAPS
169: #define gridcalcbcvaluesdifference_ GRIDCALCBCVALUESDIFFERENCE
170: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
171: #define gridcalcbcvaluesdifference_ gridcalcbcvaluesdifference
172: #endif
173: #endif
177: /* Definitions of Fortran Wrapper routines */
178: #if defined(__cplusplus)
179: extern "C" {
180: #endif
181: void PETSC_STDCALL gridduplicatebc_(Grid grid,Grid newGrid, int *ierr ){
182: *GridDuplicateBC(
183: (Grid)PetscToPointer( (grid) ),
184: (Grid)PetscToPointer( (newGrid) ));
185: }
186: void PETSC_STDCALL gridfinalizebc_(Grid grid, int *ierr ){
187: *GridFinalizeBC(
188: (Grid)PetscToPointer( (grid) ));
189: }
190: void PETSC_STDCALL gridsetbcmultiplier_(Grid grid,PetscScalar *alpha, int *ierr ){
191: *GridSetBCMultiplier(
192: (Grid)PetscToPointer( (grid) ),*alpha);
193: }
194: void PETSC_STDCALL gridgetbcmultiplier_(Grid grid,PetscScalar *alpha, int *ierr ){
195: *GridGetBCMultiplier(
196: (Grid)PetscToPointer( (grid) ),alpha);
197: }
198: void PETSC_STDCALL gridsetbccontext_(Grid grid,void*ctx, int *ierr ){
199: *GridSetBCContext(
200: (Grid)PetscToPointer( (grid) ),ctx);
201: }
202: void PETSC_STDCALL gridgetbccontext_(Grid grid,void**ctx, int *ierr ){
203: *GridGetBCContext(
204: (Grid)PetscToPointer( (grid) ),ctx);
205: }
206: void PETSC_STDCALL gridsetbcvaluestype_(Grid grid,BCValuesType *type, int *ierr ){
207: *GridSetBCValuesType(
208: (Grid)PetscToPointer( (grid) ),*type);
209: }
210: void PETSC_STDCALL gridcalcbcvalues_(Grid grid,PetscTruth *save,void*ctx, int *ierr ){
211: *GridCalcBCValues(
212: (Grid)PetscToPointer( (grid) ),*save,ctx);
213: }
214: void PETSC_STDCALL gridcalcbcvaluesdifference_(Grid grid, int *ierr ){
215: *GridCalcBCValuesDifference(
216: (Grid)PetscToPointer( (grid) ));
217: }
218: #if defined(__cplusplus)
219: }
220: #endif