diff --git a/trainer.h b/trainer.h index dfccdd218d9753633c5f5609aa9e4ffdc8a2346f..8772f24fb6cc6cfb87b1d7affd60b15d0cf38613 100644 --- a/trainer.h +++ b/trainer.h @@ -217,10 +217,11 @@ class MPI_Trainer: public Trainer { int descB[9], descB2[9]; int info, info2; + descinit_( descPHI, &PHI_rows, &PHI_cols, &rnb1, &cnb1, &izero, - &izero, &context1, /*leading dimension*/&phi_rows1, &info); + &izero, &context1, /*leading dimension*/&phi_cols1, &info); descinit_( descPHI2, &PHI_rows, &PHI_cols, &rnb2, &cnb2, &izero, - &izero, &context2, /*leading dimension*/&phi_rows2, &info2); + &izero, &context2, /*leading dimension*/&phi_cols2, &info2); if(info != 0) { printf("Error in descinit 1a, info = %d\n", info);