Actual source code: gsnesf.c
1: /* gsnes.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 petscsnes.h
29: #include "petscfix.h"
30: #include gsolver.h
31: #ifdef MPI_BUILD_PROFILING
32: #ifdef PETSC_HAVE_FORTRAN_CAPS
33: #define gsnesview_ PGSNESVIEW
34: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
35: #define gsnesview_ pgsnesview
36: #else
37: #define gsnesview_ pgsnesview_
38: #endif
39: #else
40: #ifdef PETSC_HAVE_FORTRAN_CAPS
41: #define gsnesview_ GSNESVIEW
42: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
43: #define gsnesview_ gsnesview
44: #endif
45: #endif
47: #ifdef MPI_BUILD_PROFILING
48: #ifdef PETSC_HAVE_FORTRAN_CAPS
49: #define gsnesgetgrid_ PGSNESGETGRID
50: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
51: #define gsnesgetgrid_ pgsnesgetgrid
52: #else
53: #define gsnesgetgrid_ pgsnesgetgrid_
54: #endif
55: #else
56: #ifdef PETSC_HAVE_FORTRAN_CAPS
57: #define gsnesgetgrid_ GSNESGETGRID
58: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
59: #define gsnesgetgrid_ gsnesgetgrid
60: #endif
61: #endif
63: #ifdef MPI_BUILD_PROFILING
64: #ifdef PETSC_HAVE_FORTRAN_CAPS
65: #define gsnesevaluaterhs_ PGSNESEVALUATERHS
66: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
67: #define gsnesevaluaterhs_ pgsnesevaluaterhs
68: #else
69: #define gsnesevaluaterhs_ pgsnesevaluaterhs_
70: #endif
71: #else
72: #ifdef PETSC_HAVE_FORTRAN_CAPS
73: #define gsnesevaluaterhs_ GSNESEVALUATERHS
74: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
75: #define gsnesevaluaterhs_ gsnesevaluaterhs
76: #endif
77: #endif
79: #ifdef MPI_BUILD_PROFILING
80: #ifdef PETSC_HAVE_FORTRAN_CAPS
81: #define gsnesevaluaterhsfunction_ PGSNESEVALUATERHSFUNCTION
82: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
83: #define gsnesevaluaterhsfunction_ pgsnesevaluaterhsfunction
84: #else
85: #define gsnesevaluaterhsfunction_ pgsnesevaluaterhsfunction_
86: #endif
87: #else
88: #ifdef PETSC_HAVE_FORTRAN_CAPS
89: #define gsnesevaluaterhsfunction_ GSNESEVALUATERHSFUNCTION
90: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
91: #define gsnesevaluaterhsfunction_ gsnesevaluaterhsfunction
92: #endif
93: #endif
95: #ifdef MPI_BUILD_PROFILING
96: #ifdef PETSC_HAVE_FORTRAN_CAPS
97: #define gsnesevaluaterhsoperator_ PGSNESEVALUATERHSOPERATOR
98: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
99: #define gsnesevaluaterhsoperator_ pgsnesevaluaterhsoperator
100: #else
101: #define gsnesevaluaterhsoperator_ pgsnesevaluaterhsoperator_
102: #endif
103: #else
104: #ifdef PETSC_HAVE_FORTRAN_CAPS
105: #define gsnesevaluaterhsoperator_ GSNESEVALUATERHSOPERATOR
106: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
107: #define gsnesevaluaterhsoperator_ gsnesevaluaterhsoperator
108: #endif
109: #endif
111: #ifdef MPI_BUILD_PROFILING
112: #ifdef PETSC_HAVE_FORTRAN_CAPS
113: #define gsnesevaluaterhslinearoperator_ PGSNESEVALUATERHSLINEAROPERATOR
114: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
115: #define gsnesevaluaterhslinearoperator_ pgsnesevaluaterhslinearoperator
116: #else
117: #define gsnesevaluaterhslinearoperator_ pgsnesevaluaterhslinearoperator_
118: #endif
119: #else
120: #ifdef PETSC_HAVE_FORTRAN_CAPS
121: #define gsnesevaluaterhslinearoperator_ GSNESEVALUATERHSLINEAROPERATOR
122: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
123: #define gsnesevaluaterhslinearoperator_ gsnesevaluaterhslinearoperator
124: #endif
125: #endif
127: #ifdef MPI_BUILD_PROFILING
128: #ifdef PETSC_HAVE_FORTRAN_CAPS
129: #define gsnesevaluaterhsnonlinearoperator_ PGSNESEVALUATERHSNONLINEAROPERATOR
130: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
131: #define gsnesevaluaterhsnonlinearoperator_ pgsnesevaluaterhsnonlinearoperator
132: #else
133: #define gsnesevaluaterhsnonlinearoperator_ pgsnesevaluaterhsnonlinearoperator_
134: #endif
135: #else
136: #ifdef PETSC_HAVE_FORTRAN_CAPS
137: #define gsnesevaluaterhsnonlinearoperator_ GSNESEVALUATERHSNONLINEAROPERATOR
138: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
139: #define gsnesevaluaterhsnonlinearoperator_ gsnesevaluaterhsnonlinearoperator
140: #endif
141: #endif
143: #ifdef MPI_BUILD_PROFILING
144: #ifdef PETSC_HAVE_FORTRAN_CAPS
145: #define gsnesevaluatejacobian_ PGSNESEVALUATEJACOBIAN
146: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
147: #define gsnesevaluatejacobian_ pgsnesevaluatejacobian
148: #else
149: #define gsnesevaluatejacobian_ pgsnesevaluatejacobian_
150: #endif
151: #else
152: #ifdef PETSC_HAVE_FORTRAN_CAPS
153: #define gsnesevaluatejacobian_ GSNESEVALUATEJACOBIAN
154: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
155: #define gsnesevaluatejacobian_ gsnesevaluatejacobian
156: #endif
157: #endif
159: #ifdef MPI_BUILD_PROFILING
160: #ifdef PETSC_HAVE_FORTRAN_CAPS
161: #define gsnesevaluatejacobianmf_ PGSNESEVALUATEJACOBIANMF
162: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
163: #define gsnesevaluatejacobianmf_ pgsnesevaluatejacobianmf
164: #else
165: #define gsnesevaluatejacobianmf_ pgsnesevaluatejacobianmf_
166: #endif
167: #else
168: #ifdef PETSC_HAVE_FORTRAN_CAPS
169: #define gsnesevaluatejacobianmf_ GSNESEVALUATEJACOBIANMF
170: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
171: #define gsnesevaluatejacobianmf_ gsnesevaluatejacobianmf
172: #endif
173: #endif
175: #ifdef MPI_BUILD_PROFILING
176: #ifdef PETSC_HAVE_FORTRAN_CAPS
177: #define gsnesrhsbc_ PGSNESRHSBC
178: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
179: #define gsnesrhsbc_ pgsnesrhsbc
180: #else
181: #define gsnesrhsbc_ pgsnesrhsbc_
182: #endif
183: #else
184: #ifdef PETSC_HAVE_FORTRAN_CAPS
185: #define gsnesrhsbc_ GSNESRHSBC
186: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
187: #define gsnesrhsbc_ gsnesrhsbc
188: #endif
189: #endif
191: #ifdef MPI_BUILD_PROFILING
192: #ifdef PETSC_HAVE_FORTRAN_CAPS
193: #define gsnessolutionbc_ PGSNESSOLUTIONBC
194: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
195: #define gsnessolutionbc_ pgsnessolutionbc
196: #else
197: #define gsnessolutionbc_ pgsnessolutionbc_
198: #endif
199: #else
200: #ifdef PETSC_HAVE_FORTRAN_CAPS
201: #define gsnessolutionbc_ GSNESSOLUTIONBC
202: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
203: #define gsnessolutionbc_ gsnessolutionbc
204: #endif
205: #endif
207: #ifdef MPI_BUILD_PROFILING
208: #ifdef PETSC_HAVE_FORTRAN_CAPS
209: #define gsnesupdate_ PGSNESUPDATE
210: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
211: #define gsnesupdate_ pgsnesupdate
212: #else
213: #define gsnesupdate_ pgsnesupdate_
214: #endif
215: #else
216: #ifdef PETSC_HAVE_FORTRAN_CAPS
217: #define gsnesupdate_ GSNESUPDATE
218: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
219: #define gsnesupdate_ gsnesupdate
220: #endif
221: #endif
223: #ifdef MPI_BUILD_PROFILING
224: #ifdef PETSC_HAVE_FORTRAN_CAPS
225: #define gsnescreate_ PGSNESCREATE
226: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
227: #define gsnescreate_ pgsnescreate
228: #else
229: #define gsnescreate_ pgsnescreate_
230: #endif
231: #else
232: #ifdef PETSC_HAVE_FORTRAN_CAPS
233: #define gsnescreate_ GSNESCREATE
234: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
235: #define gsnescreate_ gsnescreate
236: #endif
237: #endif
239: #ifdef MPI_BUILD_PROFILING
240: #ifdef PETSC_HAVE_FORTRAN_CAPS
241: #define gsnessolutionmonitor_ PGSNESSOLUTIONMONITOR
242: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
243: #define gsnessolutionmonitor_ pgsnessolutionmonitor
244: #else
245: #define gsnessolutionmonitor_ pgsnessolutionmonitor_
246: #endif
247: #else
248: #ifdef PETSC_HAVE_FORTRAN_CAPS
249: #define gsnessolutionmonitor_ GSNESSOLUTIONMONITOR
250: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
251: #define gsnessolutionmonitor_ gsnessolutionmonitor
252: #endif
253: #endif
255: #ifdef MPI_BUILD_PROFILING
256: #ifdef PETSC_HAVE_FORTRAN_CAPS
257: #define gsnesresidualmonitor_ PGSNESRESIDUALMONITOR
258: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
259: #define gsnesresidualmonitor_ pgsnesresidualmonitor
260: #else
261: #define gsnesresidualmonitor_ pgsnesresidualmonitor_
262: #endif
263: #else
264: #ifdef PETSC_HAVE_FORTRAN_CAPS
265: #define gsnesresidualmonitor_ GSNESRESIDUALMONITOR
266: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
267: #define gsnesresidualmonitor_ gsnesresidualmonitor
268: #endif
269: #endif
271: #ifdef MPI_BUILD_PROFILING
272: #ifdef PETSC_HAVE_FORTRAN_CAPS
273: #define gsneserrormonitor_ PGSNESERRORMONITOR
274: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
275: #define gsneserrormonitor_ pgsneserrormonitor
276: #else
277: #define gsneserrormonitor_ pgsneserrormonitor_
278: #endif
279: #else
280: #ifdef PETSC_HAVE_FORTRAN_CAPS
281: #define gsneserrormonitor_ GSNESERRORMONITOR
282: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
283: #define gsneserrormonitor_ gsneserrormonitor
284: #endif
285: #endif
289: /* Definitions of Fortran Wrapper routines */
290: #if defined(__cplusplus)
291: extern "C" {
292: #endif
293: void PETSC_STDCALL gsnesview_(GSNES snes,PetscViewer *viewer, int *ierr ){
294: *GSNESView(
295: (GSNES)PetscToPointer( (snes) ),*viewer);
296: }
297: void PETSC_STDCALL gsnesgetgrid_(GSNES snes,Grid *grid, int *ierr ){
298: *GSNESGetGrid(
299: (GSNES)PetscToPointer( (snes) ),grid);
300: }
301: void PETSC_STDCALL gsnesevaluaterhs_(GSNES snes,GVec x,GVec f,PetscObject ctx, int *ierr ){
302: *GSNESEvaluateRhs(
303: (GSNES)PetscToPointer( (snes) ),
304: (GVec)PetscToPointer( (x) ),
305: (GVec)PetscToPointer( (f) ),
306: (PetscObject)PetscToPointer( (ctx) ));
307: }
308: void PETSC_STDCALL gsnesevaluaterhsfunction_(GSNES snes,GVec x,GVec f,void*ctx, int *ierr ){
309: *GSNESEvaluateRhsFunction(
310: (GSNES)PetscToPointer( (snes) ),
311: (GVec)PetscToPointer( (x) ),
312: (GVec)PetscToPointer( (f) ),ctx);
313: }
314: void PETSC_STDCALL gsnesevaluaterhsoperator_(GSNES snes,GVec x,GVec f,void*ctx, int *ierr ){
315: *GSNESEvaluateRhsOperator(
316: (GSNES)PetscToPointer( (snes) ),
317: (GVec)PetscToPointer( (x) ),
318: (GVec)PetscToPointer( (f) ),ctx);
319: }
320: void PETSC_STDCALL gsnesevaluaterhslinearoperator_(GSNES snes,GVec x,GVec f,void*ctx, int *ierr ){
321: *GSNESEvaluateRhsLinearOperator(
322: (GSNES)PetscToPointer( (snes) ),
323: (GVec)PetscToPointer( (x) ),
324: (GVec)PetscToPointer( (f) ),ctx);
325: }
326: void PETSC_STDCALL gsnesevaluaterhsnonlinearoperator_(GSNES snes,int *n,GVec vecs[],GVec f,void*ctx, int *ierr ){
327: *GSNESEvaluateRhsNonlinearOperator(
328: (GSNES)PetscToPointer( (snes) ),*n,vecs,
329: (GVec)PetscToPointer( (f) ),ctx);
330: }
331: void PETSC_STDCALL gsnesevaluatejacobian_(GSNES snes,GVec x,GMat *J,GMat *M,MatStructure *flag,PetscObject ctx, int *ierr ){
332: *GSNESEvaluateJacobian(
333: (GSNES)PetscToPointer( (snes) ),
334: (GVec)PetscToPointer( (x) ),J,M,
335: (MatStructure* )PetscToPointer( (flag) ),
336: (PetscObject)PetscToPointer( (ctx) ));
337: }
338: void PETSC_STDCALL gsnesevaluatejacobianmf_(GSNES snes,GVec x,GVec y,GVec f,void*ctx, int *ierr ){
339: *GSNESEvaluateJacobianMF(
340: (GSNES)PetscToPointer( (snes) ),
341: (GVec)PetscToPointer( (x) ),
342: (GVec)PetscToPointer( (y) ),
343: (GVec)PetscToPointer( (f) ),ctx);
344: }
345: void PETSC_STDCALL gsnesrhsbc_(GSNES snes,GVec rhs,void*ctx, int *ierr ){
346: *GSNESRhsBC(
347: (GSNES)PetscToPointer( (snes) ),
348: (GVec)PetscToPointer( (rhs) ),ctx);
349: }
350: void PETSC_STDCALL gsnessolutionbc_(GSNES snes,GVec sol,void*ctx, int *ierr ){
351: *GSNESSolutionBC(
352: (GSNES)PetscToPointer( (snes) ),
353: (GVec)PetscToPointer( (sol) ),ctx);
354: }
355: void PETSC_STDCALL gsnesupdate_(GSNES snes,int *step, int *ierr ){
356: *GSNESUpdate(
357: (GSNES)PetscToPointer( (snes) ),*step);
358: }
359: void PETSC_STDCALL gsnescreate_(Grid grid,void*ctx,GSNES *snes, int *ierr ){
360: *GSNESCreate(
361: (Grid)PetscToPointer( (grid) ),ctx,snes);
362: }
363: void PETSC_STDCALL gsnessolutionmonitor_(GSNES snes,int *it,PetscReal *rnorm,void*ctx, int *ierr ){
364: *GSNESSolutionMonitor(
365: (GSNES)PetscToPointer( (snes) ),*it,*rnorm,ctx);
366: }
367: void PETSC_STDCALL gsnesresidualmonitor_(GSNES snes,int *it,PetscReal *rnorm,void*ctx, int *ierr ){
368: *GSNESResidualMonitor(
369: (GSNES)PetscToPointer( (snes) ),*it,*rnorm,ctx);
370: }
371: void PETSC_STDCALL gsneserrormonitor_(GSNES snes,int *it,PetscReal *rnorm,void*monCtx, int *ierr ){
372: *GSNESErrorMonitor(
373: (GSNES)PetscToPointer( (snes) ),*it,*rnorm,monCtx);
374: }
375: #if defined(__cplusplus)
376: }
377: #endif