rot.cc (interfaces/blas/C/rot.cc)

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

#include BLAS_HEADER

#include <ulmblas/level1/rot.h>

extern "C" {

void

ULMBLAS(drot)(const int      n,

              double         *x,

              const int      incX,

              double         *y,

              const int      incY,

              const double   c,

              const double   s)

{

    return ulmBLAS::rot(n, x, incX, y, incY, c, s);

}

} // extern "C"