xref: /petsc/src/mat/impls/aij/seq/ftn-kernels/fmultadd.h (revision fc62b7ed917495680c9750e84e837cf1720c161c)
1a4005a5dSBarry Smith 
28a31d241SBarry Smith #if !defined(__FMULTADD_H)
3d382aafbSBarry Smith #include "petscsys.h"
4a4005a5dSBarry Smith #if defined(PETSC_USE_FORTRAN_KERNEL_MULTADDAIJ)
5a4005a5dSBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS)
6a4005a5dSBarry Smith #define fortranmultaddaij_ FORTRANMULTADDAIJ
7a4005a5dSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8a4005a5dSBarry Smith #define fortranmultaddaij_ fortranmultaddaij
9a4005a5dSBarry Smith #endif
10*fc62b7edSSatish Balay EXTERN_C_BEGIN
11a4005a5dSBarry Smith EXTERN void fortranmultaddaij_(PetscInt*,void*,PetscInt*,PetscInt*,const MatScalar*,void*,void*);
12*fc62b7edSSatish Balay EXTERN_C_END
13a4005a5dSBarry Smith #endif
14a4005a5dSBarry Smith #endif
15a4005a5dSBarry Smith 
16