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