-// Copyright (C) 2007-2014 CEA/DEN, EDF R&D
+// Copyright (C) 2007-2015 CEA/DEN, EDF R&D
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
#include <sstream>
#include <string>
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
#include <mpi.h>
#endif
int size=vec.size();
if (MyGlobals::_Verbose>1000)
std::cout << "proc " << MyGlobals::_Rank << " : --> SendDoubleVec " << size << std::endl;
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
MPI_Send(&size, 1, MPI_INT, target, tag, MPI_COMM_WORLD);
MPI_Send(const_cast<double*>(&vec[0]), size, MPI_DOUBLE, target, tag+100, MPI_COMM_WORLD);
#endif
{
int tag = 111002;
int size;
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
MPI_Status status;
MPI_Recv(&size, 1, MPI_INT, source, tag, MPI_COMM_WORLD, &status);
if (MyGlobals::_Verbose>1000)
{
int tag = 111002;
int size;
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
MPI_Status status;
MPI_Recv(&size, 1, MPI_INT, source, tag, MPI_COMM_WORLD, &status);
if (MyGlobals::_Verbose>1000)
int size=vec.size();
if (MyGlobals::_Verbose>1000)
std::cout << "proc " << MyGlobals::_Rank << " : --> SendIntVec " << size << std::endl;
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
MPI_Send(&size, 1, MPI_INT, target, tag, MPI_COMM_WORLD);
MPI_Send(const_cast<int*>(&vec[0]), size,MPI_INT, target, tag+100, MPI_COMM_WORLD);
#endif
{
int tag = 111003;
int size;
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
MPI_Status status;
MPI_Recv(&size, 1, MPI_INT, source, tag, MPI_COMM_WORLD, &status);
if (MyGlobals::_Verbose>1000)
{
int tag = 111003;
int size;
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
MPI_Status status;
MPI_Recv(&size, 1, MPI_INT, source, tag, MPI_COMM_WORLD, &status);
if (MyGlobals::_Verbose>1000)
size[2]=da->getNumberOfComponents();
if (MyGlobals::_Verbose>1000)
std::cout << "proc " << MyGlobals::_Rank << " : --> SendDataArrayInt " << size[0] << std::endl;
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
MPI_Send(&size, 3, MPI_INT, target, tag, MPI_COMM_WORLD);
const int *p=da->getConstPointer();
MPI_Send(const_cast<int*>(&p[0]), size[0] ,MPI_INT, target, tag+100, MPI_COMM_WORLD);
{
int tag = 111004;
int size[3];
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
MPI_Status status;
MPI_Recv(size, 3, MPI_INT, source, tag, MPI_COMM_WORLD, &status);
if (MyGlobals::_Verbose>1000)
size[2]=da->getNumberOfComponents();
if (MyGlobals::_Verbose>1000)
std::cout << "proc " << MyGlobals::_Rank << " : --> SendDataArrayDouble " << size[0] << std::endl;
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
MPI_Send(&size, 3, MPI_INT, target, tag, MPI_COMM_WORLD);
const double *p=da->getConstPointer();
MPI_Send(const_cast<double*>(&p[0]), size[0] ,MPI_DOUBLE, target, tag+100, MPI_COMM_WORLD);
{
int tag = 111005;
int size[3];
-#ifdef HAVE_MPI2
+#ifdef HAVE_MPI
MPI_Status status;
MPI_Recv(size, 3, MPI_INT, source, tag, MPI_COMM_WORLD, &status);
if (MyGlobals::_Verbose>1000)