bugfixes: replaced int with BLASLONG

This commit is contained in:
Werner Saar 2015-04-24 14:30:44 +02:00
parent da0f27b9ac
commit fc0e0391f3
6 changed files with 12 additions and 9 deletions

View File

@ -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 )
{

View File

@ -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 )
{

View File

@ -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 )

View File

@ -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 );

View File

@ -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 )
{

View File

@ -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 )
{