Changeset 28088


Ignore:
Timestamp:
01/31/24 14:00:05 (14 months ago)
Author:
jdquinn
Message:

BUG: Corrected patch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/externalpackages/m1qn3/patch/m1qn3.f.patch

    r28077 r28088  
    1 --- src/src/m1qn3.f 2009-10-20 06:39:35.000000000 -0400
    2 +++ m1qn3.f 2021-08-13 14:44:30.276019165 -0400
    3 @@ -802,7 +802,7 @@
    4       &        "  iter  simul  stepsize            f                |g|",
    5       &        "       |g|/|g0|"
    6            write(io,
    7 -     &        '(1x,i5,2x,i5,2x,1pd8.2,2x,d21.14,2x,d11.5,2x,d10.4)')
    8 +     &        '(1x,i5,2x,i5,2x,1pd9.2,2x,d21.14,2x,d12.5,2x,d11.4)')
    9       &        niter, isim, t, f, gnorm, eps1
    10        endif
    11        if (impres.ge.5) write (io,940) eps1
     1--- ./src/src/m1qn3.f   2024-01-31 13:56:49
     2+++ ./m1qn3.f   2024-01-31 13:56:32
     3@@ -1355,7 +1355,8 @@
     4       if (tg.eq.0.d0) go to 940
     5       fn=fg
     6       do 930 i=1,n
     7-  930 xn(i)=xn(i)+tg*d(i)
     8+        xn(i)=xn(i)+tg*d(i)
     9+  930 end do
     10   940 if (imp.le.3) go to 999
     11       write (io,1001)
     12       write (io,1005) tg,fg,fpg
     13@@ -1366,7 +1367,8 @@
     14 c               recopiage de x et boucle
     15 c
     16   950 do 960 i=1,n
     17-  960 x(i)=xn(i)+t*d(i)
     18+        x(i)=xn(i)+t*d(i)
     19+  960 end do
     20       go to 100
     21 c     --- linesearch finished, no skip at next entry in mlis3
     22   999 if (reverse.ne.0) reentry = 0
Note: See TracChangeset for help on using the changeset viewer.