1 
2 #if !defined(__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
12 
13 PETSC_EXTERN void fortranmultaij_(PetscInt*,const PetscScalar*,const PetscInt*,const PetscInt*,const MatScalar*,PetscScalar*);
14 PETSC_EXTERN void fortranmulttransposeaddaij_(PetscInt*,const void*,PetscInt*,PetscInt*,void*,void*);
15 
16 #endif
17 #endif
18 
19