set terminal postscript eps enhanced color
set border 3
set boxwidth 0.2
set key right top
set ticscale 0
set xrange [ -1 : 26 ]
set xlabel "Dosimetry Reactions" 0,7
set ylabel "Fission Spectrum Averaged Cross Section, C/E"
set xtics nomirror rotate ( \
"^{19}F(n,2n)" 1,\
"^{24}Mg(n,p)" 2,\
"^{27}Al(n,p)" 3,\
"^{27}Al(n,{/Symbol a})" 4,\
"^{32}S(n,p)" 5,\
"^{46}Ti(n,p)" 6,\
"^{47}Ti(n,p)" 7,\
"^{48}Ti(n,p)" 8,\
"^{55}Mn(n,2n)" 9,\
"^{54}Fe(n,p)" 10,\
"^{56}Fe(n,p)" 11,\
"^{59}Co(n,{/Symbol a})" 12,\
"^{59}Co(n,2n)" 13,\
"^{58}Ni(n,p)" 14,\
"^{58}Ni(n,2n)" 15,\
"^{63}Cu(n,{/Symbol a})" 16,\
"^{63}Cu(n,2n)" 17,\
"^{64}Zn(n,p)" 18,\
"^{90}Zr(n,2n)" 19,\
"^{115}In(n,n')" 20,\
"^{127}I(n,2n)" 21,\
"^{197}Au(n,2n)" 22,\
"^{235}U(n,f)" 23,\
"^{238}U(n,f)" 24,\
"^{239}Pu(n,f)" 25)
set ytics nomirror
set output "integ.eps"
plot 1 noti w l 0,\
"integ.dat" usi ($1):3 ti "JENDL-3.2" w boxes fill pattern 2,\
"integ.dat" usi ($1+0.25):4 ti "JENDL-3.3" w boxes fill pattern 3,\
"integ.dat" usi ($1+0.50):5 ti "ENDF/B-VI" w boxes fill pattern 4
pause -1
