Actual source code: zvsectionisf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscis.h>
3: #include <petscsection.h>
4: #include <petscviewer.h>
6: #if defined(PETSC_HAVE_FORTRAN_CAPS)
7: #define petscsectiongetpointsyms_ PETSCSECTIONGETPOINTSYMS
8: #define petscsectionrestorepointsyms_ PETSCSECTIONRESTOREPOINTSYMS
9: #define petscsectiongetfieldpointsyms_ PETSCSECTIONGETFIELDPOINTSYMS
10: #define petscsectionrestorefieldpointsyms_ PETSCSECTIONRESTOREFIELDPOINTSYMS
11: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
12: #define petscsectiongetpointsyms_ petscsectiongetpointsyms
13: #define petscsectionrestorepointsyms_ petscsectionrestorepointsyms
14: #define petscsectiongetfieldpointsyms_ petscsectiongetfieldpointsyms
15: #define petscsectionrestorefieldpointsyms_ petscsectionrestorefieldpointsyms
16: #endif
18: PETSC_EXTERN void petscsectiongetpointsyms_(PetscSection section, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr)
19: {
20: *__ierr = PetscSectionGetPointSyms(section, *numPoints, points, (const PetscInt ***)perms, (const PetscScalar ***)rots);
21: }
22: PETSC_EXTERN void petscsectionrestorepointsyms_(PetscSection section, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr)
23: {
24: *__ierr = PetscSectionRestorePointSyms(section, *numPoints, points, (const PetscInt ***)perms, (const PetscScalar ***)rots);
25: }
26: PETSC_EXTERN void petscsectiongetfieldpointsyms_(PetscSection section, PetscInt *field, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr)
27: {
28: *__ierr = PetscSectionGetFieldPointSyms(section, *field, *numPoints, points, (const PetscInt ***)perms, (const PetscScalar ***)rots);
29: }
30: PETSC_EXTERN void petscsectionrestorefieldpointsyms_(PetscSection section, PetscInt *field, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr)
31: {
32: *__ierr = PetscSectionRestoreFieldPointSyms(section, *field, *numPoints, points, (const PetscInt ***)perms, (const PetscScalar ***)rots);
33: }