From f4526cf65b84e0632dbe983622b5611a87fbf09f Mon Sep 17 00:00:00 2001 From: Thomas Radke Date: Fri, 18 Aug 2006 16:46:00 +0000 Subject: CarpetIOScalar: mergeCarpetIOScalar.pl support for non-CarpetIOScalar output files When sorting datasets by their first column, accept both an (integer) iteration number or a (real) timestep value. darcs-hash:20060818164622-776a0-58446b69d8874c3cdfe687f5a8184c25f89d7dda.gz --- Carpet/CarpetIOScalar/src/util/mergeCarpetIOScalar.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Carpet/CarpetIOScalar') diff --git a/Carpet/CarpetIOScalar/src/util/mergeCarpetIOScalar.pl b/Carpet/CarpetIOScalar/src/util/mergeCarpetIOScalar.pl index e4680a893..adddd37d1 100755 --- a/Carpet/CarpetIOScalar/src/util/mergeCarpetIOScalar.pl +++ b/Carpet/CarpetIOScalar/src/util/mergeCarpetIOScalar.pl @@ -45,7 +45,7 @@ while (<>) { # falls diese Zeile eine Datenzeile ist: # vermerke den Datensatz mit seiner Iterationsnummer - ++$timesteps{$1} if (/^(\d+)\s/); + ++$timesteps{$1} if (/^(\d+(.\d+)?)\s/); } # stelle die Liste aller Eingabe-Dateien wieder her @@ -57,5 +57,5 @@ while (<>) { # falls diese Zeile eine Datenzeile ist: # ueberspringe alle Datensaetze mit dieser Iterationsnummer # bis auf den letzten - print unless (/^(\d+)\s/ and --$timesteps{$1} > 0); + print unless (/^(\d+(.\d+)?)\s/ and --$timesteps{$1} > 0); } -- cgit v1.2.3