replacing MPI_INTEGER with MPI_INT

diff --git a/src/ParaMEDMEM/StructuredCoincidentDEC.cxx b/src/ParaMEDMEM/StructuredCoincidentDEC.cxx
index f59b17e81e98086290396e99fb3d0cfc26a22773..a175854d415bb88e1c0de260a054ba1e414f184e 100644 (file)
--- a/src/ParaMEDMEM/StructuredCoincidentDEC.cxx
+++ b/src/ParaMEDMEM/StructuredCoincidentDEC.cxx
@@ -194,22 +194,22 @@ void StructuredCoincidentDEC::broadcastTopology(BlockTopology*& topo, int tag)
                for (int i=0; i< group->size(); i++)
                {
                        if (i!= rank_master)
-                               _comm_interface->send(&rank_master,1,MPI_INTEGER, i,tag+i,*(group->getComm()));
+                               _comm_interface->send(&rank_master,1,MPI_INT, i,tag+i,*(group->getComm()));
                }
        }
        else
        {
                MESSAGE(" rank "<<group->myRank()<< " waiting ...");
-               _comm_interface->recv(&rank_master, 1,MPI_INTEGER, MPI_ANY_SOURCE, tag+group->myRank(), *(group->getComm()),&status);
+               _comm_interface->recv(&rank_master, 1,MPI_INT, MPI_ANY_SOURCE, tag+group->myRank(), *(group->getComm()),&status);
                MESSAGE(" rank "<<group->myRank()<< "received master rank"<<rank_master);
        }
        // The topology is broadcasted to all processsors in the group
-       _comm_interface->broadcast(&size, 1,MPI_INTEGER,rank_master,*(group->getComm()));
+       _comm_interface->broadcast(&size, 1,MPI_INT,rank_master,*(group->getComm()));
        
        int* buffer=new int[size];
        if (topo!=0 && topo->getProcGroup()->myRank()==0)
                copy(serializer, serializer+size, buffer); 
-       _comm_interface->broadcast(buffer,size,MPI_INTEGER,rank_master,*(group->getComm()));
+       _comm_interface->broadcast(buffer,size,MPI_INT,rank_master,*(group->getComm()));
        
        // Processors which did not possess the source topology 
        // unserialize it