1 files changed, 19 insertions, 0 deletions
diff --git a/biology/gcta/files/patch-src_StatLib.cpp b/biology/gcta/files/patch-src_StatLib.cpp
new file mode 100644
index 000000000000..bde6badd351a
--- /dev/null
+++ b/biology/gcta/files/patch-src_StatLib.cpp
@@ -0,0 +1,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;