sundialsTB, a Matlab Interface to SUNDIALS - Site Index Page ...

38 end
39
40 cmd slaves = s p r i n t f ( ’ mpiruns ( ’ ’%s ’ ’ ) ’ , f c t s t r ) ;
41
42 i f debug
43 cmd = ’ xterm ’ ;
44 args = { ’−e ’ , ’ matlab ’ , ’−nosplash ’ , ’−nojvm ’ , ’−r ’ , cmd slaves } ;
45 e l s e
46 cmd = ’ matlab ’ ;
47 args = { ’−nosplash ’ , ’−nojvm ’ , ’−r ’ , cmd slaves } ;
48 end
49
50 [ i n f o c h i l d r e n e r r s ] = MPI Comm spawn(cmd , args , nslaves , ’NULL ’ ,0 , ’SELF ’ ) ;
51
52 [ i n f o NEWORLD] = MPI Intercomm merge ( c h i l d r e n , 0 ) ;
53
54 nvm( 1 ,NEWORLD) ;
55 f e v a l ( f c t ,NEWORLD) ;
56 nvm ( 2 ) ;
57
58 LAM Finish ;
Purpose
mpiruns
mpiruns runs the parallel example on a child MATLAB process.
Synopsis
function [] = mpiruns(fct)
Description
mpiruns runs the parallel example on a child MATLAB process.
This function should not be called directly. It is called
by mpirun on the spawned child processes.
Source Code
1 f u n c t i o n [ ] = mpiruns ( f c t )
5
6 % Radu Serban
7 % Copyright ( c ) 2005 , The Regents o f the U n i v e r s i t y o f C a l i f o r n i a .
8 % $Revision$Date$
9
10 [ dum hostname]= system ( ’ hostname ’ ) ;
11 f p r i n t f ( ’ c h i l d MATLAB p r o c e s s on %s \n ’ , hostname ) ;
12
13 MPI Init ;
14
15 MPI Errhandler set ( ’WORLD’ , ’RETURN’ ) ;
16
17 [ i n f o parent ] = MPI Comm get parent ;
18
58