Skip to content
Snippets Groups Projects
Commit 5b52c478 authored by Marcin Kirsz's avatar Marcin Kirsz
Browse files

fix for solver when N > M

parent f9152d22
No related branches found
No related tags found
No related merge requests found
Pipeline #43523 failed
...@@ -249,13 +249,13 @@ class MPI_Trainer: public Trainer { ...@@ -249,13 +249,13 @@ class MPI_Trainer: public Trainer {
printf("HINT: Check these CONFIG parameters: MPIWPCKG, MBLOCK, NBLOCK\n"); printf("HINT: Check these CONFIG parameters: MPIWPCKG, MBLOCK, NBLOCK\n");
} }
int lda1 = PHI_rows > PHI_cols ? phi_rows1 : phi_cols1; //int lda1 = PHI_rows > PHI_cols ? phi_rows1 : phi_cols1;
int lda2 = PHI_rows > PHI_cols ? phi_rows2 : phi_cols2; //int lda2 = PHI_rows > PHI_cols ? phi_rows2 : phi_cols2;
descinit_( sol, &PHI_cols, &ione, &rnb1, &cnb1, &izero, descinit_( sol, &PHI_cols, &ione, &rnb1, &cnb1, &izero,
&izero, &context1, /*leading dimension*/&phi_rows1, &info3); &izero, &context1, /*leading dimension*/&phi_cols1, &info3);
descinit_( sol2, &PHI_cols, &ione, &rnb2, &cnb2, &izero, descinit_( sol2, &PHI_cols, &ione, &rnb2, &cnb2, &izero,
&izero, &context2, /*leading dimension*/&phi_rows2, &info4); &izero, &context2, /*leading dimension*/&phi_cols1, &info4);
if(info3 != 0) { if(info3 != 0) {
printf("Error in descinit 1c, info = %d\n", info3); printf("Error in descinit 1c, info = %d\n", info3);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment