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

53 e r r o r ( ’ LAM Init : : cannot f i n d l i s t o f h o s t s ’ ) ;
54 end
55 end
56 end
57
58 %% RPI
59
60 i f nargin >1
61 % RPI passed as an argument
62 i f ˜ i s c h a r ( r p i )
63 e r r o r ( ’ LAM Init : 2nd arg i s not a s t r i n g ’ )
64 e l s e
65 % f u l l r p i name , i f s i n g l e l e t t e r used
66 r p i=r p i s t r ( r p i ) ;
67 i f isempty ( r p i )
68 e r r o r ( ’ LAM Init : 2nd arg i s not a known RPI ’ )
69 end
70 end
71 e l s e
72 % We must get RPI from somewhere e l s e . . .
73 i f ˜ isempty (RPI)
74 r p i = r p i s t r (RPI ) ; % Variable RPI d e f i n e d above
75 e l s e
76 RPI = getenv ( ’ LAM MPI SSI rpi ’ ) ;
77 i f ˜ isempty (RPI)
78 r p i = r p i s t r (RPI ) ; % RPI d e f i n e d in environment
79 e l s e
80 e r r o r ( ’ LAM Init : : cannot f i n d RPI ’ ) ;
81 end
82 end
83 end
84
85 % Number o f s l a v e s
86
87 i f nargin >0
88 i f ˜ i s r e a l ( n s l a v e s ) | | f i x ( n s l a v e s )˜= n s l a v e s | | nslaves>=l e n g t h ( h o s t s )
89 e r r o r ( ’ LAM Init : 1 s t arg i s not a v a l i d #s l a v e s ’ )
90 end
91 e l s e
92 n s l a v e s = l e n g t h ( h o s t s ) −1;
93 end
94
95 %−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
96 % LAMHALT %
97 %−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
98 % r e a s o n s to lamhalt :
99 % − not enough nodes ( n s l v +1) % NHL < NSLAVES+1
100 % − l o c a l h o s t not in l i s t % weird − j u s t lamboot (NHL=0)
101 % − l o c a l h o s t not l a s t in l i s t % weird − j u s t lamboot (NHL=0)
102 %−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
103
104 % Lam Nodes Output
105 [ stat , LNO] = system ( ’ lamnodes ’ ) ;
106 i f ˜ s t a t % a l r e a d y lambooted
61