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

LAPACK helpers in C that need care too

Browse Source
This commit is contained in:
Andrew
2018-01-02 14:38:50 +01:00
parent 8aafa0473c
commit d602b99386
11 changed files with 27 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
kernel/generic/zneg_tcopy_4.c
View File

@@ -233,10 +233,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
*(boffset3 + 6) = -ctemp07;
*(boffset3 + 7) = -ctemp08;
aoffset1 += 2;
/* aoffset1 += 2;
aoffset2 += 2;
aoffset3 += 2;
aoffset4 += 2;
aoffset4 += 2; */
boffset3 += 8;
}
@@ -293,8 +293,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
aoffset1 += 8;
aoffset2 += 8;
aoffset3 += 8;
aoffset4 += 8;
/* aoffset3 += 8;
aoffset4 += 8; */
boffset1 += m * 8;
i --;
@@ -338,8 +338,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
*(boffset3 + 2) = -ctemp03;
*(boffset3 + 3) = -ctemp04;
aoffset1 += 2;
aoffset2 += 2;
/* aoffset1 += 2;
aoffset2 += 2; */
boffset3 += 4;
}
}
@@ -387,7 +387,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
*(boffset2 + 3) = -ctemp04;
aoffset1 += 4;
boffset2 += 4;
// boffset2 += 4;
}
if (n & 1){