01  function new_comm = MatMPI_Comm_dir(old_comm ,dir)
02  % MatMPI_Comm_dir  -  function for changing communication directory.
03  %
04  %  new_comm = MatMPI_Comm_dir(old_comm,dir)
05  %
06  new_comm = old_comm ;
07  
08  n = new_comm.machine_db.n_machine ;
09  
10  for i = 1:n
11      new_comm.machine_db.dir{1 ,i} = dir ;
12  end
13  
14  new_comm ;
15  
16  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17  % MatlabMPI
18  % Dr. Jeremy Kepner
19  % MIT Lincoln Laboratory
20  % kepner@ll.mit.edu
21  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22  % Copyright 2002 Massachusetts Institute of Technology
23  %
24  % Permission is herby granted, without payment, to copy, modify, display
25  % and distribute this software and its documentation, if any, for any
26  % purpose, provided that the above copyright notices and the following
27  % three paragraphs appear in all copies of this software.  Use of this
28  % software constitutes acceptance of these terms and conditions.
29  %
30  % IN NO EVENT SHALL MIT BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT,
31  % SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF
32  % THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF MIT HAS BEEN ADVISED OF THE
33  % POSSIBILITY OF SUCH DAMAGE.
34  %
35  % MIT SPECIFICALLY DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTIES INCLUDING,
36  % BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS
37  % FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.
38  %
39  % THIS SOFTWARE IS PROVIDED "AS IS," MIT HAS NO OBLIGATION TO PROVIDE
40  % MAINTENANCE, SUPPORT, UPDATE, ENHANCEMENTS, OR MODIFICATIONS.
41