floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed my bug in ger.c

This commit is contained in:
wernsaar 2014-07-02 10:39:33 +02:00
parent be94db096c
commit 02a504c0b8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
interface/ger.c
View File

@ -141,11 +141,11 @@ void CNAME(enum CBLAS_ORDER order,
t = incx; t = incx;
incx = incy; incx = incy;
incy = t; incy = t;
/*
buffer = x; buffer = x;
x = y; x = y;
y = buffer; y = buffer;
*/
if (lda < MAX(1,m)) info = 9; if (lda < MAX(1,m)) info = 9;
if (incy == 0) info = 7; if (incy == 0) info = 7;
if (incx == 0) info = 5; if (incx == 0) info = 5;