fix build f2c 55/21555/1
Adeline CARNIS [Tue, 28 Jul 2020 10:49:08 +0000 (12:49 +0200)]
Change-Id: I477852b91da4038481631a77ae315f44dd20447e

scilab/modules/optimization/src/fortran/n1qn1a.f

index d80cf3d..c6c282e 100644 (file)
@@ -246,7 +246,7 @@ c             stockage si c'est la plus petite valeur
   190 gl2=gl2+(scale(i)*gb(i))**2
       if (gl2.ge.gl1) go to 220
   200 isfv=3
-      f=fb
+      f(1)=fb
       do 210 i=1,n
       x(i)=xb(i)
   210 g(i)=gb(i)