aboutsummaryrefslogtreecommitdiff
path: root/src/param.cpp
diff options
context:
space:
mode:
authorPjotr Prins2020-05-22 07:15:37 -0500
committerPjotr Prins2020-05-22 07:15:37 -0500
commit8c82a8294483ffac4d8e9635376723f26a8ae27b (patch)
treec987e3646be820fe703452ad250979e4f3c112a9 /src/param.cpp
parentf112b0fa5f29651b5af8cb3bd1c2933f010c2960 (diff)
downloadpangemma-8c82a8294483ffac4d8e9635376723f26a8ae27b.tar.gz
Fixes for gcc (GCC) 10.1.0
Started to remove eigenlib (again)
Diffstat (limited to 'src/param.cpp')
-rw-r--r--src/param.cpp3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/param.cpp b/src/param.cpp
index de0c257..31b7382 100644
--- a/src/param.cpp
+++ b/src/param.cpp
@@ -39,6 +39,7 @@
#include "gemma_io.h"
#include "mathfunc.h"
#include "param.h"
+#include "fastblas.h"
using namespace std;
@@ -1412,7 +1413,7 @@ void compKtoV(const gsl_matrix *G, gsl_matrix *V) {
gsl_matrix_const_submatrix(G, 0, j * ni_test, ni_test, ni_test);
gsl_matrix_view KiKj_sub =
gsl_matrix_submatrix(KiKj, 0, t * ni_test, ni_test, ni_test);
- eigenlib_dgemm("N", "N", 1.0, &Ki.matrix, &Kj.matrix, 0.0,
+ fast_dgemm("N", "N", 1.0, &Ki.matrix, &Kj.matrix, 0.0,
&KiKj_sub.matrix);
t++;
}