xref: /petsc/src/mat/impls/aij/seq/ftn-kernels/fsolve.h (revision 8cc058d9cd56c1ccb3be12a47760ddfc446aaffc)
1823b3129SBarry Smith 
28a31d241SBarry Smith #if !defined(__FSOLVE_H)
3c6db04a5SJed Brown #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
109f7953f8SBarry Smith 
11*8cc058d9SJed Brown PETSC_EXTERN void fortransolveaij_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*);
129f7953f8SBarry Smith 
13823b3129SBarry Smith #endif
14823b3129SBarry Smith #endif
15823b3129SBarry Smith 
16823b3129SBarry Smith 
17