TY=$1
FS=`nof $TY`

CH=/usr2/mermio/bda/contenu
testfO $CH/$FS

for i in `cat ngc.lst`
do

cd $BDA/ngc/$i
testfZ $FS
mv p.sup f.sup

if test -f $FS

then
cat $FS f.sup | sort -n +0 +1 > g.sup
mv g.sup $FS
NET=`cat $FS | net | awkpr1`
NENR=`cat $FS | nenr | awkpr1`
awkmsjcnt $NENR $NET $i < $CH/$FS > $CH/cnt.mod
mv $CH/cnt.mod $CH/$FS

else
sort -n +0 +1 f.sup > $FS
NET=`cat $FS | net | awkpr1`
NENR=`cat $FS | nenr | awkpr1`
echo "$NENR  $NET  ngc/$i" >> $CH/nouv.ama
compress $FS
fi 

rm f.sup

done