diff --git a/trainer.h b/trainer.h index a9ca39a32703a370d9888801d0fd9802bde62263..70956fdd966085f06775e7232011e57f40ec24d7 100644 --- a/trainer.h +++ b/trainer.h @@ -245,7 +245,7 @@ class MPI_Trainer: public Trainer { &izero, &context2, /*leading dimension*/&phi_rows2, &info2); descinit_( sol, &PHI_cols, &ione, &rnb1, &cnb1, &izero, - &izero, &context1, /*leading dimension*/&lda1, &info3); + &izero, &context1, /*leading dimension*/&phi_cols1, &info3); if(info != 0) { printf("Error in descinit 1b, info = %d\n", info);