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