xref: /petsc/src/mat/impls/aij/seq/ftn-kernels/fsolve.h (revision 3ea99036a5fedea4d39e7e77471d0ab500c249d7)
16524c165SJacob Faibussowitsch #ifndef __FSOLVE_H
2*3ea99036SJacob Faibussowitsch #define __FSOLVE_H
3*3ea99036SJacob Faibussowitsch 
4c6db04a5SJed Brown #include <petscsys.h>
5823b3129SBarry Smith #if defined(PETSC_USE_FORTRAN_KERNEL_SOLVEAIJ)
6823b3129SBarry Smith   #if defined(PETSC_HAVE_FORTRAN_CAPS)
7823b3129SBarry Smith     #define fortransolveaij_ FORTRANSOLVEAIJ
8823b3129SBarry Smith   #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
9823b3129SBarry Smith     #define fortransolveaij_ fortransolveaij
10823b3129SBarry Smith   #endif
119f7953f8SBarry Smith 
128cc058d9SJed Brown PETSC_EXTERN void fortransolveaij_(const PetscInt *, void *, const PetscInt *, const PetscInt *, const PetscInt *, const void *, const void *);
139f7953f8SBarry Smith 
14823b3129SBarry Smith #endif
15823b3129SBarry Smith #endif
16