Handle NAN in input
This commit is contained in:
parent
c9df62e883
commit
acf17a825d
|
@ -63,8 +63,11 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
|
||||||
x[ip+1] = da_r * x[ip+1] + da_i * x[ip] ;
|
x[ip+1] = da_r * x[ip+1] + da_i * x[ip] ;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
x[ip] = temp;
|
if ( da_r != da_r )
|
||||||
|
x[ip] = da_r;
|
||||||
|
else
|
||||||
|
x[ip] = temp;
|
||||||
|
|
||||||
ip += inc_x2;
|
ip += inc_x2;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue