timestamp(varargin)

function timestamp(varargin)
%
%*******************************************************************************
%
%! TIMESTAMP prints the current YMDHMS date as a time stamp.
%
%
%  Example:
%
%    May 31 2001   9:45:54.872 AM
%
%  Modified:
%
%    31 May 2001
%
%  Author:
%
%    John Burkardt
%
%  Parameters:
%
%    None
%
%***FIRST EXECUTABLE STATEMENT  TIMESTAMP
persistent ampm d datemlv h m mm month n s timemlv values y zone ; if isempty(month),month={};end; 

if isempty(ampm), ampm=repmat(' ',1,8); end;
if isempty(d), d=0; end;
if isempty(datemlv), datemlv=repmat(' ',1,8); end;
if isempty(h), h=0; end;
if isempty(m), m=0; end;
if isempty(mm), mm=0; end;
if isempty(month), month = {'January  ', 'February ', 'March    ', 'April    ','May      ', 'June     ', 'July     ', 'August   ','September', 'October  ', 'November ', 'December ' }; end;
if isempty(n), n=0; end;
if isempty(s), s=0; end;
if isempty(timemlv), timemlv=repmat(' ',1,10); end;
if isempty(values), values=zeros(1,8); end;
if isempty(y), y=0; end;
if isempty(zone), zone=repmat(' ',1,5); end;
%
datemlv=datestr(now,'yyyymmdd');
timemlv=[datestr(now,'HHMMSS'),'.',num2str(round((sum(clock)-fix(sum(clock))).*1000),3)];
values (1)=fix(str2num(datestr(now,'yyyy')));
values (2)=fix(str2num(datestr(now,'mm')));
values (3)=fix(str2num(datestr(now,'dd')));
values (4)=0;
values (5)=fix(str2num(datestr(now,'HH')));
values (6)=fix(str2num(datestr(now,'MM')));
values (7)=fix(str2num(datestr(now,'SS')));
values (8)=fix(round((sum(clock)-fix(sum(clock))).*1000));
y = fix(values(1));
m = fix(values(2));
d = fix(values(3));
h = fix(values(5));
n = fix(values(6));
s = fix(values(7));
mm = fix(values(8));
if( h < 12 )
ampm = 'AM';
elseif( h == 12 ) ;
if( n == 0 && s == 0 )
ampm = 'Noon';
else;
ampm = 'PM';
end;
else;
h = fix(h - 12);
if( h < 12 )
ampm = 'PM';
elseif( h == 12 ) ;
if( n == 0 && s == 0 )
ampm = 'Midnight';
else;
ampm = 'AM';
end;
end;
end;
writef(1,['%s',repmat(' ',1,1),'%2i',repmat(' ',1,1),'%4i',repmat(' ',1,2),'%2i','%1s','%2.2i','%1s','%2.2i','%1s','%3.3i',repmat(' ',1,1),'%s','\n'],deblank ( month{m} ), d, y, h, ':', n, ':', s, '.', mm, deblank ( ampm ));
return;
end
%DECK TINVIT