Actual source code: fmdot.h
2: #ifndef __FMDOT_H
5: #include <petscsys.h>
6: #if defined(PETSC_USE_FORTRAN_KERNEL_MDOT)
7: #if defined(PETSC_HAVE_FORTRAN_CAPS)
8: #define fortranmdot4_ FORTRANMDOT4
9: #define fortranmdot3_ FORTRANMDOT3
10: #define fortranmdot2_ FORTRANMDOT2
11: #define fortranmdot1_ FORTRANMDOT1
12: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
13: #define fortranmdot4_ fortranmdot4
14: #define fortranmdot3_ fortranmdot3
15: #define fortranmdot2_ fortranmdot2
16: #define fortranmdot1_ fortranmdot1
17: #endif
18: PETSC_EXTERN void fortranmdot4_(const void *, const void *, const void *, const void *, const void *, const PetscInt *, void *, void *, void *, void *);
19: PETSC_EXTERN void fortranmdot3_(const void *, const void *, const void *, const void *, const PetscInt *, void *, void *, void *);
20: PETSC_EXTERN void fortranmdot2_(const void *, const void *, const void *, const PetscInt *, void *, void *);
21: PETSC_EXTERN void fortranmdot1_(const void *, const void *, const PetscInt *, void *);
22: #endif
23: #endif