Changeset 28076


Ignore:
Timestamp:
01/29/24 13:10:49 (14 months ago)
Author:
jdquinn
Message:

CHG: Updated m1qn3 to overcome warnings with modern Fortran compilers

Location:
issm/trunk-jpl/externalpackages/m1qn3
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/externalpackages/m1qn3/install.sh

    r27827 r28076  
    66VER=3.3
    77
    8 PREFIX="${ISSM_DIR}/externalpackages/m1qn3/install" # Set to location where external package should be installed
     8PREFIX="${ISSM_EXT_DIR}/m1qn3/install" # Set to location where external package should be installed
    99
    1010# Cleanup
     
    2222rm -rf m1qn3-${VER}-distrib
    2323
    24 #patch
    25 #patch -u -b src/src/m1qn3.f -i patch/m1qn3.f.patch
     24# Apply patches to src
    2625patch src/src/m1qn3.f patch/m1qn3.f.patch
    2726
  • issm/trunk-jpl/externalpackages/m1qn3/patch/m1qn3.f.patch

    r26393 r28076  
    1 --- src/src/m1qn3.f     2009-10-20 06:39:35.000000000 -0400
    2 +++ m1qn3.f     2021-08-13 14:44:30.276019165 -0400
     1--- src/src/m1qn3.f     2009-10-20 03:39:35
     2+++ m1qn3.f     2024-01-29 13:06:00
    33@@ -802,7 +802,7 @@
    44      &        "  iter  simul  stepsize            f                |g|",
     
    1010       endif
    1111       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.