Commits

Ying Zu  committed d01118e Merge

Merged changes from spear-dev

  • Participants
  • Parent commits 06798e6, ba1b5f7

Comments (0)

Files changed (1)

File scripts/TopWrapper.pl

 #!/usr/bin/perl -w
-# Last-modified: 05 Jul 2011 01:26:41 AM
+# Last-modified: 16 Sep 2011 03:29:26 PM
 use File::Copy;
 
 # @Author:
     for($i  =  1; $i <= $npeak; $i++){
         $contpred  = $predoutput . ".cont." . "$i";
         $linepred  = $predoutput . ".line." . "$i";
+        $bestpred  = $bestoutput . ".peak." . "$i";
         printf STDOUT "predicting light curves for peak $i\n";
         $xpos = $peakpos[$i][1];
         $ypos = $peakpos[$i][2];
         close(INFILE);
         copy("fort.13","$contpred") or die "Copy cont prediction failed: $!";
         copy("fort.12","$linepred") or die "Copy line prediction failed: $!";
+        copy("best3.new","$bestpred") or die "Copy best3.new output failed: $!";
     }
     close(REPKS);
 }