conj.tcc (ulmblas/impl/level1extensions/conj.tcc)

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18
     19
     20
     21
     22

#ifndef ULMBLAS_IMPL_LEVEL1EXTENSIONS_CONJ_TCC

#define ULMBLAS_IMPL_LEVEL1EXTENSIONS_CONJ_TCC 1

#include <ulmblas/impl/auxiliary/conjugate.h>

#include <ulmblas/impl/level1extensions/conj.h>

namespace ulmBLAS {

template <typename IndexType, typename VX>

void

conj(IndexType      n,

     VX             *x,

     IndexType      incX)

{

    for (IndexType i=0; i<n; ++i) {

        x[i*incX] = conjugate(x[i*incX]);

    }

}

} // namespace ulmBLAS

#endif // ULMBLAS_IMPL_LEVEL1EXTENSIONS_CONJ_TCC 1