Changeset 28088
- Timestamp:
- 01/31/24 14:00:05 (14 months ago)
- 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.