;+
; NAME:
; sod2hms
;
;
; PURPOSE:
; convert soconds of day to hours. minutes, seconds
;
;
; CATEGORY:
; time
;
;
; INPUTS:
; sod: seconds of day
;
;
; OUTPUTS:
; array of the form [[hr], [min], [sec]]
;
;
; EXAMPLE:
; IDL> print, sod2hms([100,45223,23])
; 0 12 0
; 1 33 0
; 40 43 23
;
;
;
; MODIFICATION HISTORY:
;
; Fri Sep 5 14:49:48 2008, Brian Larsen
;
; written and tested
;
;-
FUNCTION sod2hms, sod
compile_opt idl2
hr = floor(sod/3600.)
next = sod-hr*3600.
min = floor(next/60.)
next -= min*60
sec = floor(next)
RETURN, [[hr], [min], [sec]]
END