1*823b3129SBarry Smith 2*823b3129SBarry Smith #if !defined(__FNORM_H) 3*823b3129SBarry Smith #include "petsc.h" 4*823b3129SBarry Smith #if defined(PETSC_USE_FORTRAN_KERNEL_SOLVEAIJ) 5*823b3129SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 6*823b3129SBarry Smith #define fortransolveaij_ FORTRANSOLVEAIJ 7*823b3129SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8*823b3129SBarry Smith #define fortransolveaij_ fortransolveaij 9*823b3129SBarry Smith #endif 10*823b3129SBarry Smith EXTERN void fortransolveaij_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*); 11*823b3129SBarry Smith #endif 12*823b3129SBarry Smith #endif 13*823b3129SBarry Smith 14*823b3129SBarry Smith 15