Update scal..c
This commit is contained in:
parent
f5d04318e3
commit
b613754143
|
@ -43,7 +43,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
|
||||||
if ( (n <= 0) || (inc_x <= 0))
|
if ( (n <= 0) || (inc_x <= 0))
|
||||||
return(0);
|
return(0);
|
||||||
|
|
||||||
if (dummy2 == 0)
|
if (dummy2 == 0) {
|
||||||
while(j < n)
|
while(j < n)
|
||||||
{
|
{
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue