#! /usr/bin/env perl

# experiment 06: hoststream version on K20X with different
# CUDA_DEVICE_MAX_CONNECTIONS/host stream settings and fixed #hits
do "../common.pl";

# test parameters
$step = 4000;
$ntries = 5;

init_exp();

#output file
$out_file = "./exp-09.csv";
open(CSV, ">", $out_file) or die "cannot open $out_file: $!";

#for($nhits = $step; $nhits < $max_nhits; $nhits += $step) {
$max_nhits = 148000;
$nhits = $max_nhits;
$cuda_device = 0;
for($cuda_device_max_connections=1; $cuda_device_max_connections<=32; 
		$cuda_device_max_connections+=1) {
		run_test("-Bhstream -b2000");
		$str = sprintf "%6d %6.3f %6.3f\n", 
		  $cuda_device_max_connections, $avg_time, $perf;
		printf CSV "%s", $str;
		printf "%s", $str;
}

close CSV;