//============================================================================= void Epetra_BLAS::SCAL(const int N, const float ALPHA, float * X, const int INCX) const { SSCAL_F77(&N, &ALPHA, X, &INCX); return; }
void BLAS<int, float>::SCAL(const int n, const float alpha, float* x, const int incx) const { SSCAL_F77(&n, &alpha, x, &incx); }