replacing MPI_INTEGER with MPI_INT

diff --git a/src/ParaMEDMEM/ExplicitCoincidentDEC.cxx b/src/ParaMEDMEM/ExplicitCoincidentDEC.cxx
index e5b3632a8cf55aef69310cc3671d1aaea9c24a6d..61a3f930ef5411565e0dc1c4cc86137319d720b1 100644 (file)
--- a/src/ParaMEDMEM/ExplicitCoincidentDEC.cxx
+++ b/src/ParaMEDMEM/ExplicitCoincidentDEC.cxx
@@ -195,8 +195,8 @@ void ExplicitCoincidentDEC::broadcastTopology(const ExplicitTopology* toposend,
                        if (!toposend->getProcGroup()->contains(itarget))
                        {
                          //                            int nbelem = toposend->getNbLocalElements();
-                               _comm_interface->send(&size,1,MPI_INTEGER, itarget,tag+itarget,*(group->getComm()));
-                               _comm_interface->send(serializer, size, MPI_INTEGER, itarget, tag+itarget,*(group->getComm()));                                 
+                               _comm_interface->send(&size,1,MPI_INT, itarget,tag+itarget,*(group->getComm()));
+                               _comm_interface->send(serializer, size, MPI_INT, itarget, tag+itarget,*(group->getComm()));                                     
                        }
                }
        }
@@ -211,9 +211,9 @@ void ExplicitCoincidentDEC::broadcastTopology(const ExplicitTopology* toposend,
                        if (!toporecv->getProcGroup()->contains(isource))
                        {
                                int nbelem;
-                               _comm_interface->recv(&nbelem, 1, MPI_INTEGER, isource, tag+myworldrank, *(group->getComm()), &status);
+                               _comm_interface->recv(&nbelem, 1, MPI_INT, isource, tag+myworldrank, *(group->getComm()), &status);
                                int* buffer = new int[nbelem];
-                               _comm_interface->recv(buffer, nbelem, MPI_INTEGER, isource,tag+myworldrank, *(group->getComm()), &status);                              
+                               _comm_interface->recv(buffer, nbelem, MPI_INT, isource,tag+myworldrank, *(group->getComm()), &status);                          
                        
                                ExplicitTopology* topotemp=new ExplicitTopology();
                                topotemp->unserialize(buffer, *_comm_interface);
@@ -261,7 +261,7 @@ void ExplicitCoincidentDEC::transferMappingToSource()
          nb_transfer_union[unionrank]=_explicit_mapping.getNbDistantElems(i);
          //      delete sourcegroup;
        }
-      _comm_interface->allToAll(nb_transfer_union, 1, MPI_INTEGER, dummy_recv, 1, MPI_INTEGER, MPI_COMM_WORLD);
+      _comm_interface->allToAll(nb_transfer_union, 1, MPI_INT, dummy_recv, 1, MPI_INT, MPI_COMM_WORLD);
       
       int* sendbuffer= _explicit_mapping.serialize(_topotarget->getProcGroup()->myRank());
       
@@ -283,7 +283,7 @@ void ExplicitCoincidentDEC::transferMappingToSource()
          recvcounts[i]=0;
          recvdispls[i]=0;
        }
-      _comm_interface->allToAllV(sendbuffer, sendcounts, senddispls, MPI_INTEGER, dummyrecv, recvcounts, senddispls, MPI_INTEGER, MPI_COMM_WORLD);
+      _comm_interface->allToAllV(sendbuffer, sendcounts, senddispls, MPI_INT, dummyrecv, recvcounts, senddispls, MPI_INT, MPI_COMM_WORLD);
       
     }
   //receiving in the source subdomains the mapping sent by targets
@@ -294,7 +294,7 @@ void ExplicitCoincidentDEC::transferMappingToSource()
       int* dummy_send=new int[world_size];
       for (int i=0; i<world_size; i++)
        dummy_send[i]=0;
-      _comm_interface->allToAll(dummy_send, 1, MPI_INTEGER, nb_transfer_union, 1, MPI_INTEGER, MPI_COMM_WORLD);
+      _comm_interface->allToAll(dummy_send, 1, MPI_INT, nb_transfer_union, 1, MPI_INT, MPI_COMM_WORLD);
       
       int total_size=0;
       for (int i=0; i< world_size; i++)
@@ -323,7 +323,7 @@ void ExplicitCoincidentDEC::transferMappingToSource()
          sendcounts[i]=0;
          senddispls[i]=0;
        }
-      _comm_interface->allToAllV(dummysend, sendcounts, senddispls, MPI_INTEGER, mappingbuffer, recvcounts, recvdispls, MPI_INTEGER, MPI_COMM_WORLD);
+      _comm_interface->allToAllV(dummysend, sendcounts, senddispls, MPI_INT, mappingbuffer, recvcounts, recvdispls, MPI_INT, MPI_COMM_WORLD);
       
       _explicit_mapping.unserialize(world_size,nb_transfer_union,nbtarget, targetranks, mappingbuffer);
     }