From f74ae4bac2ef0ed52e0d5cec65a6c47a540ce84d Mon Sep 17 00:00:00 2001
From: vbd <vbd>
Date: Thu, 8 Nov 2007 15:36:35 +0000
Subject: [PATCH] replacing MPI_INTEGER with MPI_INT

---
 src/ParaMEDMEM/StructuredCoincidentDEC.cxx | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/ParaMEDMEM/StructuredCoincidentDEC.cxx b/src/ParaMEDMEM/StructuredCoincidentDEC.cxx
index f59b17e81..a175854d4 100644
--- 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
-- 
2.39.2