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] = temp;
|
||||
|
||||
if ( da_r != da_r )
|
||||
x[ip] = da_r;
|
||||
else
|
||||
x[ip] = temp;
|
||||
|
||||
ip += inc_x2;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue