diff --git a/kernel/zarch/camax.c b/kernel/zarch/camax.c
index 66d250896..f6fa772ac 100644
--- 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 5abc685b2..4bd6ca17d 100644
--- 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 113c0cef5..a9e7f91fc 100644
--- 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 5096b641b..faf5f9c65 100644
--- 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 2ffad2570..2d1cc2365 100644
--- 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 1e037c0c7..676fd7c6d 100644
--- 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 8175874c0..b7214783f 100644
--- 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 5d57ff12e..d53fdb6b8 100644
--- 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