# DETECTORS:
# number of energy points =   234
# energy, theta, Mn Ka, As Ka, Sr Ka, 
#   Zr Ka, time, i0, i1, Real time (msec), Live time (msec)

macro read_parse

  read_data(file = $1, prefix=my)
  tmp.xafs  = my.5 * my.10 / (my.11 * my.8)
  plot (my.1, tmp.xafs, xmax=18500)
  $outfile  =  'xafs.dat'
  $title    = 'ENERGY     XMU  I0   THETA'
  write_data (file = 'xafs.dat', $title, my.1, tmp.xafs, my.8, my.2)

end macro
