Actual source code: fmult.h


  2: #ifndef __FMULT_H
  3: #include <petscsys.h>
  4:   #if defined(PETSC_USE_FORTRAN_KERNEL_MULTAIJ)
  5:     #if defined(PETSC_HAVE_FORTRAN_CAPS)
  6:       #define fortranmultaij_             FORTRANMULTAIJ
  7:       #define fortranmulttransposeaddaij_ FORTRANMULTTRANSPOSEADDAIJ
  8:     #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  9:       #define fortranmultaij_             fortranmultaij
 10:       #define fortranmulttransposeaddaij_ fortranmulttransposeaddaij
 11:     #endif

 13: PETSC_EXTERN void fortranmultaij_(PetscInt *, const PetscScalar *, const PetscInt *, const PetscInt *, const MatScalar *, PetscScalar *);
 14: PETSC_EXTERN void fortranmulttransposeaddaij_(PetscInt *, const PetscScalar *, const PetscInt *, const PetscInt *, const MatScalar *, PetscScalar *);

 16:   #endif
 17: #endif