From 5e55e8ce629a4b2c6927862f4fc412e932f35ff0 Mon Sep 17 00:00:00 2001
From: Marcin Kirsz <mkirsz@ed.ac.uk>
Date: Tue, 8 Oct 2024 15:10:48 +0100
Subject: [PATCH] fix for solver when N > M
---
trainer.h | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/trainer.h b/trainer.h
index 7b9f51e..7d20216 100644
--- a/trainer.h
+++ b/trainer.h
@@ -265,7 +265,7 @@ class MPI_Trainer: public Trainer {
printf("Error in descinit 2c, info = %d\n", info4);
}
- char trans='N';
+ char trans= PHI_rows > PHI_cols ? 'N' : 'T';
int nrhs = 1;
int ia = 1;
--
GitLab