//============================================================================= void Epetra_BLAS::GEMV(const char TRANS, const int M, const int N, const float ALPHA, const float * A, const int LDA, const float * X, const float BETA, float * Y, const int INCX, const int INCY) const { SGEMV_F77(CHAR_MACRO(TRANS), &M, &N, &ALPHA, A, &LDA, X, &INCX, &BETA, Y, &INCY); }
void BLAS<int, float>::GEMV(ETransp trans, const int m, const int n, const float alpha, const float* A, const int lda, const float* x, const int incx, const float beta, float* y, const int incy) const { SGEMV_F77(CHAR_MACRO(ETranspChar[trans]), &m, &n, &alpha, A, &lda, x, &incx, &beta, y, &incy); }