1*6dd63270SBarry Smith #include <petsc/private/ftnimpl.h> 2b5a418daSToby Isaac #include <petscis.h> 3224ef0b1SMatthew Knepley #include <petscsection.h> 4b5a418daSToby Isaac #include <petscviewer.h> 5b5a418daSToby Isaac 6b5a418daSToby Isaac #if defined(PETSC_HAVE_FORTRAN_CAPS) 7b5a418daSToby Isaac #define petscsectiongetpointsyms_ PETSCSECTIONGETPOINTSYMS 8b5a418daSToby Isaac #define petscsectionrestorepointsyms_ PETSCSECTIONRESTOREPOINTSYMS 9b5a418daSToby Isaac #define petscsectiongetfieldpointsyms_ PETSCSECTIONGETFIELDPOINTSYMS 10b5a418daSToby Isaac #define petscsectionrestorefieldpointsyms_ PETSCSECTIONRESTOREFIELDPOINTSYMS 11b5a418daSToby Isaac #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 12b5a418daSToby Isaac #define petscsectiongetpointsyms_ petscsectiongetpointsyms 13b5a418daSToby Isaac #define petscsectionrestorepointsyms_ petscsectionrestorepointsyms 14b5a418daSToby Isaac #define petscsectiongetfieldpointsyms_ petscsectiongetfieldpointsyms 15b5a418daSToby Isaac #define petscsectionrestorefieldpointsyms_ petscsectionrestorefieldpointsyms 16b5a418daSToby Isaac #endif 17b5a418daSToby Isaac 1870a7d78aSStefano Zampini PETSC_EXTERN void petscsectiongetpointsyms_(PetscSection section, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr) 1970a7d78aSStefano Zampini { 20b5a418daSToby Isaac *__ierr = PetscSectionGetPointSyms(section, *numPoints, points, (const PetscInt ***)perms, (const PetscScalar ***)rots); 21b5a418daSToby Isaac } 2270a7d78aSStefano Zampini PETSC_EXTERN void petscsectionrestorepointsyms_(PetscSection section, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr) 2370a7d78aSStefano Zampini { 24b5a418daSToby Isaac *__ierr = PetscSectionRestorePointSyms(section, *numPoints, points, (const PetscInt ***)perms, (const PetscScalar ***)rots); 25b5a418daSToby Isaac } 2670a7d78aSStefano Zampini PETSC_EXTERN void petscsectiongetfieldpointsyms_(PetscSection section, PetscInt *field, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr) 2770a7d78aSStefano Zampini { 28b5a418daSToby Isaac *__ierr = PetscSectionGetFieldPointSyms(section, *field, *numPoints, points, (const PetscInt ***)perms, (const PetscScalar ***)rots); 29b5a418daSToby Isaac } 3070a7d78aSStefano Zampini PETSC_EXTERN void petscsectionrestorefieldpointsyms_(PetscSection section, PetscInt *field, PetscInt *numPoints, PetscInt *points, PetscInt ***perms, PetscScalar ***rots, int *__ierr) 3170a7d78aSStefano Zampini { 32b5a418daSToby Isaac *__ierr = PetscSectionRestoreFieldPointSyms(section, *field, *numPoints, points, (const PetscInt ***)perms, (const PetscScalar ***)rots); 33b5a418daSToby Isaac } 34