[ZARCH] fix a bug in max/min functions
This commit is contained in:
maamountki
@@ -237,7 +237,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
i++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (i < n1) {
|
||||
while ((i - 1) < n1) {
|
||||
|
||||
if (CABS1(x,ix) > maxf) {
|
||||
maxf = CABS1(x,ix);
|
||||
|
||||
@@ -237,7 +237,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
i++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (i < n1) {
|
||||
while ((i - 1) < n1) {
|
||||
|
||||
if (CABS1(x,ix) < minf) {
|
||||
minf = CABS1(x,ix);
|
||||
|
||||
@@ -172,7 +172,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (ABS(x[i]) > maxf) {
|
||||
maxf = ABS(x[i]);
|
||||
|
||||
@@ -172,7 +172,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (ABS(x[i]) < minf) {
|
||||
minf = ABS(x[i]);
|
||||
|
||||
+1
-1
@@ -148,7 +148,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (x[i] > maxf) {
|
||||
maxf = x[i];
|
||||
|
||||
+1
-1
@@ -148,7 +148,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (x[i] < minf) {
|
||||
minf = x[i];
|
||||
|
||||
@@ -226,7 +226,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (ABS(x[i]) > maxf) {
|
||||
max = j;
|
||||
|
||||
@@ -226,7 +226,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (ABS(x[i]) < minf) {
|
||||
min = j;
|
||||
|
||||
@@ -202,7 +202,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (x[i] > maxf) {
|
||||
max = j;
|
||||
|
||||
@@ -202,7 +202,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (x[i] < minf) {
|
||||
min = j;
|
||||
|
||||
@@ -269,7 +269,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (ABS(x[i]) > maxf) {
|
||||
max = j;
|
||||
|
||||
@@ -269,7 +269,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (ABS(x[i]) < minf) {
|
||||
min = j;
|
||||
|
||||
@@ -245,7 +245,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (x[i] > maxf) {
|
||||
max = j;
|
||||
|
||||
@@ -245,7 +245,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (x[i] < minf) {
|
||||
min = j;
|
||||
|
||||
@@ -176,7 +176,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (ABS(x[i]) > maxf) {
|
||||
maxf = ABS(x[i]);
|
||||
|
||||
@@ -176,7 +176,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (ABS(x[i]) < minf) {
|
||||
minf = ABS(x[i]);
|
||||
|
||||
+1
-1
@@ -152,7 +152,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (x[i] > maxf) {
|
||||
maxf = x[i];
|
||||
|
||||
+1
-1
@@ -152,7 +152,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
j++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (j < n1) {
|
||||
while ((j - 1) < n1) {
|
||||
|
||||
if (x[i] < minf) {
|
||||
minf = x[i];
|
||||
|
||||
@@ -189,7 +189,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
i++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (i < n1) {
|
||||
while ((i - 1) < n1) {
|
||||
|
||||
if (CABS1(x,ix) > maxf) {
|
||||
maxf = CABS1(x,ix);
|
||||
|
||||
@@ -189,7 +189,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||
i++;
|
||||
|
||||
BLASLONG n1 = (n - 1) & -4;
|
||||
while (i < n1) {
|
||||
while ((i - 1) < n1) {
|
||||
|
||||
if (CABS1(x,ix) < minf) {
|
||||
minf = CABS1(x,ix);
|
||||
|
||||
Reference in New Issue
Block a user