function [hr,min,sec]=s2hms(secs)
% S2HMS: converts seconds to interger hour, minute, and seconds.
% [hr,min,sec]=S2HMS(secs) converts seconds to integer hour, minute,
% and seconds.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 3/11/96: version 1.0
% 8/5/99: version 2.0
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

sec=round(secs);
hr=floor(sec./3600);
min=floor(rem(sec,3600)./60);
sec=round(rem(sec,60));