#! /bin/tcsh


set DIR = $1

set PAN = $2

set Pick = $3


foreach a ( `cat list` )

if ( -e $PAN/$a.pred.gz ) then

gunzip -c $PAN/$a.pred.gz | xC | args 3,5 | gawk '{printf( "%s %f\n", $1,$2)}' > $DIR/Pan_Pick/$$.pan

else 

echo Error. File $a.pred.gz does not exist >> $DIR/Pan_Pick/tmp.out


exit

endif


if ( -e $Pick/$a.pred ) then

cat $Pick/$a.pred | gawk '{printf( "%s %f\n", $1,$2)}' > $DIR/Pan_Pick/$$.pick

else


echo  Error. File $Pick/$a.pred does not exist >> $DIR/Pan_Pick/tmp.out

exit

endif

paste $DIR/Pan_Pick/$$.pick $DIR/Pan_Pick/$$.pan | gawk '$1 == $3' | gawk '{print $1,($2+$4)/2}' > $DIR/Pan_Pick/$a.pred

endif

end

#rm -f $DIR/Pan_Pick/$$.*


foreach a ( `cat list` )

if ( ! -e $DIR/Pan_Pick/$a.thr && -e $DIR/Pan_Pick/$a.pred ) then

touch $DIR/Pan_Pick/$a.thr

cat $DIR/Pan_Pick/$a.pred | sort -nrk2 > $DIR/Pan_Pick/$$.sort

echo $a `wc $DIR/Pan_Pick/$$.sort | args 1` >> $DIR/Pan_Pick/tmp.out

foreach f ( 0.01 0.025 0.05 0.075 0.1 0.125 0.15 0.175 0.2 0.25 0.3 0.4 0.5 0.8 1.0 1.5 2 3 4 5 6 7 8 9 10 15 16 32 50 )

set N = `echo $f | gawk '{print ($1*200000)/100}' `

set line = `cat $DIR/Pan_Pick/$$.sort | head -$N | tail -1`

echo $a $f $line >> $DIR/Pan_Pick/$a.thr

end

#rm -f $DIR/Pan_Pick/$$.sort

else

echo "Error." File $DIR/Pan_Pick/$a.pred "does not exist" >> $DIR/Pan_Pick/tmp.out

endif

end

#rm $DIR/Pan_Pick/*.pred












