|
|
@@ -145,8 +145,13 @@ FLOATRET NAME(blasint *N, FLOAT *x, blasint *INCX){ |
|
|
|
|
|
|
|
|
#else |
|
|
#else |
|
|
|
|
|
|
|
|
|
|
|
#ifdef COMPLEX |
|
|
|
|
|
FLOAT CNAME(blasint n, void *vx, blasint incx){ |
|
|
|
|
|
FLOAT *x = (FLOAT*) vx; |
|
|
|
|
|
#else |
|
|
FLOAT CNAME(blasint n, FLOAT *x, blasint incx){ |
|
|
FLOAT CNAME(blasint n, FLOAT *x, blasint incx){ |
|
|
|
|
|
|
|
|
|
|
|
#endif |
|
|
|
|
|
|
|
|
FLOAT ret; |
|
|
FLOAT ret; |
|
|
|
|
|
|
|
|
PRINT_DEBUG_CNAME; |
|
|
PRINT_DEBUG_CNAME; |
|
|
|