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

107
108 emptyflag = f a l s e ;
109 i f isempty (LNO)
110 % t h i s shouldn ’ t happen
111 emptyflag=true ;
112 % i t ’ s MATLAB’ s f a u l t I think
113 f p r i n t f ( ’ pushing stubborn MATLAB ” system ” c a l l ( lamnodes ) : ’ ) ;
114 end
115
116 while isempty (LNO) | | s t a t
117 f p r i n t f ( ’ . ’ ) ;
118 [ stat , LNO] = system ( ’ lamnodes ’ ) ;
119 end
120 i f emptyflag
121 f p r i n t f ( ’ \n ’ ) ;
122 end
123
124 LF = char ( 1 0 ) ;
125 LNO = s p l i t (LNO, LF ) ; % s p l i t l i n e s in rows at \n
126
127 [ stat , NHL] = system ( ’ lamnodes | wc −l ’ ) ; % Number o f Hosts in Lamnodes
128
129 emptyflag = f a l s e ; % again ,
130 i f isempty (NHL) % t h i s shouldn ’ t happen
131 emptyflag=true ; % i t ’ s MATLAB’ s f a u l t I think
132 f p r i n t f ( ’ pushing stubborn MATLAB ” system ” c a l l ( lamnodes | wc ) : ’ ) ;
133 end
134 while isempty (NHL) | | s t a t
135 f p r i n t f ( ’ . ’ ) ;
136 [ stat , NHL] = system ( ’ lamnodes | wc −l ’ ) ;
137 end
138 i f emptyflag
139 f p r i n t f ( ’ \n ’ ) ;
140 end
141
142 NHL = str2num (NHL) ;
143 i f NHL ˜= s i z e (LNO, 1 ) | | ˜ NHL>0 % Oh my, l o g i c e r r o r
144 NHL= 0 ; % pretend t h e r e are no nodes
145 disp ( ’ LAM Init : i n t e r n a l l o g i c e r r o r : lamboot ’ )
146 end % to f o r c e lamboot w/o lamhalt
147 i f isempty ( f i n d s t r (LNO( end , : ) , ’ t h i s n o d e ’ ) ) % master computer l a s t in l i s t
148 disp ( ’ LAM Init : l o c a l host i s not l a s t in n o d e l i s t , hope that ’ ’ s r i g h t ’ )
149 b e f o r e f l a g =0;
150 f o r i =1: s i z e (LNO, 1 )
151 i f ˜ isempty ( f i n d s t r (LNO( i , : ) , ’ t h i s n o d e ’ ) )
152 b e f o r e f l a g =1;
153 break ; % well , not 1 s t but i t ’ s t h e r e
154 end
155 end % we a l r e a d y warned the user
156 i f ˜ b e f o r e f l a g % Oh my, i n c r e d i b l e , not t h e r e
157 NHL= 0 ; % pretend t h e r e are no nodes
158 disp ( ’ LAM Init : l o c a l host not in LAM? lamboot ’ )
159 end
160 end % to f o r c e lamboot w/o lamhalt
62