add some f2c runtime functions, remove exception, avoid name conflict with libgfortran

2022-12-28 15:31:49 -05:00
parent 1e8b2ad5a0
commit f157ba2389
100 changed files with 1233 additions and 437 deletions
--- a/lib/linalg/zlassq.cpp
+++ b/lib/linalg/zlassq.cpp
@ -132,7 +132,7 @@ f"> */
    doublereal d__1;

    /* Builtin functions */
-    double d_imag(doublecomplex *);
+    double d_lmp_imag(doublecomplex *);

    /* Local variables */
    integer ix;
@ -184,7 +184,7 @@ f"> */
                    *sumsq += d__1 * d__1;
                }
            }
-            temp1 = (d__1 = d_imag(&x[ix]), abs(d__1));
+            temp1 = (d__1 = d_lmp_imag(&x[ix]), abs(d__1));
            if (temp1 > 0. || disnan_(&temp1)) {
                if (*scale < temp1) {
 /* Computing 2nd power */