Skip to content

Commit d602b99

Browse files
brada4brada4
committed
LAPACK helpers in C that need care too
1 parent 8aafa04 commit d602b99

File tree

11 files changed

+27
-25
lines changed

11 files changed

+27
-25
lines changed

‎kernel/generic/laswp_ncopy_8.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -288,7 +288,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint
288288
i++;
289289
} while (i <= k2);
290290

291-
a += lda;
291+
// a += lda;
292292
}
293293

294294
return 0;

‎kernel/generic/neg_tcopy_16.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -379,7 +379,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
379379
if (m & 1){
380380
ctemp01 = *(aoffset1 + 0);
381381
*(boffset + 0) = -ctemp01;
382-
boffset += 1;
382+
// boffset += 1;
383383
}
384384
}
385385

‎kernel/generic/neg_tcopy_8.c

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -719,10 +719,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
719719

720720
if (m & 1){
721721
aoffset1 = aoffset;
722-
aoffset += lda;
722+
// aoffset += lda;
723723

724724
boffset1 = boffset;
725-
boffset += 8;
725+
// boffset += 8;
726726

727727
i = (n >> 3);
728728
if (i > 0){
@@ -762,7 +762,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
762762
*(boffset2 + 1) = -ctemp02;
763763
*(boffset2 + 2) = -ctemp03;
764764
*(boffset2 + 3) = -ctemp04;
765-
boffset2 += 4;
765+
// boffset2 += 4;
766766
}
767767

768768
if (n & 2){
@@ -772,7 +772,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
772772

773773
*(boffset3 + 0) = -ctemp01;
774774
*(boffset3 + 1) = -ctemp02;
775-
boffset3 += 2;
775+
// boffset3 += 2;
776776
}
777777

778778
if (n & 1){

‎kernel/generic/zlaswp_ncopy_2.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -372,7 +372,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint
372372
*(b1 + 0) = A1;
373373
*(b1 + 1) = A2;
374374
}
375-
buffer += 2;
375+
// buffer += 2;
376376
}
377377
}
378378

‎kernel/generic/zlaswp_ncopy_4.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -702,7 +702,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint
702702
*(b1 + 0) = A1;
703703
*(b1 + 1) = A2;
704704
}
705-
buffer += 2;
705+
// buffer += 2;
706706
}
707707
}
708708

‎kernel/generic/zneg_tcopy_2.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -140,7 +140,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
140140
*(b_offset1 + 6) = -ctemp11;
141141
*(b_offset1 + 7) = -ctemp12;
142142

143-
b_offset1 += m * 4;
143+
// b_offset1 += m * 4;
144144
a_offset1 += 4;
145145
a_offset2 += 4;
146146
}
@@ -204,7 +204,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
204204
*(b_offset + 2) = -ctemp3;
205205
*(b_offset + 3) = -ctemp4;
206206

207-
b_offset += m * 4;
207+
// b_offset += m * 4;
208208
a_offset += 4;
209209
}
210210

‎kernel/generic/zneg_tcopy_4.c

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -233,10 +233,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
233233
*(boffset3 + 6) = -ctemp07;
234234
*(boffset3 + 7) = -ctemp08;
235235

236-
aoffset1 += 2;
236+
/* aoffset1 += 2;
237237
aoffset2 += 2;
238238
aoffset3 += 2;
239-
aoffset4 += 2;
239+
aoffset4 += 2; */
240240

241241
boffset3 += 8;
242242
}
@@ -293,8 +293,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
293293

294294
aoffset1 += 8;
295295
aoffset2 += 8;
296-
aoffset3 += 8;
297-
aoffset4 += 8;
296+
/* aoffset3 += 8;
297+
aoffset4 += 8; */
298298

299299
boffset1 += m * 8;
300300
i --;
@@ -338,8 +338,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
338338
*(boffset3 + 2) = -ctemp03;
339339
*(boffset3 + 3) = -ctemp04;
340340

341-
aoffset1 += 2;
342-
aoffset2 += 2;
341+
/* aoffset1 += 2;
342+
aoffset2 += 2; */
343343
boffset3 += 4;
344344
}
345345
}
@@ -387,7 +387,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
387387
*(boffset2 + 3) = -ctemp04;
388388

389389
aoffset1 += 4;
390-
boffset2 += 4;
390+
// boffset2 += 4;
391391
}
392392

393393
if (n & 1){

‎kernel/generic/zneg_tcopy_8.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -324,7 +324,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
324324
if (n & 1){
325325
aoffset1 = aoffset;
326326
aoffset2 = aoffset + lda;
327-
aoffset += 2;
327+
// aoffset += 2;
328328

329329
i = (m >> 1);
330330
if (i > 0){
@@ -353,7 +353,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
353353

354354
*(boffset + 0) = -ctemp01;
355355
*(boffset + 1) = -ctemp02;
356-
boffset += 2;
356+
// boffset += 2;
357357
}
358358
}
359359

‎lapack/getrf/getrf_single.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -51,7 +51,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
5151
BLASLONG jjs, min_jj;
5252
blasint *ipiv, iinfo, info;
5353
BLASLONG jb, mn, blocking;
54-
FLOAT *a, *offsetA, *offsetB;
54+
FLOAT *a, *offsetA; //, *offsetB;
5555
BLASLONG range_N[2];
5656

5757
FLOAT *sbb;
@@ -99,7 +99,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
9999
if (jb > blocking) jb = blocking;
100100

101101
offsetA = a + j * lda * COMPSIZE;
102-
offsetB = a + (j + jb) * lda * COMPSIZE;
102+
// offsetB = a + (j + jb) * lda * COMPSIZE;
103103

104104
range_N[0] = offset + j;
105105
range_N[1] = offset + j + jb;

‎lapack/trti2/ztrti2_L.c

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -67,8 +67,6 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
6767

6868
for (j = n - 1; j >= 0; j--) {
6969

70-
ajj_r = ONE;
71-
ajj_i = ZERO;
7270

7371
#ifndef UNIT
7472
ajj_r = *(a + (j + j * lda) * COMPSIZE + 0);
@@ -88,6 +86,9 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa,
8886

8987
*(a + (j + j * lda) * COMPSIZE + 0) = ajj_r;
9088
*(a + (j + j * lda) * COMPSIZE + 1) = ajj_i;
89+
#else
90+
ajj_r = ONE;
91+
ajj_i = ZERO;
9192
#endif
9293

9394
ZTRMV (n - j - 1,

0 commit comments

Comments
 (0)