BUG: fix mpi send tag

include/lsgrmController.txx

@@ -33,6 +33,7 @@ void Controller<TSegmenter>::Modified()
 template<class TSegmenter>
 void Controller<TSegmenter>::RunSegmentation()
 {
+  itkDebugMacro(<< "Entering RunSegmentation()");
 
   if (m_TilingMode == LSGRM_TILING_AUTO || m_TilingMode == LSGRM_TILING_USER)
     {

include/lsgrmHeader.h

@@ -55,12 +55,12 @@ void GatherMe(T& x, MPI_Datatype dataType)
       }
     // Dispatch
     for (unsigned int p = 1 ; p < otb::MPIConfig::Instance()->GetNbProcs() ; p++)
-      MPI_Send(&x, 1, dataType, p, MPI_ANY_TAG, MPI_COMM_WORLD);
+      MPI_Send(&x, 1, dataType, p, 0, MPI_COMM_WORLD);
     }
   else
     {
     // Slave process
-    MPI_Send(&x, 1, dataType, 0, MPI_ANY_TAG, MPI_COMM_WORLD);
+    MPI_Send(&x, 1, dataType, 0, 0, MPI_COMM_WORLD);
     MPI_Recv(&x, 1, dataType, 0, MPI_ANY_TAG, MPI_COMM_WORLD, MPI_STATUS_IGNORE);
     }
 }