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 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 } 34