1823b3129SBarry Smith 28a31d241SBarry Smith #if !defined(__FSOLVE_H) 3*c6db04a5SJed 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 10fc62b7edSSatish Balay EXTERN_C_BEGIN 1109573ac7SBarry Smith extern void fortransolveaij_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*); 12fc62b7edSSatish Balay EXTERN_C_END 13823b3129SBarry Smith #endif 14823b3129SBarry Smith #endif 15823b3129SBarry Smith 16823b3129SBarry Smith 17