bugfixes: replaced int with BLASLONG
This commit is contained in:
parent
da0f27b9ac
commit
fc0e0391f3
|
@ -84,7 +84,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
|
|||
if ( (inc_x == 1) && (inc_y == 1) )
|
||||
{
|
||||
|
||||
int n1 = n & -32;
|
||||
BLASLONG n1 = n & -32;
|
||||
|
||||
if ( n1 )
|
||||
{
|
||||
|
|
|
@ -109,7 +109,7 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in
|
|||
if ( (inc_x == 1) && (inc_y == 1) )
|
||||
{
|
||||
|
||||
int n1 = n & -16;
|
||||
BLASLONG n1 = n & -16;
|
||||
|
||||
if ( n1 )
|
||||
{
|
||||
|
@ -119,8 +119,10 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in
|
|||
dot[4] += dot[6];
|
||||
dot[5] += dot[7];
|
||||
}
|
||||
|
||||
i = n1;
|
||||
int j = i * 2;
|
||||
BLASLONG j = i * 2;
|
||||
|
||||
while( i < n )
|
||||
{
|
||||
|
||||
|
|
|
@ -80,9 +80,9 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
|
|||
{
|
||||
|
||||
#if defined(SANDYBRIDGE)
|
||||
int n1 = n & -32;
|
||||
BLASLONG n1 = n & -32;
|
||||
#else
|
||||
int n1 = n & -16;
|
||||
BLASLONG n1 = n & -16;
|
||||
#endif
|
||||
|
||||
if ( n1 )
|
||||
|
|
|
@ -83,7 +83,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)
|
|||
if ( (inc_x == 1) && (inc_y == 1) )
|
||||
{
|
||||
|
||||
int n1 = n & -16;
|
||||
BLASLONG n1 = n & -16;
|
||||
|
||||
if ( n1 )
|
||||
ddot_kernel_8(n1, x, y , &dot );
|
||||
|
|
|
@ -84,7 +84,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
|
|||
if ( (inc_x == 1) && (inc_y == 1) )
|
||||
{
|
||||
|
||||
int n1 = n & -16;
|
||||
BLASLONG n1 = n & -16;
|
||||
|
||||
if ( n1 )
|
||||
{
|
||||
|
|
|
@ -105,13 +105,14 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in
|
|||
if ( (inc_x == 1) && (inc_y == 1) )
|
||||
{
|
||||
|
||||
int n1 = n & -8;
|
||||
BLASLONG n1 = n & -8;
|
||||
|
||||
if ( n1 )
|
||||
zdot_kernel_8(n1, x, y , dot );
|
||||
|
||||
i = n1;
|
||||
int j = i * 2;
|
||||
BLASLONG j = i * 2;
|
||||
|
||||
while( i < n )
|
||||
{
|
||||
|
||||
|
|
Loading…
Reference in New Issue