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

Small fixes.

Browse Source
This commit is contained in:
Jan Eitzinger
2019-07-01 09:59:10 +02:00
parent 9bad3340b6
commit d8b4feb50a
3 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
MemoryHierarchy/Makefile
View File

@@ -1,6 +1,6 @@
#CONFIGURE TOOL CHAIN #CONFIGURE TOOL CHAIN
CC = gcc CC = gcc
OPENMP =# -fopenmp OPENMP = -fopenmp
#CFLAGS = -O3 -xHost -qopt-zmm-usage=high -std=c99 $(OPENMP) #CFLAGS = -O3 -xHost -qopt-zmm-usage=high -std=c99 $(OPENMP)
CFLAGS = -O3 -std=c99 $(OPENMP) CFLAGS = -O3 -std=c99 $(OPENMP)
LFLAGS = $(OPENMP) LFLAGS = $(OPENMP)

7
MemoryHierarchy/bench.pl
View File

@@ -3,11 +3,17 @@ use strict;
use warnings; use warnings;
use utf8; use utf8;
if ( $#ARGV < 2 ){
print "Usage: ./bench.pl <numcores> <seq|tp|ws> <SMT>\n";
exit;
}
my $numCores = $ARGV[0]; my $numCores = $ARGV[0];
my $type = 0; my $type = 0;
my $SMT = $ARGV[2] ? $ARGV[2] : 2; my $SMT = $ARGV[2] ? $ARGV[2] : 2;
my $N = 100; my $N = 100;
if ( $ARGV[1] eq 'seq' ){ if ( $ARGV[1] eq 'seq' ){
$type = 0; $type = 0;
} elsif ( $ARGV[1] eq 'tp' ){ } elsif ( $ARGV[1] eq 'tp' ){
@@ -24,7 +30,6 @@ while ( $N < 8000000 ) {
while ( $performance eq '0.00' ){ while ( $performance eq '0.00' ){
$result = `likwid-pin -c E:S0:$numCores:1:$SMT -q ./striad $type $N`; $result = `likwid-pin -c E:S0:$numCores:1:$SMT -q ./striad $type $N`;
$result =~ /([0-9.]+) ([0-9.]+)/; $result =~ /([0-9.]+) ([0-9.]+)/;
my $size = $1;
$performance = $2; $performance = $2;
} }

2
MemoryHierarchy/src/striad_tp.c
View File

@@ -43,7 +43,7 @@ double striad_tp(
#pragma omp parallel #pragma omp parallel
{ {
double* al = (double*) allocate( ARRAY_ALIGNMENT, N * sizeof(double) ); double* al = (double*) allocate( ARRAY_ALIGNMENT, N * sizeof(double));
#pragma omp single #pragma omp single
S = getTimeStamp(); S = getTimeStamp();