From: <rik...@us...> - 2009-12-07 15:06:57
|
Revision: 6604 http://octave.svn.sourceforge.net/octave/?rev=6604&view=rev Author: rikcorradini Date: 2009-12-07 15:06:48 +0000 (Mon, 07 Dec 2009) Log Message: ----------- Added Paths: ----------- trunk/octave-forge/extra/openmpi_ext/inst/hellocell.m Added: trunk/octave-forge/extra/openmpi_ext/inst/hellocell.m =================================================================== --- trunk/octave-forge/extra/openmpi_ext/inst/hellocell.m (rev 0) +++ trunk/octave-forge/extra/openmpi_ext/inst/hellocell.m 2009-12-07 15:06:48 UTC (rev 6604) @@ -0,0 +1,54 @@ +## Copyright (C) 2009 Riccardo Corradini <ric...@ya...> +## under the terms of the GNU General Public License. +## +## This program is free software; you can redistribute it and/or modify +## it under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 2 of the License, or +## (at your option) any later version. +## +## This program 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 General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with this program; If not, see <http://www.gnu.org/licenses/>. + + +# Please add the oct files openmpi_ext folder +# For instance +addpath("../src"); +# if you have 4 cores or a network of 4 computers with a ssh connection with no password and same openmpi 1.3.3 installation +# type at the terminal mpirun -np 4 octave --eval hellocell + + + MPI_Init(); + # the string NEWORLD is just a label could be whatever you want + CW = MPI_Comm_Load("NEWORLD"); + + + + my_rank = MPI_Comm_rank(CW); + p = MPI_Comm_size(CW); + # TAG is very important to identify the message + TAG = 1; + + + message=""; + if (my_rank != 0) + message = {magic(3) 17 'fred'; ... + 'AliceBettyCarolDianeEllen' 'yp' 42; ... + {1} 2 3}; + rankvect = 0; + [info] = MPI_Send(message,rankvect,TAG,CW); + else + for source = 1:p-1 + disp("We are at rank 0 that is master etc.."); + [message, info] = MPI_Recv(source,TAG,CW); + message + endfor + end + + + MPI_Finalize(); + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |