#!/usr/local/bin/perl

 $time= shift @ARGV;
 printf " %9.3f\n", $time;

 $narg= @ARGV;
 print " $narg sites\n";

 while (@ARGV) {
    $file1= shift @ARGV;

    open(FILE1, "$file1");
     @lines1= <FILE1>;
    $nlines1= @lines1;
    printf "%s %4d\n", $file1, $nlines1;

    for ($i= 0; $i < $nlines1; $i++) {
       $line1= $lines1[$i];
       @word1= split(' ', $line1);
       $time1= $word1[9];
         $xx1= abs($time1 - $time);
       if ($xx1 < .01) {
          $xxxx[$ix]= $line1;
          $ix++;
          }
       }
    }

    open(FILE2, ">1series3z/$time");
 @sorted = sort { (split ' ', $b)[2] <=> (split ' ', $a)[2] } @xxxx;
 
    print FILE2 @sorted;