コード例 #1
0
  float BLAS<int, float>::DOT(const int n, const float* x, const int incx, const float* y, const int incy) const
  {
#ifdef HAVE_TEUCHOS_BLASFLOAT
    return SDOT_F77(&n, x, &incx, y, &incy);
#else
    return generic_dot(n, x, incx, y, incy);
#endif
  }
コード例 #2
0
//=============================================================================
float Epetra_BLAS::DOT(const int N, const float * X, const float * Y, const int INCX, const int INCY) const {
  return(SDOT_F77(&N, X, &INCX, Y, &INCY));
}