Skip to content

Commit b23efc5

Browse files
authored
add handling of dummy2 flag
1 parent 0163143 commit b23efc5

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

kernel/zarch/cscal.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -205,7 +205,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
205205
if (inc_x != 1) {
206206
inc_x <<= 1;
207207

208-
if (da_r == 0.0) {
208+
if (da_r == 0.0 && !dummy2) {
209209

210210
BLASLONG n1 = n & -2;
211211

@@ -334,7 +334,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
334334
alpha[0] = da_r;
335335
alpha[1] = da_i;
336336

337-
if (da_r == 0.0)
337+
if (da_r == 0.0 &&!dummy2)
338338
if (da_i == 0)
339339
cscal_kernel_16_zero(n1, x);
340340
else

0 commit comments

Comments
 (0)