;;
;; Spice formatの時刻をJul Dayにする関数
;; YYYY-MM-DDThh:mm:ss.sss... を想定。
;;
function spice_utc2jul,spice_time
year = long(strmid(spice_time,0,4))
month = long(strmid(spice_time,5,2))
day = long(strmid(spice_time,8,2))
hour = long(strmid(spice_time,11,2))
min = long(strmid(spice_time,14,2))
spice_date_len = strlen(strtrim(spice_time,2))
if n_elements(spice_date_len) eq 1 then begin
if spice_date_len ge 20 then begin
sec = double(strmid(spice_time,17,2)) $
+double(strmid(spice_time,20,spice_date_len-20))/(10^double(spice_date_len-20))
endif else begin
sec = double(long(strmid(spice_time,17,2)))
endelse
endif else begin
n_date = n_elements(spice_date_len)
sec = dblarr(n_date)
for i=0, n_date-1, 1 do begin
if spice_date_len[i] ge 20 then begin
sec[i] = double(strmid(spice_time[i],17,2)) $
+double(strmid(spice_time[i],20,spice_date_len[i]-20))/(10^double(spice_date_len[i]-20))
endif else begin
sec[i] = double(long(strmid(spice_time[i],17,2)))
endelse
endfor
endelse
jul_day = greg2jul(month,day,year,hour,min,sec)
return,jul_day
end