Changeset 5835

Timestamp:

09/15/10 22:19:15 (15 years ago)

Author:

Eric.Larour

Message:

Fixed serious bug, not found by Valgrind. MPI_DOUBLE instead of MPI_INT
in MPI_Bcast call, and equivalents! Sa race!!!!

File:

• issm/trunk/src/c/modules/PenaltyConstraintsx/RiftConstraints.cpp (modified) (2 diffs)

issm/trunk/src/c/modules/PenaltyConstraintsx/RiftConstraints.cpp

@@ -135 +135 @@
         /*Is there just one found? that would mean we have frozen! : */
         #ifdef _PARALLEL_
-        MPI_Reduce (&found,&mpi_found,1,MPI_DOUBLE,MPI_MAX,0,MPI_COMM_WORLD );
-        MPI_Bcast(&mpi_found,1,MPI_DOUBLE,0,MPI_COMM_WORLD);                
+        MPI_Reduce (&found,&mpi_found,1,MPI_INT,MPI_MAX,0,MPI_COMM_WORLD );
+        MPI_Bcast(&mpi_found,1,MPI_INT,0,MPI_COMM_WORLD);                
         found=mpi_found;
         #endif
@@ -329 +329 @@
 
         #ifdef _PARALLEL_
-        MPI_Reduce (&max_penetration,&mpi_max_penetration,1,MPI_DOUBLE,MPI_MAX,0,MPI_COMM_WORLD );
-        MPI_Bcast(&mpi_max_penetration,1,MPI_DOUBLE,0,MPI_COMM_WORLD);                
+        MPI_Reduce (&max_penetration,&mpi_max_penetration,1,MPI_INT,MPI_MAX,0,MPI_COMM_WORLD );
+        MPI_Bcast(&mpi_max_penetration,1,MPI_INT,0,MPI_COMM_WORLD);                
         max_penetration=mpi_max_penetration;
         #endif