xref: /petsc/src/mat/impls/aij/seq/ftn-kernels/fsolve.h (revision 09573ac72a50d3e7ecd55a2b7f0ef28450cd0a8b)
1823b3129SBarry Smith 
28a31d241SBarry Smith #if !defined(__FSOLVE_H)
3d382aafbSBarry Smith #include "petscsys.h"
4823b3129SBarry Smith #if defined(PETSC_USE_FORTRAN_KERNEL_SOLVEAIJ)
5823b3129SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS)
6823b3129SBarry Smith #define fortransolveaij_   FORTRANSOLVEAIJ
7823b3129SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8823b3129SBarry Smith #define fortransolveaij_   fortransolveaij
9823b3129SBarry Smith #endif
10fc62b7edSSatish Balay EXTERN_C_BEGIN
11*09573ac7SBarry Smith extern void fortransolveaij_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*);
12fc62b7edSSatish Balay EXTERN_C_END
13823b3129SBarry Smith #endif
14823b3129SBarry Smith #endif
15823b3129SBarry Smith 
16823b3129SBarry Smith 
17