function hms,seconds

;created 9/28/98 by C. See
;converts seconds into a string of Hours:Minutes:Seconds
;this version truncates decimal seconds hmsplus.pro does not.

secs=double(seconds)
hours=fix(secs/3600.)
if hours ge 1 then secs=secs-hours*3600.
minutes=fix(secs/60.)
if minutes ge 1 then secs=secs-minutes*60.

secs=fix(secs)	;this line trims off the decimal seconds

if hours lt 10 then hours='0'+sstr(hours)
if minutes lt 10 then minutes='0'+sstr(minutes)
if secs lt 10 then secs='0'+sstr(secs)
return,sstr(hours)+':'+sstr(minutes)+':'+sstr(secs)

stop
end