#!/usr/bin/perl
#



@coo_files = glob("pnv1915_*coo");
foreach $coo (@coo_files) {

  if ($debug > 0) {
    printf " next is $coo \n";
  }

  $num = 0;
  $fwhm_sum = 0;
  $round_sum = 0;

  open(COO, $coo) || die("can't open file $coo");
  while (<COO>) {
    $line = $_;
    @words = split(/\s+/, $line);
    $fwhm = $words[5];
    $round = $words[6];
   
    $fwhm_sum += $fwhm;
    $round_sum += $round;
    $num++;
  }
  close(COO);

  $fwhm_avg = $fwhm_sum / $num;
  $round_avg = $round_sum / $num;

  printf " %s  %7.2f  %7.2f \n", $coo, $fwhm_avg, $round_avg;

}


exit 0;