function [time_code]=get_date(time)

time_code=[];

for i=1:length(time),

  if time(i) < 0,
    iday(i)=fix(time(i)./86400);
    isec(i)=fix(iday(i).*86400-time(i));
    iday(i)=iday(i)-1;
  else
    iday(i)=fix(time(i)./86400);
    isec(i)=fix(time(i)-iday(i).*86400);
  end,
  ihour(i)=fix(isec(i)./3600);
  minute(i)=fix(mod(isec(i),3600)./60);
  isec(i)=fix(mod(isec(i),60));

  code=[num2str(iday(i)), ' ', ...
        num2str(ihour(i),'%2.2i'), ':',...
        num2str(minute(i),'%2.2i'), ':', ...
	num2str(isec(i),'%2.2i')]
  time_code(i)=cellstr(code');
end,

return

