derek/TheBandwidthBenchmark
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add system benchmark script. Add GB unit in extract Results

Browse Source
This commit is contained in:
Jan Eitzinger
2021-01-16 07:15:07 +01:00
parent ec8ab10319
commit 6be2df9828
2 changed files with 1506 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1486
util/benchmarkSystem.pl Executable file
View File

File diff suppressed because it is too large Load Diff

23
util/extractResults.pl
View File

@@ -27,7 +27,20 @@ use strict;
use warnings; use warnings;
use utf8; use utf8;
my $DIR = $ARGV[0]; my ($DIR, $UNIT) = @ARGV;
if (not defined $DIR) {
die "Need directory: $0 <DIR>\n";
}
if (not defined $UNIT) {
$UNIT = 1.0;
} else {
if ( $UNIT eq 'GB' ) {
$UNIT = 0.001;
}
}
my %RES; my %RES;
my @testcases = ('Init', 'Sum', 'Copy', 'Update', 'Triad', 'Daxpy', 'STriad', 'SDaxpy'); my @testcases = ('Init', 'Sum', 'Copy', 'Update', 'Triad', 'Daxpy', 'STriad', 'SDaxpy');
@@ -49,7 +62,7 @@ while( defined( my $file = glob($DIR . '/*' ) ) ) {
if ( $fields[1] =~ /[0-9]+/ ) { if ( $fields[1] =~ /[0-9]+/ ) {
$fields[0] =~ s/://; $fields[0] =~ s/://;
$RES{$nt}->{$fields[0]} = $fields[1]; $RES{$nt}->{$fields[0]} = $fields[1] * $UNIT;
} }
} }
@@ -68,7 +81,11 @@ foreach my $key (sort {$a <=> $b} keys %RES) {
printf "%d", $key; printf "%d", $key;
foreach my $test ( @testcases ) { foreach my $test ( @testcases ) {
printf "\t%.0f", $RES{$key}->{$test}; if ( $UNIT > 0.1 ) {
printf "\t%.0f", $RES{$key}->{$test};
} else {
printf "\t%.2f", $RES{$key}->{$test};
}
} }
printf "\n"; printf "\n";
} }