PRO get_hms,sthms,hour,minute,second

sthms=''
READ,sthms
IF sthms NE '' THEN BEGIN
    nw=nwrds(sthms)
    IF nw GE 1 THEN hour=FIX(getwrd(sthms,0))
    IF nw GE 2 THEN minute=FIX(getwrd(sthms,1))
    IF nw GE 3 THEN second=FIX(getwrd(sthms,2))
    ENDIF ELSE BEGIN
    hour=0
    minute=0
    second=0
    ENDELSE

RETURN
END