1: #pragma once

  3: #include <petscsys.h>
  4: #if defined(PETSC_USE_FORTRAN_KERNEL_RELAXAIJ)
  5:   #if defined(PETSC_HAVE_FORTRAN_CAPS)
  6:     #define fortranrelaxaijforward_      FORTRANRELAXAIJFORWARD
  7:     #define fortranrelaxaijbackward_     FORTRANRELAXAIJBACKWARD
  8:     #define fortranrelaxaijforwardzero_  FORTRANRELAXAIJFORWARDZERO
  9:     #define fortranrelaxaijbackwardzero_ FORTRANRELAXAIJBACKWARDZERO
 10:   #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 11:     #define fortranrelaxaijforward_      fortranrelaxaijforward
 12:     #define fortranrelaxaijbackward_     fortranrelaxaijbackward
 13:     #define fortranrelaxaijforwardzero_  fortranrelaxaijforwardzero
 14:     #define fortranrelaxaijbackwardzero_ fortranrelaxaijbackwardzero
 15:   #endif

 17: PETSC_EXTERN void fortranrelaxaijforward_(PetscInt *, PetscReal *, void *, PetscInt *, PetscInt *, const PetscInt *, void *, void *);
 18: PETSC_EXTERN void fortranrelaxaijbackward_(PetscInt *, PetscReal *, void *, PetscInt *, PetscInt *, const PetscInt *, void *, void *);
 19: PETSC_EXTERN void fortranrelaxaijforwardzero_(PetscInt *, PetscReal *, void *, PetscInt *, PetscInt *, const PetscInt *, const void *, void *, void *);
 20: PETSC_EXTERN void fortranrelaxaijbackwardzero_(PetscInt *, PetscReal *, void *, PetscInt *, PetscInt *, const PetscInt *, const void *, void *, void *);

 22: #endif