diff --git a/trainer.h b/trainer.h index 772f7e81ceec63e07c95e0dbf32b1dc41c8652ca..f22e3be7b711aa2836d8f511db7d7b0880465362 100644 --- a/trainer.h +++ b/trainer.h @@ -225,9 +225,9 @@ class MPI_Trainer: public Trainer { int lda2 = phi_rows2 > phi_cols2 ? phi_rows2 : phi_cols2; descinit_( descPHI, &PHI_rows, &PHI_cols, &rnb1, &cnb1, &izero, - &izero, &context1, /*leading dimension*/&lda1, &info); + &izero, &context1, /*leading dimension*/&phi_rows1, &info); descinit_( descPHI2, &PHI_rows, &PHI_cols, &rnb2, &cnb2, &izero, - &izero, &context2, /*leading dimension*/&lda2, &info2); + &izero, &context2, /*leading dimension*/&phi_rows2, &info2); if(info != 0) { printf("Error in descinit 1a, info = %d\n", info); @@ -253,9 +253,9 @@ class MPI_Trainer: public Trainer { } descinit_( sol, &PHI_cols, &ione, &rnb1, &cnb1, &izero, - &izero, &context1, /*leading dimension*/&phi_cols1, &info3); + &izero, &context1, /*leading dimension*/&phi_rows1, &info3); descinit_( sol2, &PHI_cols, &ione, &rnb2, &cnb2, &izero, - &izero, &context2, /*leading dimension*/&phi_cols2, &info4); + &izero, &context2, /*leading dimension*/&phi_rows2, &info4); if(info3 != 0) { printf("Error in descinit 1c, info = %d\n", info3);