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

Minor C code fixes in kernel/arm

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
kernel/arm/zamin.c
+8 -10
View File
@@ -53,29 +53,27 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
{
BLASLONG i=0;
BLASLONG ix=0;
FLOAT minf[2];
BLASLONG min=0;
FLOAT minf;
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;
minf[0] = ABS(x[ix]);
minf[1] = ABS(x[ix+1]);
minf = CABS1(x,0);
ix += inc_x2;
i++;
while(i < n)
{
if( CABS1(x,ix) < CABS1(minf,0) )
if( CABS1(x,ix) < minf )
{
min = i;
minf[0] = ABS(x[ix]);
minf[1] = ABS(x[ix+1]);
minf = CABS1(x,ix);
}
ix += inc_x2;
i++;
}
return(CABS1(minf,0));
return(minf);
}