Actual source code: zdtextf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscdraw.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define petscdrawstring_ PETSCDRAWSTRING
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define petscdrawstring_ petscdrawstring
8: #endif
10: PETSC_EXTERN void petscdrawstring_(PetscDraw *ctx, double *xl, double *yl, int *cl, char *text, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
11: {
12: char *t;
13: FIXCHAR(text, len, t);
14: *ierr = PetscDrawString(*ctx, *xl, *yl, *cl, t);
15: if (*ierr) return;
16: FREECHAR(text, t);
17: }
19: #if defined(PETSC_HAVE_FORTRAN_CAPS)
20: #define petscdrawstringvertical_ PETSCDRAWSTRINGVERTICAL
21: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
22: #define petscdrawstringvertical_ petscdrawstringvertical
23: #endif
25: PETSC_EXTERN void petscdrawstringvertical_(PetscDraw *ctx, double *xl, double *yl, int *cl, char *text, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
26: {
27: char *t;
28: FIXCHAR(text, len, t);
29: *ierr = PetscDrawStringVertical(*ctx, *xl, *yl, *cl, t);
30: if (*ierr) return;
31: FREECHAR(text, t);
32: }