function err = tsmonitor(ts,it,time,x,ctx)
%
%
err = 0;
plot(x(:))
pause(.1);