#!/usr/local/bin/perl


 while (@ARGV) {
    $file1= shift @ARGV;
    open(FILE1, "$file1");
   @lines1= <FILE1>;
  $nlines1= @lines1;
    printf "%s\n", $file1;

    $line1= @lines1[0];
    @word1= split(' ', $line1);
    $site1= $word1[0];
     $site=  $site1;
     $site=~ s/\(//;
     $site=~ s/\)//;

    $file2= "/home/argus/nldas.composite/series.composite/$site";
    open(FILE2, "$file2");
   @lines2= <FILE2>;
  $nlines2= @lines2;

     if ($nlines2 < 2) {
	printf " no composite file for %s\n", $site;
        }
     else {
	open(FILE, ">series3.composite/$site");
        for $line1 (@lines1) {
        @word1= split(' ', $line1);
        $time1= $word1[9];
          $xx1= substr($line1,  0, 27);
          $yy1= substr($line1, 58, 41);
          $ee2= .0;
	  $nn2= .0;
	  $uu2= .0;
          for $line2 (@lines2) {
             @word2= split(' ', $line2);
             $time2= $word2[1];
             if ($time1 == $time2) {
                $ee2= $word2[2];
                $nn2= $word2[3];
                $uu2= $word2[4];
                printf FILE "%s %9.6f %9.6f %9.6f %s\n", $xx1, $ee2, $nn2, $uu2, $yy1;
                break;
                }
	     }
          }
       }
    }