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