From 6b49ddf9a6ed83a59dd6e5c4e22617146af96859 Mon Sep 17 00:00:00 2001
From: Marcin Kirsz <mkirsz@ed.ac.uk>
Date: Tue, 8 Oct 2024 14:13:11 +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 a9ca39a..70956fd 100644
--- a/trainer.h
+++ b/trainer.h
@@ -245,7 +245,7 @@ class MPI_Trainer: public Trainer {
&izero, &context2, /*leading dimension*/&phi_rows2, &info2);
descinit_( sol, &PHI_cols, &ione, &rnb1, &cnb1, &izero,
- &izero, &context1, /*leading dimension*/&lda1, &info3);
+ &izero, &context1, /*leading dimension*/&phi_cols1, &info3);
if(info != 0) {
printf("Error in descinit 1b, info = %d\n", info);
--
GitLab