[ZARCH] Fix bug in iamax/iamin/imax/imin

Author: mtk-i

kernel/zarch/icamax.c

@@ -283,6 +283,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
       }
       else
         {
+            max = 0;
             maxf = CABS1(x,0);
             ix += 2;
             i++;

kernel/zarch/icamin.c

@@ -283,6 +283,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x)
       }
       else
         {
+            min = 0;
             minf = CABS1(x,0);
             ix += 2;
             i++;

kernel/zarch/idamax.c

@@ -206,6 +206,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         }
         else
         {
+            max = 0;
             maxf = ABS(x[0]);
             i++;
         }

kernel/zarch/idamin.c

@@ -206,6 +206,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         }
         else
         {
+            min = 0;
             minf = ABS(x[0]);
             i++;
         }

kernel/zarch/idmax.c

@@ -182,6 +182,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         }
         else
         {
+            max = 0;
             maxf = x[0];
             i++;
         }

kernel/zarch/idmin.c

@@ -182,6 +182,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         }
         else
         {
+            min = 0;
             minf = x[0];
             i++;
         }

kernel/zarch/isamax.c

@@ -249,6 +249,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         }
         else
         {
+            max = 0;
             maxf = ABS(x[0]);
             i++;
         }

kernel/zarch/isamin.c

@@ -249,6 +249,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         }
         else
         {
+            min = 0;
             minf = ABS(x[0]);
             i++;
         }

kernel/zarch/ismax.c

@@ -225,6 +225,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         }
         else
         {
+            max = 0;
             maxf = x[0];
             i++;
         }

kernel/zarch/ismin.c

@@ -225,6 +225,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) {
         }
         else
         {
+            min = 0;
             minf = x[0];
             i++;
         }