function dd792ex, dd79_arr ; int2ex, lonarr(n_elements(dd79_arr)), makvec(long(dd79_arr)), ex_time frac_day = dd79_arr - long(dd79_arr) dhr = frac_day*24d dmin = (dhr - long(dhr))*60d dsec = (dmin - long(dmin))*60d dmsec = (dsec - long(dsec))*1000d ex_time(0,*) = long(dhr) ex_time(1,*) = long(dmin) ex_time(2,*) = long(dsec) ex_time(3,*) = long(dmsec) return, ex_time end