Changeset 28076
- Timestamp:
- 01/29/24 13:10:49 (14 months ago)
- Location:
- issm/trunk-jpl/externalpackages/m1qn3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/externalpackages/m1qn3/install.sh
r27827 r28076 6 6 VER=3.3 7 7 8 PREFIX="${ISSM_ DIR}/externalpackages/m1qn3/install" # Set to location where external package should be installed8 PREFIX="${ISSM_EXT_DIR}/m1qn3/install" # Set to location where external package should be installed 9 9 10 10 # Cleanup … … 22 22 rm -rf m1qn3-${VER}-distrib 23 23 24 #patch 25 #patch -u -b src/src/m1qn3.f -i patch/m1qn3.f.patch 24 # Apply patches to src 26 25 patch src/src/m1qn3.f patch/m1qn3.f.patch 27 26 -
issm/trunk-jpl/externalpackages/m1qn3/patch/m1qn3.f.patch
r26393 r28076 1 --- src/src/m1qn3.f 2009-10-20 0 6:39:35.000000000 -04002 +++ m1qn3.f 202 1-08-13 14:44:30.276019165 -04001 --- src/src/m1qn3.f 2009-10-20 03:39:35 2 +++ m1qn3.f 2024-01-29 13:06:00 3 3 @@ -802,7 +802,7 @@ 4 4 & " iter simul stepsize f |g|", … … 10 10 endif 11 11 if (impres.ge.5) write (io,940) eps1 12 @@ -1354,7 +1354,9 @@ 13 c 14 if (tg.eq.0.d0) go to 940 15 fn=fg 16 - do 930 i=1,n 17 + do i=1,n 18 + goto 930 19 + end do 20 930 xn(i)=xn(i)+tg*d(i) 21 940 if (imp.le.3) go to 999 22 write (io,1001) 23 @@ -1365,7 +1367,9 @@ 24 c 25 c recopiage de x et boucle 26 c 27 - 950 do 960 i=1,n 28 + 950 do i=1,n 29 + goto 960 30 + end do 31 960 x(i)=xn(i)+t*d(i) 32 go to 100 33 c --- linesearch finished, no skip at next entry in mlis3
Note:
See TracChangeset
for help on using the changeset viewer.