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