#!/usr/bin/perl -w

use strict;

my ($nfft, $nthread, $count, $time, $usec);

$count = 0;
while (<>) {
  if (/\*\* NFFT (\d+)/) {
    $nfft = $1;
  } elsif (/NTHREAD=(\d+)/) {
    $nthread = $1;
  } elsif (/Ran (\d+) ffts in \S+ sec/) {
    $count += $1;
  } elsif (/Total time = (\S+) sec \((\S+) uSec\/fft\)/) {
    $time = $1;
    $usec = $2;
  } elsif (/Total Rate = (\S+) Mbps/) {
    printf("%4d %2d %9d %4.1f %6.3f %7.1f\n", $nfft, $nthread, $count, $time, $usec, $1);
    $nthread = undef;
    $count = 0;
    $time = undef;
    $usec = undef;
  }
}