; Specifically for date='2009:03:25_09h:17m:21s'
pro year_sec_date,date,year,month,day,hh,mm,ss

;   print,date
    year  = fix(strmid(date,0,4))
    month = fix(strmid(date,5,2))
    day   = fix(strmid(date,8,2))
    hh=FIX(STRMID(date,11,2))
    mm=FIX(STRMID(date,15,2))
    ss=FIX(STRMID(date,19,2))

end