#!/usr/bin/perl

$diro = `pwd`;
chop($diro);

#--------------------------------------------------------
for($i=1; $i<=$ARGV[0]; $i++) {
  $nam0=NODE_.$i;
  chdir ($nam0);
  open (FICHIER0, "summ_o0001.out");
  @map0 = <FICHIER0>;
#  &trim(@map0);
  chdir ("..");

  foreach $lign0 (@map0) {
     $lign1=$lign0;
     &trim($lign1);
     @lis0=split(/ /,$lign1);
     if (($lis0[6]=~ m/valid/)) {
       push (@mapout,$lign0);
     }
  }
}
open (FICHIER2, ">surfener.out");
print FICHIER2 @mapout;
close(FICHIER2);

close(FICHIER2);
#--------------------------------------------------------
sub trim {
  foreach $lign (@_) {
    $lign=~s/ +/ /g;
    if (substr($lign,0,1) eq ' ') {substr($lign,0,1)=''}
    chop ($lign);
  }
}