1
      2
      3
      4
      5
<doc  6
      7
      8
      9
     10
     11

     12
<doc 13
     14
     15
     16
     17
     18
     19
     20

     21
     22
     23
     24
     25
     26
#ifndef ULMBLAS_CXXBLAS_LEVEL1_RSCAL_H
#define ULMBLAS_CXXBLAS_LEVEL1_RSCAL_H 1

namespace cxxblas {

template <typename IndexType, typename Alpha, typename VX>
    void
    rscal(IndexType      n,
          const Alpha    &alpha,
          VX             *x,
          IndexType      incX);

template <typename IndexType, typename Alpha, typename MA>
    void
    gerscal(IndexType    m,
            IndexType    n,
            const Alpha  &alpha,
            MA           *A,
            IndexType    incRowA,
            IndexType    incColA);

// namespace cxxblas

#include <ulmblas/cxxblas/level1/rscal.tcc>

#endif // ULMBLAS_CXXBLAS_LEVEL1_RSCAL_H