;+
; Contains the hms_s function
;
; :Author:
; ??
;
; :History:
; 2005/10/05: Created
;
; 2005/10/05: Last Edit
;-
;
;+
; Returns the equivalent in seconds of the time: HOUR, MINUTE, SECOND
;
; :Returns:
; <return desc here>
;
; :Params:
; hour: in, required, type=sometype
; A parameter named hour
; minute: in, required, type=sometype
; A parameter named minute
; second: in, required, type=sometype
; A parameter named second
;-
FUNCTION hms_s, hour, minute, second
return, (second+60L*minute+3600L*hour)
end