diff options
author | Pjotr Prins | 2020-05-22 07:15:37 -0500 |
---|---|---|
committer | Pjotr Prins | 2020-05-22 07:15:37 -0500 |
commit | 8c82a8294483ffac4d8e9635376723f26a8ae27b (patch) | |
tree | c987e3646be820fe703452ad250979e4f3c112a9 /src/param.cpp | |
parent | f112b0fa5f29651b5af8cb3bd1c2933f010c2960 (diff) | |
download | pangemma-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.cpp | 3 |
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++; } |