#!/usr/bin/perl


print "res count mn vol.    SD    SD()\n";
while ($line=<STDIN>)  {
    next if $line =~ /#/ || $line =~ /^$/;
    chop($line);  @in=split(' ',$line); $num=@in;
    if($num==1)  {$resname=$in[0];}
    elsif($in[0] eq "Total")  {
	printf "%3s %5d %7.3lf %6.3lf %6.3lf\n", $resname, $in[1], $in[2], $in[3], $in[4];
    }
}
