From 8b71b7b29fd1c8507991c0435faa6742b72ccc78 Mon Sep 17 00:00:00 2001
From: Marcin Kirsz <mkirsz@ed.ac.uk>
Date: Tue, 8 Oct 2024 14:26:06 +0100
Subject: [PATCH] fix for solver when N > M
---
trainer.h | 3 +++
1 file changed, 3 insertions(+)
diff --git a/trainer.h b/trainer.h
index 704e861..4163421 100644
--- a/trainer.h
+++ b/trainer.h
@@ -251,6 +251,9 @@ class MPI_Trainer: public Trainer {
descinit_( sol2, &PHI_cols, &ione, &rnb2, &cnb2, &izero,
&izero, &context2, /*leading dimension*/&phi_rows2, &info4);
+ std::cout << "phi_rows1, phi_cols1 " << phi_rows1 << ", " << phi_cols1 << std::endl;
+ std::cout << "phi_rows2, phi_cols2 " << phi_rows2 << ", " << phi_cols2 << std::endl;
+
if(info != 0) {
printf("Error in descinit 1b, info = %d\n", info);
}
--
GitLab