xref: /petsc/src/mat/impls/aij/seq/ftn-kernels/fmultadd.h (revision 9dd11ecf0918283bb567d8b33a92f53ac4ea7840)
1*a4963045SJacob Faibussowitsch #pragma once
23ea99036SJacob Faibussowitsch 
3c6db04a5SJed Brown #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
109f7953f8SBarry Smith 
11e5a33da1SBarry Smith PETSC_EXTERN void fortranmultaddaij_(PetscInt *, const void *, const PetscInt *, const PetscInt *, const MatScalar *, void *, void *);
129f7953f8SBarry Smith 
13a4005a5dSBarry Smith #endif
14