1 #pragma once 2 3 #include <petscsys.h> 4 #if defined(PETSC_USE_FORTRAN_KERNEL_MDOT) 5 #if defined(PETSC_HAVE_FORTRAN_CAPS) 6 #define fortranmdot4_ FORTRANMDOT4 7 #define fortranmdot3_ FORTRANMDOT3 8 #define fortranmdot2_ FORTRANMDOT2 9 #define fortranmdot1_ FORTRANMDOT1 10 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 11 #define fortranmdot4_ fortranmdot4 12 #define fortranmdot3_ fortranmdot3 13 #define fortranmdot2_ fortranmdot2 14 #define fortranmdot1_ fortranmdot1 15 #endif 16 PETSC_EXTERN void fortranmdot4_(const void *, const void *, const void *, const void *, const void *, const PetscInt *, void *, void *, void *, void *); 17 PETSC_EXTERN void fortranmdot3_(const void *, const void *, const void *, const void *, const PetscInt *, void *, void *, void *); 18 PETSC_EXTERN void fortranmdot2_(const void *, const void *, const void *, const PetscInt *, void *, void *); 19 PETSC_EXTERN void fortranmdot1_(const void *, const void *, const PetscInt *, void *); 20 #endif 21