Actual source code: zdrawf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscdraw.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define petscdrawgettitle_ PETSCDRAWGETTITLE
6: #define petscdrawsettitle_ PETSCDRAWSETTITLE
7: #define petscdrawappendtitle_ PETSCDRAWAPPENDTITLE
8: #define petscdrawsetsavefinalimage_ PETSCDRAWSETSAVEFINALIMAGE
9: #define petscdrawsetsave_ PETSCDRAWSETSAVE
10: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
11: #define petscdrawgettitle_ petscdrawgettitle
12: #define petscdrawsettitle_ petscdrawsettitle
13: #define petscdrawappendtitle_ petscdrawappendtitle
14: #define petscdrawsetsavefinalimage_ petscdrawsetsavefinalimage
15: #define petscdrawsetsave_ petscdrawsetsave
16: #endif
18: PETSC_EXTERN void petscdrawgettitle_(PetscDraw *draw, char *title, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
19: {
20: const char *t;
21: *ierr = PetscDrawGetTitle(*draw, &t);
22: *ierr = PetscStrncpy(title, t, len);
23: FIXRETURNCHAR(PETSC_TRUE, title, len);
24: }
26: PETSC_EXTERN void petscdrawsettitle_(PetscDraw *draw, char *title, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
27: {
28: char *t1;
29: FIXCHAR(title, len, t1);
30: *ierr = PetscDrawSetTitle(*draw, t1);
31: if (*ierr) return;
32: FREECHAR(title, t1);
33: }
35: PETSC_EXTERN void petscdrawappendtitle_(PetscDraw *draw, char *title, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
36: {
37: char *t1;
38: FIXCHAR(title, len, t1);
39: *ierr = PetscDrawAppendTitle(*draw, t1);
40: if (*ierr) return;
41: FREECHAR(title, t1);
42: }
44: PETSC_EXTERN void petscdrawsetsavefinalimage_(PetscDraw *draw, char *filename, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
45: {
46: char *t1;
47: FIXCHAR(filename, len, t1);
48: *ierr = PetscDrawSetSaveFinalImage(*draw, t1);
49: if (*ierr) return;
50: FREECHAR(filename, t1);
51: }
53: PETSC_EXTERN void petscdrawsetsave_(PetscDraw *draw, char *filename, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
54: {
55: char *t1;
56: FIXCHAR(filename, len, t1);
57: *ierr = PetscDrawSetSave(*draw, t1);
58: if (*ierr) return;
59: FREECHAR(filename, t1);
60: }