[ZARCH] Fix bug in max/min functions
This commit is contained in:
parent
dc4d3bccd5
commit
fcd814a8d2
|
@ -198,7 +198,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||||
if (n1 > 0) {
|
if (n1 > 0) {
|
||||||
|
|
||||||
maxf = camax_kernel_32(n1, x);
|
maxf = camax_kernel_32(n1, x);
|
||||||
|
ix = n1 * 2;
|
||||||
i = n1;
|
i = n1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
|
@ -198,7 +198,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||||
if (n1 > 0) {
|
if (n1 > 0) {
|
||||||
|
|
||||||
minf = camin_kernel_32(n1, x);
|
minf = camin_kernel_32(n1, x);
|
||||||
|
ix = n1 * 2;
|
||||||
i = n1;
|
i = n1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
|
@ -280,7 +280,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
|
||||||
if (n1 > 0) {
|
if (n1 > 0) {
|
||||||
|
|
||||||
max = icamax_kernel_32(n1, x, &maxf);
|
max = icamax_kernel_32(n1, x, &maxf);
|
||||||
|
ix = n1 * 2;
|
||||||
i = n1;
|
i = n1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
|
@ -280,7 +280,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
|
||||||
if (n1 > 0) {
|
if (n1 > 0) {
|
||||||
|
|
||||||
min = icamin_kernel_32(n1, x, &minf);
|
min = icamin_kernel_32(n1, x, &minf);
|
||||||
|
ix = n1 * 2;
|
||||||
i = n1;
|
i = n1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
|
@ -199,7 +199,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
|
||||||
if (n1 > 0) {
|
if (n1 > 0) {
|
||||||
|
|
||||||
max = izamax_kernel_16(n1, x, &maxf);
|
max = izamax_kernel_16(n1, x, &maxf);
|
||||||
|
ix = n1 * 2;
|
||||||
i = n1;
|
i = n1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
|
@ -199,7 +199,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
|
||||||
if (n1 > 0) {
|
if (n1 > 0) {
|
||||||
|
|
||||||
min = izamin_kernel_16(n1, x, &minf);
|
min = izamin_kernel_16(n1, x, &minf);
|
||||||
|
ix = n1 * 2;
|
||||||
i = n1;
|
i = n1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
|
@ -152,7 +152,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||||
if (n1 > 0) {
|
if (n1 > 0) {
|
||||||
|
|
||||||
maxf = zamax_kernel_16(n1, x);
|
maxf = zamax_kernel_16(n1, x);
|
||||||
|
ix = n1 * 2;
|
||||||
i = n1;
|
i = n1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
|
@ -152,7 +152,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
|
||||||
if (n1 > 0) {
|
if (n1 > 0) {
|
||||||
|
|
||||||
minf = zamin_kernel_16(n1, x);
|
minf = zamin_kernel_16(n1, x);
|
||||||
|
ix = n1 * 2;
|
||||||
i = n1;
|
i = n1;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
Loading…
Reference in New Issue