From 2faf5bc34ce4e5f2d9a4298ba3465880a04f1974 Mon Sep 17 00:00:00 2001
From: Marcin Kirsz <mkirsz@ed.ac.uk>
Date: Tue, 8 Oct 2024 13:29:46 +0100
Subject: [PATCH] fix for solver when N > M
---
trainer.h | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/trainer.h b/trainer.h
index a4a5e11..dfccdd2 100644
--- a/trainer.h
+++ b/trainer.h
@@ -230,9 +230,9 @@ class MPI_Trainer: public Trainer {
printf("HINT: Check these CONFIG parameters: MPIWPCKG, MBLOCK, NBLOCK\n");
}
- descinit_( descB, &PHI_rows, &ione, &rnb1, &cnb1, &izero,
+ descinit_( descB, &PHI_cols, &ione, &rnb1, &cnb1, &izero,
&izero, &context1, /*leading dimension*/&phi_cols1, &info);
- descinit_( descB2, &PHI_rows, &ione, &rnb2, &cnb2, &izero,
+ descinit_( descB2, &PHI_cols, &ione, &rnb2, &cnb2, &izero,
&izero, &context2, /*leading dimension*/&phi_cols2, &info2);
if(info != 0) {
--
GitLab