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