mirror of
https://github.com/OpenMathLib/OpenBLAS
synced 2026-05-31 00:45:48 +08:00
28 lines
462 B
C
28 lines
462 B
C
#include "common.h"
|
|
#ifdef FUNCTION_PROFILE
|
|
#include "functable.h"
|
|
#endif
|
|
|
|
#ifndef CBLAS
|
|
|
|
void NAME(blasint *N, FLOAT *dx, blasint *INCX, FLOAT *dy, blasint *INCY, FLOAT *dparam){
|
|
|
|
blasint n = *N;
|
|
blasint incx = *INCX;
|
|
blasint incy = *INCY;
|
|
|
|
PRINT_DEBUG_NAME
|
|
#else
|
|
|
|
void CNAME(blasint n, FLOAT *dx, blasint incx, FLOAT *dy, blasint incy, FLOAT *dparam){
|
|
|
|
PRINT_DEBUG_CNAME;
|
|
|
|
#endif
|
|
|
|
ROTM_K(n, dx, incx, dy, incy, dparam);
|
|
|
|
return;
|
|
}
|
|
|