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
lapack/getrf/getrf_single.c
+2 -2
View File
@@ -51,7 +51,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
BLASLONG jjs, min_jj;
blasint *ipiv, iinfo, info;
BLASLONG jb, mn, blocking;
FLOAT *a, *offsetA, *offsetB;
FLOAT *a, *offsetA; //, *offsetB;
BLASLONG range_N[2];
FLOAT *sbb;
@@ -99,7 +99,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
if (jb > blocking) jb = blocking;
offsetA = a + j * lda * COMPSIZE;
offsetB = a + (j + jb) * lda * COMPSIZE;
// offsetB = a + (j + jb) * lda * COMPSIZE;
range_N[0] = offset + j;
range_N[1] = offset + j + jb;