|
|
@@ -63,7 +63,7 @@ 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] ; |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
// if (!isnan(x_ip] && !isinf(x[ip])) |
|
|
|
|
|
|
|
|
// if (!isnan(x[ip]) && !isinf(x[ip])) |
|
|
x[ip] = temp; |
|
|
x[ip] = temp; |
|
|
if ( da_r != da_r ) x[ip] = da_r; |
|
|
if ( da_r != da_r ) x[ip] = da_r; |
|
|
ip += inc_x2; |
|
|
ip += inc_x2; |
|
|
|