;  18-Aug-92
function dd792ex, dd79_arr
;+
;Name:
;	dd792ex
;Purpose:
;	Convert decimal d79 to external time representation.
;Input:
;	DD79_ARR
;Output:
;	Returns a 7xN array of external times.
;History:
;-
;

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