fixed change to eispack and added needed flag to meson'

joanibal · Sep 21, 2024 · 9bf1bdf · 9bf1bdf
1 parent cc290a7
commit 9bf1bdf
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/meson.build b/meson.build
@@ -143,7 +143,9 @@ ff_args += [
   '-ffixed-line-length-80', 
   '-std=legacy',
   '-fdefault-real-8',
-  '-fPIC'
+  '-fdefault-double-8',
+  '-fPIC',
+  '-O2'
 ]
 
 numpy_nodepr_api = '-DNPY_NO_DEPRECATED_API=NPY_1_9_API_VERSION'

diff --git a/src/eispack.f b/src/eispack.f
@@ -3949,8 +3949,7 @@ SUBROUTINE ELMHES(NM,N,LOW,IGH,A,INT)
             A(J,M) = Y
   120    CONTINUE
 C     .......... END INTERCHANGE ..........
-  130    IF (DABS(X) .LE. 1e-12_8) GO TO 180
-! 130    IF (X .EQ. 0.0D0) GO TO 180
+  130    IF (X .EQ. 0.0D0) GO TO 180
          MP1 = M + 1
 C
          DO 160 I = MP1, IGH