#!/bin/tcsh -f
touch outstat 
foreach file ( `ls RESULTS/*.CYL.*.*.dat`)
set moment=`echo $file | awk -F. '{print $4}'`
set mm=`echo $file | awk -F. '{print $3}'`
	echo moment= $mm.$moment
$HOME/CODE/PM/barlength  <<EOF > out_bar
$mm.$moment
EOF
end



exit