Actual source code: ztrajf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscts.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define tstrajectorysetdirname_ TSTRAJECTORYSETDIRNAME
6: #define tstrajectorysetfiletemplate_ TSTRAJECTORYSETFILETEMPLATE
7: #define tstrajectoryviewfromoptions_ TSTRAJECTORYVIEWFROMOPTIONS
8: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
9: #define tstrajectorysetdirname_ tstrajectorysetdirname
10: #define tstrajectorysetfiletemplate_ tstrajectorysetfiletemplate
11: #define tstrajectoryviewfromoptions_ tstrajectoryviewfromoptions
12: #endif
14: PETSC_EXTERN void tstrajectorysetdirname_(TSTrajectory *tj, char dirname[], int *ierr, PETSC_FORTRAN_CHARLEN_T len)
15: {
16: char *t;
17: FIXCHAR(dirname, len, t);
18: *ierr = TSTrajectorySetDirname(*tj, t);
19: if (*ierr) return;
20: FREECHAR(dirname, t);
21: }
23: PETSC_EXTERN void tstrajectorysetfiletemplate_(TSTrajectory *tj, char filetemplate[], int *ierr, PETSC_FORTRAN_CHARLEN_T len)
24: {
25: char *t;
26: FIXCHAR(filetemplate, len, t);
27: *ierr = TSTrajectorySetFiletemplate(*tj, t);
28: FREECHAR(filetemplate, t);
29: }
30: PETSC_EXTERN void tstrajectoryviewfromoptions_(TSTrajectory *ao, PetscObject obj, char *type, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
31: {
32: char *t;
34: FIXCHAR(type, len, t);
35: CHKFORTRANNULLOBJECT(obj);
36: *ierr = TSTrajectoryViewFromOptions(*ao, obj, t);
37: if (*ierr) return;
38: FREECHAR(type, t);
39: }