#if !defined(__FSOLVEBAIJ_H) #include #if defined(PETSC_USE_FORTRAN_KERNEL_SOLVEBAIJ) #if defined(PETSC_HAVE_FORTRAN_CAPS) #define fortransolvebaij4_ FORTRANSOLVEBAIJ4 #define fortransolvebaij4unroll_ FORTRANSOLVEBAIJ4UNROLL #define fortransolvebaij4blas_ FORTRANSOLVEBAIJ4BLAS #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) #define fortransolvebaij4_ fortransolvebaij4 #define fortransolvebaij4unroll_ fortransolvebaij4unroll #define fortransolvebaij4blas_ fortransolvebaij4blas #endif PETSC_EXTERN void fortransolvebaij4_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*,const void*); PETSC_EXTERN void fortransolvebaij4unroll_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*); PETSC_EXTERN void fortransolvebaij4blas_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*,const void*); #endif #endif