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

269 %RPI STR F u l l LAM SSI RPI s t r i n g given i n i t i a l l e t t e r ( s )
270 %
271 % r p i = r p i s t r ( c )
272 %
273 % c i n i t i a l char ( s ) o f r p i name : t , l , u , s
274 % r p i f u l l r p i name , one o f : tcp , lamd , usysv , sysv
275 % Use ’ ’ i f c doesn ’ t match to any supported r p i
276 %
277
278 f l a g = nargin˜=1 | | isempty ( c ) | | ˜ i s c h a r ( c ) ;
279 i f f l a g
280 return
281 end
282
283 c=lower ( c ( 1 ) ) ;
284 r p i s ={ ’ tcp ’ , ’ lamd ’ , ’ usysv ’ , ’ sysv ’ , ’ none ’ } ; % ’ none ’ i s s e n t i n e l
285
286 f o r i =1: l e n g t h ( r p i s )
287 i f r p i s { i }(1)==c
288 break
289 end
290 end
291
292 i f i