Skip to content

Commit 5e7f714

Browse files
authored
Update zscal.c
1 parent cf8b03a commit 5e7f714

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

kernel/mips/zscal.c

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -47,6 +47,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
4747
else
4848
{
4949
temp = - da_i * x[ip+1] ;
50+
if (isnan(x[ip]) || isinf(x[ip])) temp = x[ip];
5051
x[ip+1] = da_i * x[ip] ;
5152
}
5253
}

0 commit comments

Comments
 (0)