function stamp(cfile)
%	provide a time/date stamp for plots
time=clock;
chour=num2str(time(3));
cmin=num2str(time(4));
cstring=[cfile,' ', date, ' ', chour,':',cmin];

oldax=gca;
fchil=get(gcf,'chil');
ha=axes('position',[0,0,1,1]);
text(.99,.99,cstring,'units','norm','horizontalAl','left',...
   'VerticalAl','top','fontsize',8,'rot',-90);
set(ha,'color','none');
set(ha,'vis','off');

axes(oldax);



