1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--- src/StatLib.cpp.orig 2022-08-03 06:01:52 UTC
+++ src/StatLib.cpp
@@ -1,3 +1,4 @@
+
/*
GCTA: a tool for Genome-wide Complex Trait Analysis
@@ -117,8 +118,10 @@ namespace StatLib{
dormqr(&side, &t, &n, &n, &n, X, &lda, tau, c,
&lda, work, &lwork, &info);
#else
+ // OpenBLAS 0.3.25 requires a length argument. Is 1 the right value?
+ // Should all dormqr_() calls be patched?
dormqr_(&side, &t, &n, &n, &n, X, &lda, tau, c,
- &lda, work, &lwork, &info);
+ &lda, work, &lwork, &info, 1, 1);
#endif
if(info != 0){
return false;
|