Merge pull request #4420 from martin-frbg/revertstuff
Revert accidental direct commits to develop
This commit is contained in:
commit
7a6a24647d
|
@ -63,9 +63,8 @@ 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] ;
|
||||
}
|
||||
}
|
||||
// if (!isnan(x[ip]) && !isinf(x[ip]))
|
||||
x[ip] = temp;
|
||||
if ( da_r != da_r ) x[ip] = da_r;
|
||||
|
||||
ip += inc_x2;
|
||||
}
|
||||
|
||||
|
|
|
@ -59,7 +59,6 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
|
|||
|
||||
unsigned int gvl = 0;
|
||||
FLOAT_V_T vt, v0, v1;
|
||||
|
||||
if(da_r == 0.0 && da_i == 0.0){
|
||||
gvl = VSETVL(n);
|
||||
BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT);
|
||||
|
@ -81,7 +80,6 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
|
|||
j += gvl;
|
||||
ix += inc_x * 2 * gvl;
|
||||
}
|
||||
#if 0
|
||||
}else if(da_r == 0.0){
|
||||
gvl = VSETVL(n);
|
||||
BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT);
|
||||
|
@ -110,7 +108,6 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
|
|||
VSSEV_FLOAT(&x[ix], stride_x, vt, gvl);
|
||||
VSSEV_FLOAT(&x[ix+1], stride_x, v1, gvl);
|
||||
}
|
||||
#endif
|
||||
}else if(da_i == 0.0){
|
||||
gvl = VSETVL(n);
|
||||
BLASLONG stride_x = inc_x * 2 * sizeof(FLOAT);
|
||||
|
|
Loading…
Reference in New Issue