19 lines
641 B
C++
19 lines
641 B
C++
--- 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;
|