diff options
author | Erik Schnetter <schnetter@cct.lsu.edu> | 2008-12-08 17:42:21 -0600 |
---|---|---|
committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2008-12-08 17:42:21 -0600 |
commit | abeda2d8b42b9667095df68c72b2a3d3b28a1e70 (patch) | |
tree | 252624d94ae78fb76f204301071f55e1b0cbcbbe /Carpet/CarpetIOASCII/src | |
parent | 57d349b1f6c058e0c5f20623fd4b1532fd2b4cdf (diff) | |
parent | 5bc3d75360afc2bc64a82db0617f10f11d717e5c (diff) |
Merge branch 'master' of /Users/eschnett/Cbeta/carpet/
Diffstat (limited to 'Carpet/CarpetIOASCII/src')
-rwxr-xr-x | Carpet/CarpetIOASCII/src/util/Carpet2ygraphCat.pl | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/Carpet/CarpetIOASCII/src/util/Carpet2ygraphCat.pl b/Carpet/CarpetIOASCII/src/util/Carpet2ygraphCat.pl index 7e85340df..de8ad2626 100755 --- a/Carpet/CarpetIOASCII/src/util/Carpet2ygraphCat.pl +++ b/Carpet/CarpetIOASCII/src/util/Carpet2ygraphCat.pl @@ -102,7 +102,6 @@ if ($direction == 0) { my %data; my $time = -1; my $new = 0; -my $currentit = -1; my $lastit = -1; my @datatoprint; @@ -117,22 +116,19 @@ while (<CARPETFILE>) chomp; next if (/^$/); - if (/iteration/) { - @itline = split(/ +/); - $currentit = $itline[2]; - } @dataColumns = split(/[ :]/, $1) if (/^# data columns: (.+)/); #Do nothing for headers! next if (/^#/); - @dataline = split(/[ \t]+/); + my @dataline = split(/[ \t]+/); + my $currentit = $dataline[0]; if ($currentit != $lastit) { if ($new) { # do not print "Time..." for zero-D data - push(@datatoprint,"\n\n\#Time = ".$time."\n") if ($direction !~ 8); + push(@datatoprint,"\n\n\#Time = $time\n") if ($direction !~ 8); - my @sortedcoords = sort numerically (keys %data); + my @sortedcoords = sort {$a <=> $b} (keys %data); foreach my $localcoord (@sortedcoords) { push(@datatoprint, $localcoord." ".$data{$localcoord}."\n"); } @@ -158,9 +154,9 @@ while (<CARPETFILE>) } # do not print "Time..." for zero-D data -push(@datatoprint,"\n\n\#Time = ".$time."\n") if ($direction !~ 8); +push(@datatoprint,"\n\n\#Time = $time\n") if ($direction !~ 8); -my @sortedcoords = sort numerically (keys %data); +my @sortedcoords = sort {$a <=> $b} (keys %data); foreach my $localcoord (@sortedcoords) { push(@datatoprint, $localcoord." ".$data{$localcoord}."\n"); } @@ -214,5 +210,3 @@ foreach $line (@datatoprint) { # $nouts++; # print $fh $oldline; #} - -sub numerically {$a <=> $b;} |