Actual source code: frelax.h


  2: #ifndef __FRELAX_H
  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
 23: #endif