1823b3129SBarry Smith 28a31d241SBarry Smith #if !defined(__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 10*9f7953f8SBarry Smith 11*9f7953f8SBarry Smith PETSC_EXTERN_C void fortransolveaij_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*); 12*9f7953f8SBarry Smith 13823b3129SBarry Smith #endif 14823b3129SBarry Smith #endif 15823b3129SBarry Smith 16823b3129SBarry Smith 17