update to LAPACK 3.12

2023-11-24 15:29:14 -05:00
parent 33dcfb5390
commit 2a1af662d4
15 changed files with 109 additions and 103 deletions
--- a/lib/linalg/dlabad.cpp
+++ b/lib/linalg/dlabad.cpp
@ -4,11 +4,6 @@ extern "C" {
 #include "lmp_f2c.h"
 int dlabad_(doublereal *small, doublereal *large)
 {
-    double d_lmp_lg10(doublereal *), sqrt(doublereal);
-    if (d_lmp_lg10(large) > 2e3) {
-        *small = sqrt(*small);
-        *large = sqrt(*large);
-    }
    return 0;
 }
 #ifdef __cplusplus