remedy segfault with openmpi/intelmpi in MPI_Reduc

cyclops-community · Nov 13, 2020 · c5c7cec · c5c7cec
1 parent 36b1f6d
commit c5c7cec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/contraction/ctr_2d_general.cxx b/src/contraction/ctr_2d_general.cxx
@@ -431,7 +431,7 @@ namespace CTF_int {
         if (cdt_C->rank == owner_C)
           cdt_C->red(MPI_IN_PLACE, op_C, s_C, sr_C->mdtype(), sr_C->addmop(), owner_C);
         else
-          cdt_C->red(op_C, NULL, s_C, sr_C->mdtype(), sr_C->addmop(), owner_C);
+          cdt_C->red(op_C, op_C, s_C, sr_C->mdtype(), sr_C->addmop(), owner_C);
         if (rank_C == owner_C){
           sr_C->copy(ctr_sub_lda_C, ctr_lda_C,
                      op_C, ctr_sub_lda_C, sr_C->mulid(),