Actual source code: fmdot.h
1: #pragma once
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