Actual source code: zaxisf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscdraw.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define petscdrawaxissetlabels_ PETSCDRAWAXISSETLABELS
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define petscdrawaxissetlabels_ petscdrawaxissetlabels
8: #endif
10: PETSC_EXTERN void petscdrawaxissetlabels_(PetscDrawAxis *axis, char *top, char *xlabel, char *ylabel, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len1, PETSC_FORTRAN_CHARLEN_T len2, PETSC_FORTRAN_CHARLEN_T len3)
11: {
12: char *t1, *t2, *t3;
14: FIXCHAR(top, len1, t1);
15: FIXCHAR(xlabel, len2, t2);
16: FIXCHAR(ylabel, len3, t3);
17: *ierr = PetscDrawAxisSetLabels(*axis, t1, t2, t3);
18: if (*ierr) return;
19: FREECHAR(top, t1);
20: FREECHAR(xlabel, t2);
21: FREECHAR(ylabel, t3);
22: }