cd cdata

for filename in `ls *.` ; do
  POS=`expr index $filename .` ;
  POS2=`expr $POS - 1` ;
  NAME=`expr substr $filename 1 $POS2` ;
  cd ../data
  for filename2 in `ls $filename*` ; do
    
  
  cd ../cdata
  NEWEXT=`expr $EXT + 1` ;
  mv $filename $NAME.$NEWEXT;
done
