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

     12
<doc 13
     14
     15
     16
     17
     18
     19
     20

     21
<doc 22
     23
     24
     25
     26
     27
     28
     29
     30
     31

     32
     33
     34
     35
     36
     37
#ifndef ULMBLAS_CXXBLAS_LEVEL1_SCAL_H
#define ULMBLAS_CXXBLAS_LEVEL1_SCAL_H 1

namespace cxxblas {

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

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

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

// namespace cxxblas

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

#endif // ULMBLAS_CXXBLAS_LEVEL1_SCAL_H