FS=`nof $1`

case $3 in
-gt) (cat $ENT/slm.ent ; zex $BDA/contenu/$FS | awkg 7 4 $4 | tee $SRT )| ind | more ;;
-lt) (cat $ENT/slm.ent ; zex $BDA/contenu/$FS | awkp 7 4 $4 | tee $SRT )| ind | more ;;
 -i) (cat $ENT/slm.ent ; zex $BDA/contenu/$FS | awki 7 4 $4 $5 | tee $SRT )| ind | more ;;
-histo) Histo $FS dt=`dac $2` ; exit 0 ;;
esac

echo ' ' 
echo "  Selected clusters:  `wc -l $SRT | awkpr1` " | ind
echo ' '