#!/bin/csh -f
#
# improve: list the improvement due to prefetching for all sets of parameters
#
# average must be run first

set P=`procdir`

set tmpdir=/tmp/improve$$
set list=$tmpdir/a
set list2=$tmpdir/b
set list3=$tmpdir/c
set list4=$tmpdir/d
set list5=$tmpdir/e
set results=$tmpdir/improve
onintr cleanup
mkdir $tmpdir

foreach dir ($*)
   echo > $list5
   printparms $dir/*.data-a > $results-$dir

   foreach filep ($dir/y.?.?.?.??.*.data-a)
      set file=`nonprefile $filep`

      pick 1 $file > $list2
      pick 1 $filep >> $list2
	 transpose < $list2 > $list3

      set parms=`echo $filep | sed 's/\./ /g'`
    	 # note these numbers are one less than that listed in PARMS
      echo $parms[15] > $list4
      echo $parms[2]$parms[3]$parms[4] >> $list4
      echo $parms[5] >> $list4
      echo $parms[6] >> $list4
      echo $parms[7] >> $list4
      echo $parms[8] >> $list4
      echo $parms[9] >> $list4
      echo $parms[13].$parms[14] >> $list4

      dm 'if x1==0 then 0 else (x2-x1)/x1*100' < $list3 >> $list4

      transpose < $list4 >> $list5
   end
   Awk -f $P/improve.awk $list5 >> $results-$dir
end

(cd $tmpdir; printwide improve-*)

cleanup:
rm -fr $tmpdir
