From: eap <eap@opencascade.com>
Date: Tue, 11 Nov 2008 15:37:48 +0000 (+0000)
Subject: particular approach to MPI_Attr_get() with MPICH2
X-Git-Url: http://git.salome-platform.org/gitweb/?a=commitdiff_plain;h=f3b4ffa03ffc7989a6c453a4d12e0aa64a788204;p=tools%2Fmedcoupling.git

particular approach to MPI_Attr_get() with MPICH2
---

diff --git a/src/ParaMEDMEM/MPI_Access.cxx b/src/ParaMEDMEM/MPI_Access.cxx
index 35f703ca8..c14d3787d 100644
--- a/src/ParaMEDMEM/MPI_Access.cxx
+++ b/src/ParaMEDMEM/MPI_Access.cxx
@@ -62,7 +62,13 @@ MPI_Access::MPI_Access(MPIProcessorGroup * ProcessorGroup, int BaseTag, int MaxT
   int flag ;
 //MPI_Attr_get does not run with _IntraCommunicator ???
   //MPI_Attr_get(*_IntraCommunicator,MPI_TAG_UB,&mpitagub,&flag) ;
+#ifdef MPICH2
+  void *v;
+  MPI_Attr_get( MPI_COMM_WORLD, MPI_TAG_UB, &v, &flag );
+  mpitagub = *(int*)v;
+#else  
   MPI_Attr_get(MPI_COMM_WORLD,MPI_TAG_UB,&mpitagub,&flag) ;
+#endif
   if ( BaseTag != 0 ) {
     BaseTag = (BaseTag/ModuloTag)*ModuloTag ;
   }