Actual source code: tsf.c
1: /* ts.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: #ifdef MPI_BUILD_PROFILING
30: #ifdef PETSC_HAVE_FORTRAN_CAPS
31: #define tssetfromoptions_ PTSSETFROMOPTIONS
32: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
33: #define tssetfromoptions_ ptssetfromoptions
34: #else
35: #define tssetfromoptions_ ptssetfromoptions_
36: #endif
37: #else
38: #ifdef PETSC_HAVE_FORTRAN_CAPS
39: #define tssetfromoptions_ TSSETFROMOPTIONS
40: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
41: #define tssetfromoptions_ tssetfromoptions
42: #endif
43: #endif
45: #ifdef MPI_BUILD_PROFILING
46: #ifdef PETSC_HAVE_FORTRAN_CAPS
47: #define tsviewfromoptions_ PTSVIEWFROMOPTIONS
48: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
49: #define tsviewfromoptions_ ptsviewfromoptions
50: #else
51: #define tsviewfromoptions_ ptsviewfromoptions_
52: #endif
53: #else
54: #ifdef PETSC_HAVE_FORTRAN_CAPS
55: #define tsviewfromoptions_ TSVIEWFROMOPTIONS
56: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
57: #define tsviewfromoptions_ tsviewfromoptions
58: #endif
59: #endif
61: #ifdef MPI_BUILD_PROFILING
62: #ifdef PETSC_HAVE_FORTRAN_CAPS
63: #define tscomputerhsjacobian_ PTSCOMPUTERHSJACOBIAN
64: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
65: #define tscomputerhsjacobian_ ptscomputerhsjacobian
66: #else
67: #define tscomputerhsjacobian_ ptscomputerhsjacobian_
68: #endif
69: #else
70: #ifdef PETSC_HAVE_FORTRAN_CAPS
71: #define tscomputerhsjacobian_ TSCOMPUTERHSJACOBIAN
72: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
73: #define tscomputerhsjacobian_ tscomputerhsjacobian
74: #endif
75: #endif
77: #ifdef MPI_BUILD_PROFILING
78: #ifdef PETSC_HAVE_FORTRAN_CAPS
79: #define tsgettimestepnumber_ PTSGETTIMESTEPNUMBER
80: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
81: #define tsgettimestepnumber_ ptsgettimestepnumber
82: #else
83: #define tsgettimestepnumber_ ptsgettimestepnumber_
84: #endif
85: #else
86: #ifdef PETSC_HAVE_FORTRAN_CAPS
87: #define tsgettimestepnumber_ TSGETTIMESTEPNUMBER
88: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
89: #define tsgettimestepnumber_ tsgettimestepnumber
90: #endif
91: #endif
93: #ifdef MPI_BUILD_PROFILING
94: #ifdef PETSC_HAVE_FORTRAN_CAPS
95: #define tssetinitialtimestep_ PTSSETINITIALTIMESTEP
96: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
97: #define tssetinitialtimestep_ ptssetinitialtimestep
98: #else
99: #define tssetinitialtimestep_ ptssetinitialtimestep_
100: #endif
101: #else
102: #ifdef PETSC_HAVE_FORTRAN_CAPS
103: #define tssetinitialtimestep_ TSSETINITIALTIMESTEP
104: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
105: #define tssetinitialtimestep_ tssetinitialtimestep
106: #endif
107: #endif
109: #ifdef MPI_BUILD_PROFILING
110: #ifdef PETSC_HAVE_FORTRAN_CAPS
111: #define tssettimestep_ PTSSETTIMESTEP
112: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
113: #define tssettimestep_ ptssettimestep
114: #else
115: #define tssettimestep_ ptssettimestep_
116: #endif
117: #else
118: #ifdef PETSC_HAVE_FORTRAN_CAPS
119: #define tssettimestep_ TSSETTIMESTEP
120: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
121: #define tssettimestep_ tssettimestep
122: #endif
123: #endif
125: #ifdef MPI_BUILD_PROFILING
126: #ifdef PETSC_HAVE_FORTRAN_CAPS
127: #define tsgettimestep_ PTSGETTIMESTEP
128: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
129: #define tsgettimestep_ ptsgettimestep
130: #else
131: #define tsgettimestep_ ptsgettimestep_
132: #endif
133: #else
134: #ifdef PETSC_HAVE_FORTRAN_CAPS
135: #define tsgettimestep_ TSGETTIMESTEP
136: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
137: #define tsgettimestep_ tsgettimestep
138: #endif
139: #endif
141: #ifdef MPI_BUILD_PROFILING
142: #ifdef PETSC_HAVE_FORTRAN_CAPS
143: #define tssetup_ PTSSETUP
144: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
145: #define tssetup_ ptssetup
146: #else
147: #define tssetup_ ptssetup_
148: #endif
149: #else
150: #ifdef PETSC_HAVE_FORTRAN_CAPS
151: #define tssetup_ TSSETUP
152: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
153: #define tssetup_ tssetup
154: #endif
155: #endif
157: #ifdef MPI_BUILD_PROFILING
158: #ifdef PETSC_HAVE_FORTRAN_CAPS
159: #define tssetduration_ PTSSETDURATION
160: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
161: #define tssetduration_ ptssetduration
162: #else
163: #define tssetduration_ ptssetduration_
164: #endif
165: #else
166: #ifdef PETSC_HAVE_FORTRAN_CAPS
167: #define tssetduration_ TSSETDURATION
168: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
169: #define tssetduration_ tssetduration
170: #endif
171: #endif
173: #ifdef MPI_BUILD_PROFILING
174: #ifdef PETSC_HAVE_FORTRAN_CAPS
175: #define tssetsolution_ PTSSETSOLUTION
176: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
177: #define tssetsolution_ ptssetsolution
178: #else
179: #define tssetsolution_ ptssetsolution_
180: #endif
181: #else
182: #ifdef PETSC_HAVE_FORTRAN_CAPS
183: #define tssetsolution_ TSSETSOLUTION
184: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
185: #define tssetsolution_ tssetsolution
186: #endif
187: #endif
189: #ifdef MPI_BUILD_PROFILING
190: #ifdef PETSC_HAVE_FORTRAN_CAPS
191: #define tssetrhsbc_ PTSSETRHSBC
192: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
193: #define tssetrhsbc_ ptssetrhsbc
194: #else
195: #define tssetrhsbc_ ptssetrhsbc_
196: #endif
197: #else
198: #ifdef PETSC_HAVE_FORTRAN_CAPS
199: #define tssetrhsbc_ TSSETRHSBC
200: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
201: #define tssetrhsbc_ tssetrhsbc
202: #endif
203: #endif
205: #ifdef MPI_BUILD_PROFILING
206: #ifdef PETSC_HAVE_FORTRAN_CAPS
207: #define tsdefaultrhsbc_ PTSDEFAULTRHSBC
208: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
209: #define tsdefaultrhsbc_ ptsdefaultrhsbc
210: #else
211: #define tsdefaultrhsbc_ ptsdefaultrhsbc_
212: #endif
213: #else
214: #ifdef PETSC_HAVE_FORTRAN_CAPS
215: #define tsdefaultrhsbc_ TSDEFAULTRHSBC
216: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
217: #define tsdefaultrhsbc_ tsdefaultrhsbc
218: #endif
219: #endif
221: #ifdef MPI_BUILD_PROFILING
222: #ifdef PETSC_HAVE_FORTRAN_CAPS
223: #define tssetsystemmatrixbc_ PTSSETSYSTEMMATRIXBC
224: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
225: #define tssetsystemmatrixbc_ ptssetsystemmatrixbc
226: #else
227: #define tssetsystemmatrixbc_ ptssetsystemmatrixbc_
228: #endif
229: #else
230: #ifdef PETSC_HAVE_FORTRAN_CAPS
231: #define tssetsystemmatrixbc_ TSSETSYSTEMMATRIXBC
232: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
233: #define tssetsystemmatrixbc_ tssetsystemmatrixbc
234: #endif
235: #endif
237: #ifdef MPI_BUILD_PROFILING
238: #ifdef PETSC_HAVE_FORTRAN_CAPS
239: #define tsdefaultsystemmatrixbc_ PTSDEFAULTSYSTEMMATRIXBC
240: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
241: #define tsdefaultsystemmatrixbc_ ptsdefaultsystemmatrixbc
242: #else
243: #define tsdefaultsystemmatrixbc_ ptsdefaultsystemmatrixbc_
244: #endif
245: #else
246: #ifdef PETSC_HAVE_FORTRAN_CAPS
247: #define tsdefaultsystemmatrixbc_ TSDEFAULTSYSTEMMATRIXBC
248: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
249: #define tsdefaultsystemmatrixbc_ tsdefaultsystemmatrixbc
250: #endif
251: #endif
253: #ifdef MPI_BUILD_PROFILING
254: #ifdef PETSC_HAVE_FORTRAN_CAPS
255: #define tssetsolutionbc_ PTSSETSOLUTIONBC
256: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
257: #define tssetsolutionbc_ ptssetsolutionbc
258: #else
259: #define tssetsolutionbc_ ptssetsolutionbc_
260: #endif
261: #else
262: #ifdef PETSC_HAVE_FORTRAN_CAPS
263: #define tssetsolutionbc_ TSSETSOLUTIONBC
264: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
265: #define tssetsolutionbc_ tssetsolutionbc
266: #endif
267: #endif
269: #ifdef MPI_BUILD_PROFILING
270: #ifdef PETSC_HAVE_FORTRAN_CAPS
271: #define tsdefaultsolutionbc_ PTSDEFAULTSOLUTIONBC
272: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
273: #define tsdefaultsolutionbc_ ptsdefaultsolutionbc
274: #else
275: #define tsdefaultsolutionbc_ ptsdefaultsolutionbc_
276: #endif
277: #else
278: #ifdef PETSC_HAVE_FORTRAN_CAPS
279: #define tsdefaultsolutionbc_ TSDEFAULTSOLUTIONBC
280: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
281: #define tsdefaultsolutionbc_ tsdefaultsolutionbc
282: #endif
283: #endif
285: #ifdef MPI_BUILD_PROFILING
286: #ifdef PETSC_HAVE_FORTRAN_CAPS
287: #define tssetprestep_ PTSSETPRESTEP
288: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
289: #define tssetprestep_ ptssetprestep
290: #else
291: #define tssetprestep_ ptssetprestep_
292: #endif
293: #else
294: #ifdef PETSC_HAVE_FORTRAN_CAPS
295: #define tssetprestep_ TSSETPRESTEP
296: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
297: #define tssetprestep_ tssetprestep
298: #endif
299: #endif
301: #ifdef MPI_BUILD_PROFILING
302: #ifdef PETSC_HAVE_FORTRAN_CAPS
303: #define tsdefaultprestep_ PTSDEFAULTPRESTEP
304: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
305: #define tsdefaultprestep_ ptsdefaultprestep
306: #else
307: #define tsdefaultprestep_ ptsdefaultprestep_
308: #endif
309: #else
310: #ifdef PETSC_HAVE_FORTRAN_CAPS
311: #define tsdefaultprestep_ TSDEFAULTPRESTEP
312: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
313: #define tsdefaultprestep_ tsdefaultprestep
314: #endif
315: #endif
317: #ifdef MPI_BUILD_PROFILING
318: #ifdef PETSC_HAVE_FORTRAN_CAPS
319: #define tssetupdate_ PTSSETUPDATE
320: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
321: #define tssetupdate_ ptssetupdate
322: #else
323: #define tssetupdate_ ptssetupdate_
324: #endif
325: #else
326: #ifdef PETSC_HAVE_FORTRAN_CAPS
327: #define tssetupdate_ TSSETUPDATE
328: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
329: #define tssetupdate_ tssetupdate
330: #endif
331: #endif
333: #ifdef MPI_BUILD_PROFILING
334: #ifdef PETSC_HAVE_FORTRAN_CAPS
335: #define tsdefaultupdate_ PTSDEFAULTUPDATE
336: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
337: #define tsdefaultupdate_ ptsdefaultupdate
338: #else
339: #define tsdefaultupdate_ ptsdefaultupdate_
340: #endif
341: #else
342: #ifdef PETSC_HAVE_FORTRAN_CAPS
343: #define tsdefaultupdate_ TSDEFAULTUPDATE
344: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
345: #define tsdefaultupdate_ tsdefaultupdate
346: #endif
347: #endif
349: #ifdef MPI_BUILD_PROFILING
350: #ifdef PETSC_HAVE_FORTRAN_CAPS
351: #define tssetpoststep_ PTSSETPOSTSTEP
352: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
353: #define tssetpoststep_ ptssetpoststep
354: #else
355: #define tssetpoststep_ ptssetpoststep_
356: #endif
357: #else
358: #ifdef PETSC_HAVE_FORTRAN_CAPS
359: #define tssetpoststep_ TSSETPOSTSTEP
360: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
361: #define tssetpoststep_ tssetpoststep
362: #endif
363: #endif
365: #ifdef MPI_BUILD_PROFILING
366: #ifdef PETSC_HAVE_FORTRAN_CAPS
367: #define tsdefaultpoststep_ PTSDEFAULTPOSTSTEP
368: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
369: #define tsdefaultpoststep_ ptsdefaultpoststep
370: #else
371: #define tsdefaultpoststep_ ptsdefaultpoststep_
372: #endif
373: #else
374: #ifdef PETSC_HAVE_FORTRAN_CAPS
375: #define tsdefaultpoststep_ TSDEFAULTPOSTSTEP
376: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
377: #define tsdefaultpoststep_ tsdefaultpoststep
378: #endif
379: #endif
381: #ifdef MPI_BUILD_PROFILING
382: #ifdef PETSC_HAVE_FORTRAN_CAPS
383: #define tsstep_ PTSSTEP
384: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
385: #define tsstep_ ptsstep
386: #else
387: #define tsstep_ ptsstep_
388: #endif
389: #else
390: #ifdef PETSC_HAVE_FORTRAN_CAPS
391: #define tsstep_ TSSTEP
392: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
393: #define tsstep_ tsstep
394: #endif
395: #endif
397: #ifdef MPI_BUILD_PROFILING
398: #ifdef PETSC_HAVE_FORTRAN_CAPS
399: #define tsgettime_ PTSGETTIME
400: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
401: #define tsgettime_ ptsgettime
402: #else
403: #define tsgettime_ ptsgettime_
404: #endif
405: #else
406: #ifdef PETSC_HAVE_FORTRAN_CAPS
407: #define tsgettime_ TSGETTIME
408: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
409: #define tsgettime_ tsgettime
410: #endif
411: #endif
415: /* Definitions of Fortran Wrapper routines */
416: #if defined(__cplusplus)
417: extern "C" {
418: #endif
419: void PETSC_STDCALL tssetfromoptions_(TS ts, int *ierr ){
420: *TSSetFromOptions(
421: (TS)PetscToPointer( (ts) ));
422: }
423: void PETSC_STDCALL tsviewfromoptions_(TS ts,char *title, int *ierr ){
424: *TSViewFromOptions(
425: (TS)PetscToPointer( (ts) ),title);
426: }
427: void PETSC_STDCALL tscomputerhsjacobian_(TS ts,PetscReal *t,Vec X,Mat *A,Mat *B,MatStructure *flg, int *ierr ){
428: *TSComputeRHSJacobian(
429: (TS)PetscToPointer( (ts) ),*t,
430: (Vec)PetscToPointer( (X) ),A,B,
431: (MatStructure* )PetscToPointer( (flg) ));
432: }
433: void PETSC_STDCALL tsgettimestepnumber_(TS ts,int* iter, int *ierr ){
434: *TSGetTimeStepNumber(
435: (TS)PetscToPointer( (ts) ),iter);
436: }
437: void PETSC_STDCALL tssetinitialtimestep_(TS ts,PetscReal *initial_time,PetscReal *time_step, int *ierr ){
438: *TSSetInitialTimeStep(
439: (TS)PetscToPointer( (ts) ),*initial_time,*time_step);
440: }
441: void PETSC_STDCALL tssettimestep_(TS ts,PetscReal *time_step, int *ierr ){
442: *TSSetTimeStep(
443: (TS)PetscToPointer( (ts) ),*time_step);
444: }
445: void PETSC_STDCALL tsgettimestep_(TS ts,PetscReal* dt, int *ierr ){
446: *TSGetTimeStep(
447: (TS)PetscToPointer( (ts) ),dt);
448: }
449: void PETSC_STDCALL tssetup_(TS ts, int *ierr ){
450: *TSSetUp(
451: (TS)PetscToPointer( (ts) ));
452: }
453: void PETSC_STDCALL tssetduration_(TS ts,int *maxsteps,PetscReal *maxtime, int *ierr ){
454: *TSSetDuration(
455: (TS)PetscToPointer( (ts) ),*maxsteps,*maxtime);
456: }
457: void PETSC_STDCALL tssetsolution_(TS ts,Vec x, int *ierr ){
458: *TSSetSolution(
459: (TS)PetscToPointer( (ts) ),
460: (Vec)PetscToPointer( (x) ));
461: }
462: void PETSC_STDCALL tssetrhsbc_(TS ts,int (*func)(TS, Vec, void *), int *ierr ){
463: *TSSetRhsBC(
464: (TS)PetscToPointer( (ts) ),func);
465: }
466: void PETSC_STDCALL tsdefaultrhsbc_(TS ts,Vec rhs,void*ctx, int *ierr ){
467: *TSDefaultRhsBC(
468: (TS)PetscToPointer( (ts) ),
469: (Vec)PetscToPointer( (rhs) ),ctx);
470: }
471: void PETSC_STDCALL tssetsystemmatrixbc_(TS ts,int (*func)(TS, Mat, Mat, void *), int *ierr ){
472: *TSSetSystemMatrixBC(
473: (TS)PetscToPointer( (ts) ),func);
474: }
475: void PETSC_STDCALL tsdefaultsystemmatrixbc_(TS ts,Mat A,Mat B,void*ctx, int *ierr ){
476: *TSDefaultSystemMatrixBC(
477: (TS)PetscToPointer( (ts) ),
478: (Mat)PetscToPointer( (A) ),
479: (Mat)PetscToPointer( (B) ),ctx);
480: }
481: void PETSC_STDCALL tssetsolutionbc_(TS ts,int (*func)(TS, Vec, void *), int *ierr ){
482: *TSSetSolutionBC(
483: (TS)PetscToPointer( (ts) ),func);
484: }
485: void PETSC_STDCALL tsdefaultsolutionbc_(TS ts,Vec sol,void*ctx, int *ierr ){
486: *TSDefaultSolutionBC(
487: (TS)PetscToPointer( (ts) ),
488: (Vec)PetscToPointer( (sol) ),ctx);
489: }
490: void PETSC_STDCALL tssetprestep_(TS ts,int (*func)(TS), int *ierr ){
491: *TSSetPreStep(
492: (TS)PetscToPointer( (ts) ),func);
493: }
494: void PETSC_STDCALL tsdefaultprestep_(TS ts, int *ierr ){
495: *TSDefaultPreStep(
496: (TS)PetscToPointer( (ts) ));
497: }
498: void PETSC_STDCALL tssetupdate_(TS ts,int (*func)(TS, PetscReal, PetscReal *), int *ierr ){
499: *TSSetUpdate(
500: (TS)PetscToPointer( (ts) ),func);
501: }
502: void PETSC_STDCALL tsdefaultupdate_(TS ts,PetscReal *t,PetscReal *dt, int *ierr ){
503: *TSDefaultUpdate(
504: (TS)PetscToPointer( (ts) ),*t,dt);
505: }
506: void PETSC_STDCALL tssetpoststep_(TS ts,int (*func)(TS), int *ierr ){
507: *TSSetPostStep(
508: (TS)PetscToPointer( (ts) ),func);
509: }
510: void PETSC_STDCALL tsdefaultpoststep_(TS ts, int *ierr ){
511: *TSDefaultPostStep(
512: (TS)PetscToPointer( (ts) ));
513: }
514: void PETSC_STDCALL tsstep_(TS ts,int *steps,PetscReal *ptime, int *ierr ){
515: *TSStep(
516: (TS)PetscToPointer( (ts) ),steps,ptime);
517: }
518: void PETSC_STDCALL tsgettime_(TS ts,PetscReal* t, int *ierr ){
519: *TSGetTime(
520: (TS)PetscToPointer( (ts) ),t);
521: }
522: #if defined(__cplusplus)
523: }
524: #endif