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