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