Attachment 246414 Details for Bug 273219 – experimental patch for biology/gcta

[patch] experimental patch for biology/gcta

gcta.diff (text/plain), 2.74 KB, created by Eijiro Shibusawa on 2023-11-19 05:24:07 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Eijiro Shibusawa

Created: 2023-11-19 05:24:07 UTC

Size: 2.74 KB

patch

obsolete

>diff -uNr /usr/ports/biology/gcta/./files/patch-include_Matrix.hpp ./files/patch-include_Matrix.hpp
>--- /usr/ports/biology/gcta/./files/patch-include_Matrix.hpp	1970-01-01 09:00:00.000000000 +0900
>+++ ./files/patch-include_Matrix.hpp	2023-11-19 14:01:58.198766000 +0900
>@@ -0,0 +1,20 @@
>+--- include/Matrix.hpp.orig	2022-08-03 06:01:52 UTC
>++++ include/Matrix.hpp
>+@@ -32,7 +32,7 @@ bool _LLT(MatrixType &A, double &logdet){
>+ #if GCTA_CPU_x86
>+     dpotrf(&uplo, &cols, vi, &cols, &info);
>+ #else
>+-    dpotrf_(&uplo, &cols, vi, &cols, &info);
>++    dpotrf_(&uplo, &cols, vi, &cols, &info, 1);
>+ #endif    
>+     //LOGGER << "  LLT time: " << LOGGER.tp("LLT") << std::endl;
>+     if(info == 0){
>+@@ -41,7 +41,7 @@ bool _LLT(MatrixType &A, double &logdet){
>+ #if GCTA_CPU_x86        
>+         dpotri(&uplo, &cols, vi, &cols, &info);
>+ #else
>+-        dpotri_(&uplo, &cols, vi, &cols, &info);
>++        dpotri_(&uplo, &cols, vi, &cols, &info, 1);
>+ #endif
>+         //LOGGER << "  LLT inverse time: " << LOGGER.tp("LLT_INV") << std::endl;
>+         if(info == 0){
>diff -uNr /usr/ports/biology/gcta/./files/patch-main_mkl.cpp ./files/patch-main_mkl.cpp
>--- /usr/ports/biology/gcta/./files/patch-main_mkl.cpp	1970-01-01 09:00:00.000000000 +0900
>+++ ./files/patch-main_mkl.cpp	2023-11-19 14:09:22.882312000 +0900
>@@ -0,0 +1,20 @@
>+--- main/mkl.cpp.orig	2023-11-19 05:09:09 UTC
>++++ main/mkl.cpp
>+@@ -365,7 +365,7 @@ bool gcta::comput_inverse_logdet_LDLT_mkl(eigenMatrix 
>+ #if GCTA_CPU_x86
>+     dpotrf(&uplo, &int_n, Vi_mkl, &int_n, &info);
>+ #else
>+-    dpotrf_(&uplo, &int_n, Vi_mkl, &int_n, &info);
>++    dpotrf_(&uplo, &int_n, Vi_mkl, &int_n, &info, 1);
>+ #endif
>+     //LOGGER << "Finished decompose" << endl;
>+     //spotrf( &uplo, &n, Vi_mkl, &n, &info );
>+@@ -386,7 +386,7 @@ bool gcta::comput_inverse_logdet_LDLT_mkl(eigenMatrix 
>+ #if GCTA_CPU_x86
>+         dpotri(&uplo, &int_n, Vi_mkl, &int_n, &info);
>+ #else
>+-        dpotri_(&uplo, &int_n, Vi_mkl, &int_n, &info);
>++        dpotri_(&uplo, &int_n, Vi_mkl, &int_n, &info, 1);
>+ #endif
>+         //LOGGER << "Inverse finished" << endl;
>+         //spotri( &uplo, &n, Vi_mkl, &n, &info );
>diff -uNr /usr/ports/biology/gcta/./files/patch-src_StatLib.cpp ./files/patch-src_StatLib.cpp
>--- /usr/ports/biology/gcta/./files/patch-src_StatLib.cpp	1970-01-01 09:00:00.000000000 +0900
>+++ ./files/patch-src_StatLib.cpp	2023-11-19 14:00:08.701099000 +0900
>@@ -0,0 +1,11 @@
>+--- src/StatLib.cpp.orig	2022-08-03 06:01:52 UTC
>++++ src/StatLib.cpp
>+@@ -118,7 +118,7 @@ namespace StatLib{
>+                 &lda, work, &lwork, &info);
>+ #else
>+         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;

Flags:

fuz: maintainer-approval? (jwb)

Actions: View | Diff

Attachments on bug 273219: 244205 | 244787 | 246307 | 246414