diff options
author | Luca Baiotti <baiotti@belladonna.aei.mpg.de> | 2008-06-25 07:47:41 +0200 |
---|---|---|
committer | Luca Baiotti <baiotti@belladonna.aei.mpg.de> | 2008-06-25 07:47:41 +0200 |
commit | 673126995e736f14b6ab4dacde68e35481835ed5 (patch) | |
tree | 7faa578e91d3f7a8d72164ceb70fd9f76c2d7305 /Carpet/CarpetIOASCII | |
parent | bdfdbc1b611cd9339fb693b92d12ae3becc68d37 (diff) |
Make the perl-script output readable also by gnuplot.
Diffstat (limited to 'Carpet/CarpetIOASCII')
-rwxr-xr-x | Carpet/CarpetIOASCII/src/util/Carpet2ygraphCat.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Carpet/CarpetIOASCII/src/util/Carpet2ygraphCat.pl b/Carpet/CarpetIOASCII/src/util/Carpet2ygraphCat.pl index 36320ade0..7e85340df 100755 --- a/Carpet/CarpetIOASCII/src/util/Carpet2ygraphCat.pl +++ b/Carpet/CarpetIOASCII/src/util/Carpet2ygraphCat.pl @@ -130,7 +130,7 @@ while (<CARPETFILE>) 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); foreach my $localcoord (@sortedcoords) { @@ -158,7 +158,7 @@ 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); foreach my $localcoord (@sortedcoords) { |