Date: 2026-05-01T06:12:13+00:00

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