pro offset_read,input_file,time_list,mri_file_list,sli_file_list,hri_file_list,$
    alpha_list,beta_list,gamma_list,X_list,Y_list,Z_list,altitude_list

; v10 works on offset files where which image file to use is recorded as a string
; v11 uses strsplit instead of the obsolete routine str_sep

dum='string'
dum_time_list='string'
dum_mri_file='string'
dum_sli_file='string'
dum_hri_file='string'

openr,ol,input_file,/get_lun
listcnt=0
while not eof(ol) do begin
  readf,ol,dum
  listcnt=listcnt+1
endwhile
close,/all

listcnt=listcnt/10
time_list=strarr(listcnt)
mri_file_list=strarr(listcnt)
sli_file_list=strarr(listcnt)
hri_file_list=strarr(listcnt)
alpha_list=fltarr(listcnt)
beta_list=fltarr(listcnt)
gamma_list=fltarr(listcnt)
X_list=fltarr(listcnt)
Y_list=fltarr(listcnt)
Z_list=fltarr(listcnt)
altitude_list=fltarr(listcnt)

openr,ol,input_file,/get_lun
listcnt=0
while not eof(ol) do begin
  readf,ol,dum_time_list
  readf,ol,dum_mri_file
  readf,ol,dum_sli_file
  readf,ol,dum_hri_file
  readf,ol,dum_alpha
  readf,ol,dum_beta
  readf,ol,dum_gamma
  readf,ol,dum_X
  readf,ol,dum_Y
  readf,ol,dum_Z
  time_list(listcnt)=dum_time_list
  mri_file_list(listcnt)=dum_mri_file
  sli_file_list(listcnt)=dum_sli_file
  hri_file_list(listcnt)=dum_hri_file
  alpha_list(listcnt)=dum_alpha
  beta_list(listcnt)=dum_beta
  gamma_list(listcnt)=dum_gamma
  X_list(listcnt)=dum_X
  Y_list(listcnt)=dum_Y
  Z_list(listcnt)=dum_Z
  line=strsplit(dum_time_list,'_',/extract)
  altitude_list(listcnt)=line(4)
  listcnt=listcnt+1
endwhile
close,/all

return
end