stanufu

 standard "user function" called after each cont.step

0001 function cstop=stanufu(p,brout,ds)
0002 % standard "user function" called after each cont.step
0003 if(p.errchecksw>0) 
0004 fprintf('%4i %6.4f  %5.3e  %5.3e  %4i  %s   %6.4f  ', ...
0005     p.count, p.lam, p.res, p.err, p.iter, p.meth, ds); 
0006 else fprintf('%4i %6.4f  %5.3e  %4i  %s    %6.4f   ', ...
0007     p.count, p.lam, p.res, p.iter, p.meth, ds); 
0008 end 
0009 for i=1:p.npb; fprintf('%6.4f   ',brout(i)); end; 
0010 if(p.spcalcsw==1) fprintf(' %2i ', p.ineg); end; 
0011 % put anything else here
0012 fprintf('\n');
0013 cstop=0; 
0014 if(p.lam<p.lammin) 
0015     fprintf('lam=%g < lammin=%g, stopping\n',p.lam,p.lammin); cstop=1; 
0016 end 
0017 if(p.lam>p.lammax) 
0018     fprintf('lam=%g > lammax=%g, stopping\n',p.lam,p.lammax); cstop=1; 
0019 end