Index: /issm/trunk-jpl/externalpackages/m1qn3/patch/m1qn3.f.patch
===================================================================
--- /issm/trunk-jpl/externalpackages/m1qn3/patch/m1qn3.f.patch	(revision 28076)
+++ /issm/trunk-jpl/externalpackages/m1qn3/patch/m1qn3.f.patch	(revision 28077)
@@ -1,4 +1,4 @@
---- src/src/m1qn3.f	2009-10-20 03:39:35
-+++ m1qn3.f	2024-01-29 13:06:00
+--- src/src/m1qn3.f 2009-10-20 06:39:35.000000000 -0400
++++ m1qn3.f 2021-08-13 14:44:30.276019165 -0400
 @@ -802,7 +802,7 @@
       &        "  iter  simul  stepsize            f                |g|",
@@ -10,24 +10,2 @@
        endif
        if (impres.ge.5) write (io,940) eps1
-@@ -1354,7 +1354,9 @@
- c
-       if (tg.eq.0.d0) go to 940
-       fn=fg
--      do 930 i=1,n
-+      do i=1,n
-+        goto 930
-+      end do
-   930 xn(i)=xn(i)+tg*d(i)
-   940 if (imp.le.3) go to 999
-       write (io,1001)
-@@ -1365,7 +1367,9 @@
- c
- c               recopiage de x et boucle
- c
--  950 do 960 i=1,n
-+  950 do i=1,n
-+        goto 960
-+      end do
-   960 x(i)=xn(i)+t*d(i)
-       go to 100
- c     --- linesearch finished, no skip at next entry in mlis3