Add cblas_{c/z}srot cblas_{c/z}rotg support
This commit is contained in:
@@ -42,14 +42,20 @@
|
||||
#include "functable.h"
|
||||
#endif
|
||||
|
||||
#ifndef CBLAS
|
||||
void NAME(blasint *N, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *C, FLOAT *S){
|
||||
|
||||
BLASLONG n = *N;
|
||||
BLASLONG incx = *INCX;
|
||||
BLASLONG incy = *INCY;
|
||||
FLOAT c = *C;
|
||||
FLOAT s = *S;
|
||||
|
||||
#else
|
||||
void CNAME(blasint n, void *VX, blasint incx, void *VY, blasint incy, FLOAT c, FLOAT s) {
|
||||
FLOAT *x = (FLOAT*) VX;
|
||||
FLOAT *y = (FLOAT*) VY;
|
||||
#endif /* CBLAS */
|
||||
|
||||
PRINT_DEBUG_NAME;
|
||||
|
||||
if (n <= 0) return;
|
||||
|
||||
Reference in New Issue
Block a user