dot.cc (interfaces/blas/C/dot.cc)

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16

#include BLAS_HEADER

#include <ulmblas/level1/dot.h>

extern "C" {

double

ULMBLAS(ddot)(const int     n,

              const double  *x,

              const int     incX,

              const double  *y,

              const int     incY)

{

    return ulmBLAS::dotu(n, x, incX, y, incY);

}

} // extern "C"