casa6

//# MPITransport.cc: class which define an MPI parallel transport layer

//# Copyright (C) 1998,1999,2000

//# Associated Universities, Inc. Washington DC, USA.

//#

//# This library is free software; you can redistribute it and/or modify it

//# under the terms of the GNU Library General Public License as published by

//# the Free Software Foundation; either version 2 of the License, or (at your

//# option) any later version.

//#

//# This library is distributed in the hope that it will be useful, but WITHOUT

//# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

//# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public

//# License for more details.

//#

//# You should have received a copy of the GNU Library General Public License

//# along with this library; if not, write to the Free Software Foundation,

//# Inc., 675 Massachusetts Ave, Cambridge, MA 02139, USA.

//#

//# Correspondence concerning AIPS++ should be addressed as follows:

//#        Internet email: aips2-request@nrao.edu.

//#        Postal address: AIPS++ Project Office

//#                        National Radio Astronomy Observatory

//#                        520 Edgemont Road

//#                        Charlottesville, VA 22903-2475 USA

//#

//# $Id$

​

#ifdef HAVE_MPI

​

#include <memory>

​

#include <casacore/casa/Containers/Record.h>

#include <casacore/casa/IO/AipsIO.h>

#include <casacore/casa/IO/MemoryIO.h>

​

#include <synthesis/Parallel/MPITransport.h>

#include <synthesis/Parallel/MPIError.h>

#include <synthesis/Parallel/Algorithm.h>

​

#include <mpi.h>

​

using std::shared_ptr;

using namespace casacore;

namespace casa { //# NAMESPACE CASA - BEGIN

​

MPITransport::MPITransport() : PTransport()

{

// Default constructor

//

  // Set default tag and source/destination

  setAnyTag();

  connectAnySource();

};

​

MPITransport::MPITransport(Int argc, Char *argv[]) : PTransport()

{

   if (debug_p) {

       cerr << "constructing MPITransport" << std::endl;

   }

// Construct from argc, argv

//

   int flag=0;

   MPI_Initialized(&flag);