[ZARCH] Fix bug in max/min functions

diff --git a/kernel/zarch/camax.c b/kernel/zarch/camax.c
index 66d2508..f6fa772 100644 (file)
--- a/kernel/zarch/camax.c
+++ b/kernel/zarch/camax.c
@@ -198,7 +198,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         if (n1 > 0) {
 
             maxf = camax_kernel_32(n1, x);
-
+            ix = n1 * 2;
             i = n1;
         }
         else

diff --git a/kernel/zarch/camin.c b/kernel/zarch/camin.c
index 5abc685..4bd6ca1 100644 (file)
--- a/kernel/zarch/camin.c
+++ b/kernel/zarch/camin.c
@@ -198,7 +198,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         if (n1 > 0) {
 
             minf = camin_kernel_32(n1, x);
-
+            ix = n1 * 2;
             i = n1;
         }
         else

diff --git a/kernel/zarch/icamax.c b/kernel/zarch/icamax.c
index 113c0ce..a9e7f91 100644 (file)
--- a/kernel/zarch/icamax.c
+++ b/kernel/zarch/icamax.c
@@ -280,7 +280,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
       if (n1 > 0) {
 
             max = icamax_kernel_32(n1, x, &maxf);
-
+            ix = n1 * 2;
             i = n1;
       }
       else

diff --git a/kernel/zarch/icamin.c b/kernel/zarch/icamin.c
index 5096b64..faf5f9c 100644 (file)
--- a/kernel/zarch/icamin.c
+++ b/kernel/zarch/icamin.c
@@ -280,7 +280,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
       if (n1 > 0) {
 
             min = icamin_kernel_32(n1, x, &minf);
-
+            ix = n1 * 2;
             i = n1;
       }
       else

diff --git a/kernel/zarch/izamax.c b/kernel/zarch/izamax.c
index 2ffad25..2d1cc23 100644 (file)
--- a/kernel/zarch/izamax.c
+++ b/kernel/zarch/izamax.c
@@ -199,7 +199,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
       if (n1 > 0) {
 
             max = izamax_kernel_16(n1, x, &maxf);
-
+            ix = n1 * 2;
             i = n1;
       }
       else

diff --git a/kernel/zarch/izamin.c b/kernel/zarch/izamin.c
index 1e037c0..676fd7c 100644 (file)
--- a/kernel/zarch/izamin.c
+++ b/kernel/zarch/izamin.c
@@ -199,7 +199,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
       if (n1 > 0) {
 
             min = izamin_kernel_16(n1, x, &minf);
-
+            ix = n1 * 2;
             i = n1;
       }
       else

diff --git a/kernel/zarch/zamax.c b/kernel/zarch/zamax.c
index 8175874..b721478 100644 (file)
--- a/kernel/zarch/zamax.c
+++ b/kernel/zarch/zamax.c
@@ -152,7 +152,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         if (n1 > 0) {
 
             maxf = zamax_kernel_16(n1, x);
-
+            ix = n1 * 2;
             i = n1;
         }
         else

diff --git a/kernel/zarch/zamin.c b/kernel/zarch/zamin.c
index 5d57ff1..d53fdb6 100644 (file)
--- a/kernel/zarch/zamin.c
+++ b/kernel/zarch/zamin.c
@@ -152,7 +152,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         if (n1 > 0) {
 
             minf = zamin_kernel_16(n1, x);
-
+            ix = n1 * 2;
             i = n1;
         }
         else