Actual source code: fmdot.h


  2: #ifndef __FMDOT_H
  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 *, PetscInt *, void *, void *, void *, void *);
 17: PETSC_EXTERN void fortranmdot3_(const void *, const void *, const void *, const void *, PetscInt *, void *, void *, void *);
 18: PETSC_EXTERN void fortranmdot2_(const void *, const void *, const void *, PetscInt *, void *, void *);
 19: PETSC_EXTERN void fortranmdot1_(const void *, const void *, PetscInt *, void *);
 20:   #endif
 21: #endif