floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor C code fixes in kernel/arm

This commit is contained in:
Ralph Campbell 2015-11-06 20:04:56 +05:30 committed by Ashwin Sekhar T K
parent 55e4332f00
commit c053559ed9
17 changed files with 64 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
kernel/arm/amax.c
View File

@ -54,13 +54,15 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
BLASLONG ix=0; BLASLONG ix=0;
FLOAT maxf=0.0; FLOAT maxf=0.0;
if (n < 0 || inc_x < 1 ) return(maxf); if (n <= 0 || inc_x <= 0) return(maxf);
maxf=ABS(x[0]); maxf=ABS(x[0]);
ix += inc_x;
i++;
while(i < n) while(i < n)
{ {
if( ABS(x[ix]) > ABS(maxf) ) if( ABS(x[ix]) > maxf )
{ {
maxf = ABS(x[ix]); maxf = ABS(x[ix]);
} }

6
kernel/arm/amin.c
View File

@ -54,13 +54,15 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
BLASLONG ix=0; BLASLONG ix=0;
FLOAT minf=0.0; FLOAT minf=0.0;
if (n < 0 || inc_x < 1 ) return(minf); if (n <= 0 || inc_x <= 0) return(minf);
minf=ABS(x[0]); minf=ABS(x[0]);
ix += inc_x;
i++;
while(i < n) while(i < n)
{ {
if( ABS(x[ix]) < ABS(minf) ) if( ABS(x[ix]) < minf )
{ {
minf = ABS(x[ix]); minf = ABS(x[ix]);
} }

2
kernel/arm/asum.c
View File

@ -53,7 +53,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
{ {
BLASLONG i=0; BLASLONG i=0;
FLOAT sumf = 0.0; FLOAT sumf = 0.0;
if (n < 0 || inc_x < 1 ) return(sumf); if (n <= 0 || inc_x <= 0) return(sumf);
n *= inc_x; n *= inc_x;
while(i < n) while(i < n)

6
kernel/arm/iamax.c
View File

@ -55,13 +55,15 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
FLOAT maxf=0.0; FLOAT maxf=0.0;
BLASLONG max=0; BLASLONG max=0;
if (n < 0 || inc_x < 1 ) return(max); if (n <= 0 || inc_x <= 0) return(max);
maxf=ABS(x[0]); maxf=ABS(x[0]);
ix += inc_x;
i++;
while(i < n) while(i < n)
{ {
if( ABS(x[ix]) > ABS(maxf) ) if( ABS(x[ix]) > maxf )
{ {
max = i; max = i;
maxf = ABS(x[ix]); maxf = ABS(x[ix]);

4
kernel/arm/iamin.c
View File

@ -55,9 +55,11 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
FLOAT minf=0.0; FLOAT minf=0.0;
BLASLONG min=0; BLASLONG min=0;
if (n < 0 || inc_x < 1 ) return(min); if (n <= 0 || inc_x <= 0) return(min);
minf=ABS(x[0]); minf=ABS(x[0]);
ix += inc_x;
i++;
while(i < n) while(i < n)
{ {

4
kernel/arm/imax.c
View File

@ -47,9 +47,11 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
FLOAT maxf=0.0; FLOAT maxf=0.0;
BLASLONG max=0; BLASLONG max=0;
if (n < 0 || inc_x < 1 ) return(max); if (n <= 0 || inc_x <= 0) return(max);
maxf=x[0]; maxf=x[0];
ix += inc_x;
i++;
while(i < n) while(i < n)
{ {

4
kernel/arm/imin.c
View File

@ -45,9 +45,11 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
FLOAT minf=0.0; FLOAT minf=0.0;
BLASLONG min=0; BLASLONG min=0;
if (n < 0 || inc_x < 1 ) return(min); if (n <= 0 || inc_x <= 0) return(min);
minf=x[0]; minf=x[0];
ix += inc_x;
i++;
while(i < n) while(i < n)
{ {

14
kernel/arm/izamax.c
View File

@ -53,24 +53,24 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
{ {
BLASLONG i=0; BLASLONG i=0;
BLASLONG ix=0; BLASLONG ix=0;
FLOAT maxf[2]; FLOAT maxf;
BLASLONG max=0; BLASLONG max=0;
BLASLONG inc_x2; BLASLONG inc_x2;
if (n < 0 || inc_x < 1 ) return(max); if (n <= 0 || inc_x <= 0) return(max);
inc_x2 = 2 * inc_x; inc_x2 = 2 * inc_x;
maxf[0] = ABS(x[ix]); maxf = CABS1(x,0);
maxf[1] = ABS(x[ix+1]); ix += inc_x2;
i++;
while(i < n) while(i < n)
{ {
if( CABS1(x,ix) > CABS1(maxf,0) ) if( CABS1(x,ix) > maxf )
{ {
max = i; max = i;
maxf[0] = ABS(x[ix]); maxf = CABS1(x,ix);
maxf[1] = ABS(x[ix+1]);
} }
ix += inc_x2; ix += inc_x2;
i++; i++;

14
kernel/arm/izamin.c
View File

@ -53,24 +53,24 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
{ {
BLASLONG i=0; BLASLONG i=0;
BLASLONG ix=0; BLASLONG ix=0;
FLOAT minf[2]; FLOAT minf;
BLASLONG min=0; BLASLONG min=0;
BLASLONG inc_x2; BLASLONG inc_x2;
if (n < 0 || inc_x < 1 ) return(min); if (n <= 0 || inc_x <= 0) return(min);
inc_x2 = 2 * inc_x; inc_x2 = 2 * inc_x;
minf[0] = ABS(x[ix]); minf = CABS1(x,0);
minf[1] = ABS(x[ix+1]); ix += inc_x2;
i++;
while(i < n) while(i < n)
{ {
if( CABS1(x,ix) < CABS1(minf,0) ) if( CABS1(x,ix) < minf )
{ {
min = i; min = i;
minf[0] = ABS(x[ix]); minf = CABS1(x,ix);
minf[1] = ABS(x[ix+1]);
} }
ix += inc_x2; ix += inc_x2;
i++; i++;

4
kernel/arm/max.c
View File

@ -44,9 +44,11 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
BLASLONG ix=0; BLASLONG ix=0;
FLOAT maxf=0.0; FLOAT maxf=0.0;
if (n < 0 || inc_x < 1 ) return(maxf); if (n <= 0 || inc_x <= 0) return(maxf);
maxf=x[0]; maxf=x[0];
ix += inc_x;
i++;
while(i < n) while(i < n)
{ {

4
kernel/arm/min.c
View File

@ -44,9 +44,11 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
BLASLONG ix=0; BLASLONG ix=0;
FLOAT minf=0.0; FLOAT minf=0.0;
if (n < 0 || inc_x < 1 ) return(minf); if (n <= 0 || inc_x <= 0) return(minf);
minf=x[0]; minf=x[0];
ix += inc_x;
i++;
while(i < n) while(i < n)
{ {

2
kernel/arm/nrm2.c
View File

@ -57,7 +57,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
FLOAT absxi = 0.0; FLOAT absxi = 0.0;
if (n < 0 || inc_x < 1 ) return(0.0); if (n <= 0 || inc_x <= 0) return(0.0);
if ( n == 1 ) return( ABS(x[0]) ); if ( n == 1 ) return( ABS(x[0]) );
n *= inc_x; n *= inc_x;

18
kernel/arm/zamax.c
View File

@ -53,29 +53,27 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
{ {
BLASLONG i=0; BLASLONG i=0;
BLASLONG ix=0; BLASLONG ix=0;
FLOAT maxf[2]; FLOAT maxf;
BLASLONG max=0;
BLASLONG inc_x2; BLASLONG inc_x2;
if (n < 0 || inc_x < 1 ) return(0.0); if (n <= 0 || inc_x <= 0) return(0.0);
inc_x2 = 2 * inc_x; inc_x2 = 2 * inc_x;
maxf[0] = ABS(x[ix]); maxf = CABS1(x,0);
maxf[1] = ABS(x[ix+1]); ix += inc_x2;
i++;
while(i < n) while(i < n)
{ {
if( CABS1(x,ix) > CABS1(maxf,0) ) if( CABS1(x,ix) > maxf )
{ {
max = i; maxf = CABS1(x,ix);
maxf[0] = ABS(x[ix]);
maxf[1] = ABS(x[ix+1]);
} }
ix += inc_x2; ix += inc_x2;
i++; i++;
} }
return(CABS1(maxf,0)); return(maxf);
} }

18
kernel/arm/zamin.c
View File

@ -53,29 +53,27 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
{ {
BLASLONG i=0; BLASLONG i=0;
BLASLONG ix=0; BLASLONG ix=0;
FLOAT minf[2]; FLOAT minf;
BLASLONG min=0;
BLASLONG inc_x2; BLASLONG inc_x2;
if (n < 0 || inc_x < 1 ) return(0.0); if (n <= 0 || inc_x <= 0) return(0.0);
inc_x2 = 2 * inc_x; inc_x2 = 2 * inc_x;
minf[0] = ABS(x[ix]); minf = CABS1(x,0);
minf[1] = ABS(x[ix+1]); ix += inc_x2;
i++;
while(i < n) while(i < n)
{ {
if( CABS1(x,ix) < CABS1(minf,0) ) if( CABS1(x,ix) < minf )
{ {
min = i; minf = CABS1(x,ix);
minf[0] = ABS(x[ix]);
minf[1] = ABS(x[ix+1]);
} }
ix += inc_x2; ix += inc_x2;
i++; i++;
} }
return(CABS1(minf,0)); return(minf);
} }

3
kernel/arm/zasum.c
View File

@ -55,7 +55,8 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
BLASLONG i=0; BLASLONG i=0;
FLOAT sumf = 0.0; FLOAT sumf = 0.0;
BLASLONG inc_x2; BLASLONG inc_x2;
if (n < 0 || inc_x < 1 ) return(sumf);
if (n <= 0 || inc_x <= 0) return(sumf);
inc_x2 = 2 * inc_x; inc_x2 = 2 * inc_x;

6
kernel/arm/zaxpby.c
View File

@ -37,11 +37,9 @@ int CNAME(BLASLONG n, FLOAT alpha_r, FLOAT alpha_i, FLOAT *x, BLASLONG inc_x, FL
BLASLONG i=0; BLASLONG i=0;
BLASLONG ix,iy; BLASLONG ix,iy;
FLOAT temp; FLOAT temp;
BLASLONG inc_x2, inc_y2;
BLASLONG inc_x2; if ( n <= 0 ) return(0);
BLASLONG inc_y2;
if ( n < 0 ) return(0);
ix = 0; ix = 0;
iy = 0; iy = 0;

2
kernel/arm/znrm2.c
View File

@ -57,7 +57,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
BLASLONG inc_x2; BLASLONG inc_x2;
FLOAT temp; FLOAT temp;
if (n < 0 || inc_x < 1 ) return(0.0); if (n <= 0 || inc_x <= 0) return(0.0);
inc_x2 = 2 * inc_x; inc_x2 = 2 * inc_x;