fix error in max/min on list 64/11064/2
Antoine ELIAS [Wed, 27 Mar 2013 16:24:12 +0000 (17:24 +0100)]
Change-Id: Idef7932a95a01a82555ec6cd942c987766dc3f1e

scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_maxi.f

index 5b1cacf..7765bc3 100644 (file)
@@ -326,7 +326,7 @@ c     test si n1 > 1
 c     mini
                do 211 j=0,m*n-1
                   x1=stk(lri+j)
-                  if (x1.lt.stk(lrw+j).or.isanan(lrw+j).eq.1) then
+                  if (x1.lt.stk(lrw+j).or.isanan(stk(lrw+j)).eq.1) then
                      stk(lrw+j)=x1
                      stk(lrkw+j)= i
                   endif
@@ -334,7 +334,7 @@ c     mini
             else
                do 212 j=0,m*n-1
                   x1=stk(lri+j)
-                  if (x1.gt.stk(lrw+j).or.isanan(lrw+j).eq.1) then
+                  if (x1.gt.stk(lrw+j).or.isanan(stk(lrw+j)).eq.1) then
                      stk(lrw+j)=x1
                      stk(lrkw+j)= i
                   endif