function hxtimg2ints,hxtinf,stim=ts,etim=te,integ=diff ; function hxtim2ints2,hxtim,date,stim=ts,etim=te,integ=diff hxtim = hxtinf.time(0) ts = strmid(hxtim,9,8) te = strmid(hxtim,24,8) ; convert all blanks into 0 ts = byte(ts) ww = where(ts eq 32,nn) if nn gt 0 then ts(ww) = 48 ts = string(ts) te = byte(te) ww = where(te eq 32,nn) if nn gt 0 then te(ww) = 48 te = string(te) ; datar = strarr(n_elements(hxtim))+date mos = ['JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC'] datar = strmid(hxtim,6,2) + '-' $ + mos(fix(strmid(hxtim,3,2))-1) + '-' + strmid(hxtim,0,2) ts = datar+' '+ts te = datar+' '+te ts = anytim2ints(ts) te = anytim2ints(te) ; handle midnight (probably not necessary) ww = where(te.time lt ts.time) if ww(0) ge 0 then te(ww).day = te(ww).day+1 ; handle times gt 24 hours ww = where(te.time ge 24L*3600L*1000L) if ww(0) ge 0 then begin te(ww).time = te(ww).time - 24L*3600L*1000L te(ww).day = te(ww).day + 1 endif diff = int2secarr(te,ts) tt = anytim2ints(ts,off=diff/2) return,tt end