Changeset 28254

Timestamp:

05/06/24 11:14:15 (12 months ago)

Author:

jdquinn

Message:

BUG: Updated patch for ifort/ifx

File:

• issm/trunk-jpl/externalpackages/m1qn3/patch/m1qn3.f.patch (modified) (1 diff)

issm/trunk-jpl/externalpackages/m1qn3/patch/m1qn3.f.patch

@@ -1 @@
---- ./src/src/m1qn3.f   2024-01-31 13:56:49
-+++ ./m1qn3.f   2024-01-31 13:56:32
+--- src/src/m1qn3.f     2009-10-20 03:39:35
++++ m1qn3.f     2024-05-06 11:12:30
+@@ -802,7 +802,7 @@
+      &        "  iter  simul  stepsize            f                |g|",
+      &        "       |g|/|g0|"
+           write(io,
+-     &        '(1x,i5,2x,i5,2x,1pd8.2,2x,d21.14,2x,d11.5,2x,d10.4)')
++     &        '(1x,i5,2x,i5,2x,1pd8.2,2x,d21.14,2x,d12.5,2x,d10.4)')
+      &        niter, isim, t, f, gnorm, eps1
+       endif
+       if (impres.ge.5) write (io,940) eps1
 @@ -1355,7 +1355,8 @@
        if (tg.eq.0.d0) go to 940