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