1823b3129SBarry Smith 2*8a31d241SBarry Smith #if !defined(__FSOLVE_H) 3823b3129SBarry Smith #include "petsc.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 10823b3129SBarry Smith EXTERN void fortransolveaij_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*); 11823b3129SBarry Smith #endif 12823b3129SBarry Smith #endif 13823b3129SBarry Smith 14823b3129SBarry Smith 15