pro rate
  ar=[[1.8847140728347272e-13, 0.37631887197494507],$
  [1.521645609807299e-13, 0.40992528200149536],$
  [4.915687878270888e-13, 1.0217742919921875],$
  [1.7903951117830771e-13, 0.282895565032959],$
  [6.886249544234846e-14, 0.21058528125286102],$
  [9.49530897031588e-14, 0.2018834501504898]]

for i=0L,5 do begin
print, i, (ar[1,i])/(ar[0,i])
endfor

end