1823b3129SBarry Smith 2*6524c165SJacob Faibussowitsch #ifndef __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 118cc058d9SJed 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 15