1 #include <petsc/private/ftnimpl.h>
2 #include <petscis.h>
3 #include <petscsection.h>
4 #include <petscviewer.h>
5
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
17
petscsectiongetpointsyms_(PetscSection section,PetscInt * numPoints,PetscInt * points,PetscInt *** perms,PetscScalar *** rots,int * __ierr)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 }
petscsectionrestorepointsyms_(PetscSection section,PetscInt * numPoints,PetscInt * points,PetscInt *** perms,PetscScalar *** rots,int * __ierr)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 }
petscsectiongetfieldpointsyms_(PetscSection section,PetscInt * field,PetscInt * numPoints,PetscInt * points,PetscInt *** perms,PetscScalar *** rots,int * __ierr)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 }
petscsectionrestorefieldpointsyms_(PetscSection section,PetscInt * field,PetscInt * numPoints,PetscInt * points,PetscInt *** perms,PetscScalar *** rots,int * __ierr)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 }
34