pro offset_write,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

; This procedure writes the supplied offset lists to the specified input offset
; file input_file
; v1 2/18/98 B. Rizk

s_t=size(time_list)
openw,ol,input_file,/get_lun

for i=0,s_t(1)-1 do begin
  printf,ol,time_list(i)
  printf,ol,mri_file_list(i)
  printf,ol,sli_file_list(i)
  printf,ol,hri_file_list(i)
  printf,ol,alpha_list(i)
  printf,ol,beta_list(i)
  printf,ol,gamma_list(i)
  printf,ol,X_list(i)
  printf,ol,Y_list(i)
  printf,ol,Z_list(i)
endfor

close,/all
  
return
end