xref: /petsc/src/mat/impls/aij/seq/ftn-kernels/fsolve.h (revision 9dd11ecf0918283bb567d8b33a92f53ac4ea7840)
1*a4963045SJacob Faibussowitsch #pragma once
23ea99036SJacob Faibussowitsch 
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 
118cc058d9SJed Brown PETSC_EXTERN void fortransolveaij_(const PetscInt *, void *, const PetscInt *, const PetscInt *, const PetscInt *, const void *, const void *);
129f7953f8SBarry Smith 
13823b3129SBarry Smith #endif
14