Actual source code: gtsf.c
1: /* gts.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 petscts.h
29: #include "petscfix.h"
30: #include gsolver.h
31: #ifdef MPI_BUILD_PROFILING
32: #ifdef PETSC_HAVE_FORTRAN_CAPS
33: #define gtsview_ PGTSVIEW
34: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
35: #define gtsview_ pgtsview
36: #else
37: #define gtsview_ pgtsview_
38: #endif
39: #else
40: #ifdef PETSC_HAVE_FORTRAN_CAPS
41: #define gtsview_ GTSVIEW
42: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
43: #define gtsview_ gtsview
44: #endif
45: #endif
47: #ifdef MPI_BUILD_PROFILING
48: #ifdef PETSC_HAVE_FORTRAN_CAPS
49: #define gtsserialize_ PGTSSERIALIZE
50: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
51: #define gtsserialize_ pgtsserialize
52: #else
53: #define gtsserialize_ pgtsserialize_
54: #endif
55: #else
56: #ifdef PETSC_HAVE_FORTRAN_CAPS
57: #define gtsserialize_ GTSSERIALIZE
58: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
59: #define gtsserialize_ gtsserialize
60: #endif
61: #endif
63: #ifdef MPI_BUILD_PROFILING
64: #ifdef PETSC_HAVE_FORTRAN_CAPS
65: #define gtsgetgrid_ PGTSGETGRID
66: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
67: #define gtsgetgrid_ pgtsgetgrid
68: #else
69: #define gtsgetgrid_ pgtsgetgrid_
70: #endif
71: #else
72: #ifdef PETSC_HAVE_FORTRAN_CAPS
73: #define gtsgetgrid_ GTSGETGRID
74: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
75: #define gtsgetgrid_ gtsgetgrid
76: #endif
77: #endif
79: #ifdef MPI_BUILD_PROFILING
80: #ifdef PETSC_HAVE_FORTRAN_CAPS
81: #define gtsgetinitialtimestep_ PGTSGETINITIALTIMESTEP
82: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
83: #define gtsgetinitialtimestep_ pgtsgetinitialtimestep
84: #else
85: #define gtsgetinitialtimestep_ pgtsgetinitialtimestep_
86: #endif
87: #else
88: #ifdef PETSC_HAVE_FORTRAN_CAPS
89: #define gtsgetinitialtimestep_ GTSGETINITIALTIMESTEP
90: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
91: #define gtsgetinitialtimestep_ gtsgetinitialtimestep
92: #endif
93: #endif
95: #ifdef MPI_BUILD_PROFILING
96: #ifdef PETSC_HAVE_FORTRAN_CAPS
97: #define gtsgettimedependence_ PGTSGETTIMEDEPENDENCE
98: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
99: #define gtsgettimedependence_ pgtsgettimedependence
100: #else
101: #define gtsgettimedependence_ pgtsgettimedependence_
102: #endif
103: #else
104: #ifdef PETSC_HAVE_FORTRAN_CAPS
105: #define gtsgettimedependence_ GTSGETTIMEDEPENDENCE
106: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
107: #define gtsgettimedependence_ gtsgettimedependence
108: #endif
109: #endif
111: #ifdef MPI_BUILD_PROFILING
112: #ifdef PETSC_HAVE_FORTRAN_CAPS
113: #define gtssetcontext_ PGTSSETCONTEXT
114: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
115: #define gtssetcontext_ pgtssetcontext
116: #else
117: #define gtssetcontext_ pgtssetcontext_
118: #endif
119: #else
120: #ifdef PETSC_HAVE_FORTRAN_CAPS
121: #define gtssetcontext_ GTSSETCONTEXT
122: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
123: #define gtssetcontext_ gtssetcontext
124: #endif
125: #endif
127: #ifdef MPI_BUILD_PROFILING
128: #ifdef PETSC_HAVE_FORTRAN_CAPS
129: #define gtssettimedependence_ PGTSSETTIMEDEPENDENCE
130: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
131: #define gtssettimedependence_ pgtssettimedependence
132: #else
133: #define gtssettimedependence_ pgtssettimedependence_
134: #endif
135: #else
136: #ifdef PETSC_HAVE_FORTRAN_CAPS
137: #define gtssettimedependence_ GTSSETTIMEDEPENDENCE
138: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
139: #define gtssettimedependence_ gtssettimedependence
140: #endif
141: #endif
143: #ifdef MPI_BUILD_PROFILING
144: #ifdef PETSC_HAVE_FORTRAN_CAPS
145: #define gtsevaluaterhs_ PGTSEVALUATERHS
146: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
147: #define gtsevaluaterhs_ pgtsevaluaterhs
148: #else
149: #define gtsevaluaterhs_ pgtsevaluaterhs_
150: #endif
151: #else
152: #ifdef PETSC_HAVE_FORTRAN_CAPS
153: #define gtsevaluaterhs_ GTSEVALUATERHS
154: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
155: #define gtsevaluaterhs_ gtsevaluaterhs
156: #endif
157: #endif
159: #ifdef MPI_BUILD_PROFILING
160: #ifdef PETSC_HAVE_FORTRAN_CAPS
161: #define gtsevaluatejacobian_ PGTSEVALUATEJACOBIAN
162: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
163: #define gtsevaluatejacobian_ pgtsevaluatejacobian
164: #else
165: #define gtsevaluatejacobian_ pgtsevaluatejacobian_
166: #endif
167: #else
168: #ifdef PETSC_HAVE_FORTRAN_CAPS
169: #define gtsevaluatejacobian_ GTSEVALUATEJACOBIAN
170: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
171: #define gtsevaluatejacobian_ gtsevaluatejacobian
172: #endif
173: #endif
175: #ifdef MPI_BUILD_PROFILING
176: #ifdef PETSC_HAVE_FORTRAN_CAPS
177: #define gtsevaluatesystemmatrix_ PGTSEVALUATESYSTEMMATRIX
178: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
179: #define gtsevaluatesystemmatrix_ pgtsevaluatesystemmatrix
180: #else
181: #define gtsevaluatesystemmatrix_ pgtsevaluatesystemmatrix_
182: #endif
183: #else
184: #ifdef PETSC_HAVE_FORTRAN_CAPS
185: #define gtsevaluatesystemmatrix_ GTSEVALUATESYSTEMMATRIX
186: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
187: #define gtsevaluatesystemmatrix_ gtsevaluatesystemmatrix
188: #endif
189: #endif
191: #ifdef MPI_BUILD_PROFILING
192: #ifdef PETSC_HAVE_FORTRAN_CAPS
193: #define gtscalcbcvalues_ PGTSCALCBCVALUES
194: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
195: #define gtscalcbcvalues_ pgtscalcbcvalues
196: #else
197: #define gtscalcbcvalues_ pgtscalcbcvalues_
198: #endif
199: #else
200: #ifdef PETSC_HAVE_FORTRAN_CAPS
201: #define gtscalcbcvalues_ GTSCALCBCVALUES
202: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
203: #define gtscalcbcvalues_ gtscalcbcvalues
204: #endif
205: #endif
207: #ifdef MPI_BUILD_PROFILING
208: #ifdef PETSC_HAVE_FORTRAN_CAPS
209: #define gtsrhsbc_ PGTSRHSBC
210: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
211: #define gtsrhsbc_ pgtsrhsbc
212: #else
213: #define gtsrhsbc_ pgtsrhsbc_
214: #endif
215: #else
216: #ifdef PETSC_HAVE_FORTRAN_CAPS
217: #define gtsrhsbc_ GTSRHSBC
218: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
219: #define gtsrhsbc_ gtsrhsbc
220: #endif
221: #endif
223: #ifdef MPI_BUILD_PROFILING
224: #ifdef PETSC_HAVE_FORTRAN_CAPS
225: #define gtssolutionbc_ PGTSSOLUTIONBC
226: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
227: #define gtssolutionbc_ pgtssolutionbc
228: #else
229: #define gtssolutionbc_ pgtssolutionbc_
230: #endif
231: #else
232: #ifdef PETSC_HAVE_FORTRAN_CAPS
233: #define gtssolutionbc_ GTSSOLUTIONBC
234: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
235: #define gtssolutionbc_ gtssolutionbc
236: #endif
237: #endif
239: #ifdef MPI_BUILD_PROFILING
240: #ifdef PETSC_HAVE_FORTRAN_CAPS
241: #define gtssolutionbcforgsnes_ PGTSSOLUTIONBCFORGSNES
242: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
243: #define gtssolutionbcforgsnes_ pgtssolutionbcforgsnes
244: #else
245: #define gtssolutionbcforgsnes_ pgtssolutionbcforgsnes_
246: #endif
247: #else
248: #ifdef PETSC_HAVE_FORTRAN_CAPS
249: #define gtssolutionbcforgsnes_ GTSSOLUTIONBCFORGSNES
250: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
251: #define gtssolutionbcforgsnes_ gtssolutionbcforgsnes
252: #endif
253: #endif
255: #ifdef MPI_BUILD_PROFILING
256: #ifdef PETSC_HAVE_FORTRAN_CAPS
257: #define gtsprestep_ PGTSPRESTEP
258: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
259: #define gtsprestep_ pgtsprestep
260: #else
261: #define gtsprestep_ pgtsprestep_
262: #endif
263: #else
264: #ifdef PETSC_HAVE_FORTRAN_CAPS
265: #define gtsprestep_ GTSPRESTEP
266: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
267: #define gtsprestep_ gtsprestep
268: #endif
269: #endif
271: #ifdef MPI_BUILD_PROFILING
272: #ifdef PETSC_HAVE_FORTRAN_CAPS
273: #define gtsupdate_ PGTSUPDATE
274: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
275: #define gtsupdate_ pgtsupdate
276: #else
277: #define gtsupdate_ pgtsupdate_
278: #endif
279: #else
280: #ifdef PETSC_HAVE_FORTRAN_CAPS
281: #define gtsupdate_ GTSUPDATE
282: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
283: #define gtsupdate_ gtsupdate
284: #endif
285: #endif
287: #ifdef MPI_BUILD_PROFILING
288: #ifdef PETSC_HAVE_FORTRAN_CAPS
289: #define gtspoststep_ PGTSPOSTSTEP
290: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
291: #define gtspoststep_ pgtspoststep
292: #else
293: #define gtspoststep_ pgtspoststep_
294: #endif
295: #else
296: #ifdef PETSC_HAVE_FORTRAN_CAPS
297: #define gtspoststep_ GTSPOSTSTEP
298: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
299: #define gtspoststep_ gtspoststep
300: #endif
301: #endif
303: #ifdef MPI_BUILD_PROFILING
304: #ifdef PETSC_HAVE_FORTRAN_CAPS
305: #define gtscreate_ PGTSCREATE
306: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
307: #define gtscreate_ pgtscreate
308: #else
309: #define gtscreate_ pgtscreate_
310: #endif
311: #else
312: #ifdef PETSC_HAVE_FORTRAN_CAPS
313: #define gtscreate_ GTSCREATE
314: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
315: #define gtscreate_ gtscreate
316: #endif
317: #endif
319: #ifdef MPI_BUILD_PROFILING
320: #ifdef PETSC_HAVE_FORTRAN_CAPS
321: #define gtssolutionmonitor_ PGTSSOLUTIONMONITOR
322: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
323: #define gtssolutionmonitor_ pgtssolutionmonitor
324: #else
325: #define gtssolutionmonitor_ pgtssolutionmonitor_
326: #endif
327: #else
328: #ifdef PETSC_HAVE_FORTRAN_CAPS
329: #define gtssolutionmonitor_ GTSSOLUTIONMONITOR
330: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
331: #define gtssolutionmonitor_ gtssolutionmonitor
332: #endif
333: #endif
335: #ifdef MPI_BUILD_PROFILING
336: #ifdef PETSC_HAVE_FORTRAN_CAPS
337: #define gtserrormonitor_ PGTSERRORMONITOR
338: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
339: #define gtserrormonitor_ pgtserrormonitor
340: #else
341: #define gtserrormonitor_ pgtserrormonitor_
342: #endif
343: #else
344: #ifdef PETSC_HAVE_FORTRAN_CAPS
345: #define gtserrormonitor_ GTSERRORMONITOR
346: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
347: #define gtserrormonitor_ gtserrormonitor
348: #endif
349: #endif
351: #ifdef MPI_BUILD_PROFILING
352: #ifdef PETSC_HAVE_FORTRAN_CAPS
353: #define gtscreatecontext_ PGTSCREATECONTEXT
354: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
355: #define gtscreatecontext_ pgtscreatecontext
356: #else
357: #define gtscreatecontext_ pgtscreatecontext_
358: #endif
359: #else
360: #ifdef PETSC_HAVE_FORTRAN_CAPS
361: #define gtscreatecontext_ GTSCREATECONTEXT
362: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
363: #define gtscreatecontext_ gtscreatecontext
364: #endif
365: #endif
367: #ifdef MPI_BUILD_PROFILING
368: #ifdef PETSC_HAVE_FORTRAN_CAPS
369: #define gtsdestroycontext_ PGTSDESTROYCONTEXT
370: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
371: #define gtsdestroycontext_ pgtsdestroycontext
372: #else
373: #define gtsdestroycontext_ pgtsdestroycontext_
374: #endif
375: #else
376: #ifdef PETSC_HAVE_FORTRAN_CAPS
377: #define gtsdestroycontext_ GTSDESTROYCONTEXT
378: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
379: #define gtsdestroycontext_ gtsdestroycontext
380: #endif
381: #endif
383: #ifdef MPI_BUILD_PROFILING
384: #ifdef PETSC_HAVE_FORTRAN_CAPS
385: #define gtscreateconstraintcontext_ PGTSCREATECONSTRAINTCONTEXT
386: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
387: #define gtscreateconstraintcontext_ pgtscreateconstraintcontext
388: #else
389: #define gtscreateconstraintcontext_ pgtscreateconstraintcontext_
390: #endif
391: #else
392: #ifdef PETSC_HAVE_FORTRAN_CAPS
393: #define gtscreateconstraintcontext_ GTSCREATECONSTRAINTCONTEXT
394: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
395: #define gtscreateconstraintcontext_ gtscreateconstraintcontext
396: #endif
397: #endif
401: /* Definitions of Fortran Wrapper routines */
402: #if defined(__cplusplus)
403: extern "C" {
404: #endif
405: void PETSC_STDCALL gtsview_(GTS ts,PetscViewer *viewer, int *ierr ){
406: *GTSView(
407: (GTS)PetscToPointer( (ts) ),*viewer);
408: }
409: void PETSC_STDCALL gtsserialize_(Grid grid,GTS *ts,PetscViewer *viewer,PetscTruth *store, int *ierr ){
410: *GTSSerialize(
411: (Grid)PetscToPointer( (grid) ),ts,*viewer,*store);
412: }
413: void PETSC_STDCALL gtsgetgrid_(GTS ts,Grid *grid, int *ierr ){
414: *GTSGetGrid(
415: (GTS)PetscToPointer( (ts) ),grid);
416: }
417: void PETSC_STDCALL gtsgetinitialtimestep_(GTS ts,double *dt, int *ierr ){
418: *GTSGetInitialTimeStep(
419: (GTS)PetscToPointer( (ts) ),dt);
420: }
421: void PETSC_STDCALL gtsgettimedependence_(GTS ts,int *field,PetscTruth *flag, int *ierr ){
422: *GTSGetTimeDependence(
423: (GTS)PetscToPointer( (ts) ),*field,flag);
424: }
425: void PETSC_STDCALL gtssetcontext_(GTS ts,void*ctx, int *ierr ){
426: *GTSSetContext(
427: (GTS)PetscToPointer( (ts) ),ctx);
428: }
429: void PETSC_STDCALL gtssettimedependence_(GTS ts,int *field,PetscTruth *flag, int *ierr ){
430: *GTSSetTimeDependence(
431: (GTS)PetscToPointer( (ts) ),*field,*flag);
432: }
433: void PETSC_STDCALL gtsevaluaterhs_(GTS ts,double *t,GVec x,GVec f,PetscObject ctx, int *ierr ){
434: *GTSEvaluateRhs(
435: (GTS)PetscToPointer( (ts) ),*t,
436: (GVec)PetscToPointer( (x) ),
437: (GVec)PetscToPointer( (f) ),
438: (PetscObject)PetscToPointer( (ctx) ));
439: }
440: void PETSC_STDCALL gtsevaluatejacobian_(GTS ts,double *t,GVec x,GMat *J,GMat *M,MatStructure *flag,PetscObject ctx, int *ierr ){
441: *GTSEvaluateJacobian(
442: (GTS)PetscToPointer( (ts) ),*t,
443: (GVec)PetscToPointer( (x) ),J,M,
444: (MatStructure* )PetscToPointer( (flag) ),
445: (PetscObject)PetscToPointer( (ctx) ));
446: }
447: void PETSC_STDCALL gtsevaluatesystemmatrix_(GTS ts,double *t,GMat *A,GMat *M,MatStructure *flag,PetscObject ctx, int *ierr ){
448: *GTSEvaluateSystemMatrix(
449: (GTS)PetscToPointer( (ts) ),*t,A,M,
450: (MatStructure* )PetscToPointer( (flag) ),
451: (PetscObject)PetscToPointer( (ctx) ));
452: }
453: void PETSC_STDCALL gtscalcbcvalues_(GTS ts, int *ierr ){
454: *GTSCalcBCValues(
455: (GTS)PetscToPointer( (ts) ));
456: }
457: void PETSC_STDCALL gtsrhsbc_(GTS ts,GVec rhs,void*ctx, int *ierr ){
458: *GTSRhsBC(
459: (GTS)PetscToPointer( (ts) ),
460: (GVec)PetscToPointer( (rhs) ),ctx);
461: }
462: void PETSC_STDCALL gtssolutionbc_(GTS ts,GVec sol,void*ctx, int *ierr ){
463: *GTSSolutionBC(
464: (GTS)PetscToPointer( (ts) ),
465: (GVec)PetscToPointer( (sol) ),ctx);
466: }
467: void PETSC_STDCALL gtssolutionbcforgsnes_(GSNES snes,GVec sol,void*ctx, int *ierr ){
468: *GTSSolutionBCforGSNES(
469: (GSNES)PetscToPointer( (snes) ),
470: (GVec)PetscToPointer( (sol) ),ctx);
471: }
472: void PETSC_STDCALL gtsprestep_(GTS ts, int *ierr ){
473: *GTSPreStep(
474: (GTS)PetscToPointer( (ts) ));
475: }
476: void PETSC_STDCALL gtsupdate_(GTS ts,PetscReal *t,PetscReal *dt, int *ierr ){
477: *GTSUpdate(
478: (GTS)PetscToPointer( (ts) ),*t,dt);
479: }
480: void PETSC_STDCALL gtspoststep_(GTS ts, int *ierr ){
481: *GTSPostStep(
482: (GTS)PetscToPointer( (ts) ));
483: }
484: void PETSC_STDCALL gtscreate_(Grid grid,void*ctx,GTS *ts, int *ierr ){
485: *GTSCreate(
486: (Grid)PetscToPointer( (grid) ),ctx,ts);
487: }
488: void PETSC_STDCALL gtssolutionmonitor_(GTS ts,int *step,PetscReal *ltime,GVec sol,void*ctx, int *ierr ){
489: *GTSSolutionMonitor(
490: (GTS)PetscToPointer( (ts) ),*step,*ltime,
491: (GVec)PetscToPointer( (sol) ),ctx);
492: }
493: void PETSC_STDCALL gtserrormonitor_(GTS ts,int *step,PetscReal *ltime,GVec sol,void*monCtx, int *ierr ){
494: *GTSErrorMonitor(
495: (GTS)PetscToPointer( (ts) ),*step,*ltime,
496: (GVec)PetscToPointer( (sol) ),monCtx);
497: }
498: void PETSC_STDCALL gtscreatecontext_(GTS ts,double *ltime,PetscObject ctx,PetscObject *oldCtx, int *ierr ){
499: *GTSCreateContext(
500: (GTS)PetscToPointer( (ts) ),*ltime,
501: (PetscObject)PetscToPointer( (ctx) ),oldCtx);
502: }
503: void PETSC_STDCALL gtsdestroycontext_(GTS ts,PetscObject ctx,PetscObject oldCtx, int *ierr ){
504: *GTSDestroyContext(
505: (GTS)PetscToPointer( (ts) ),
506: (PetscObject)PetscToPointer( (ctx) ),
507: (PetscObject)PetscToPointer( (oldCtx) ));
508: }
509: void PETSC_STDCALL gtscreateconstraintcontext_(GTS ts, int *ierr ){
510: *GTSCreateConstraintContext(
511: (GTS)PetscToPointer( (ts) ));
512: }
513: #if defined(__cplusplus)
514: }
515: #endif