pro write_cal_files_hist

  files = ['01','01','10','11','12','13','14','15']

  openw, unit, 'channels_history.txt', /get_lun

  for i=0,n_elements(files)-1 do begin

     restgenx, foo, file = '$SSW/hinode/xrt/idl/response/channels/xrt_channels_v00'+files[i]+'.geny'

     printf, unit, 'xrt_channels_v00'+files[i]+'.geny', foo[0].history

  endfor
stop
  close, unit, /force
end