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