- printf DATAFILE "%-6s", "0";
-
- foreach my $j (sort numerically split " ", $regions) {
- printf DATAFILE "%-8s", "$op$j";
- }
-
- # threads, line [7], strings
- foreach my $i (sort numerically split " ", $threads) {
- printf DATAFILE "\n%-6s", $i;
-
- # regions, line [5], column
- foreach my $j (sort numerically split " ", $regions) {
- if (($op eq "rd" && $rdwr) || ($op eq "wr" && $wrrd) || ($readop) || ($writeop)) {
- if ( $out{$i}{$j} ) {
- printf DATAFILE "%-8s", $out{$i}{$j};
+ printf DATAFILE "%-6s", "thrd";
+ for ($j = $first_crg; $j <= $crg ; $j = $j + $j) {
+ $tmp = $j/$lun;
+ printf DATAFILE "%-10s", "$tmp-crg";
+ }
+ for ( $i = $first_thread; $i <= $thread; $i = $i + $i ) {
+ printf DATAFILE "\n%-6s", $i/$lun;
+ for ($j = $first_crg; $j <= $crg ; $j = $j + $j) {
+ if ($op eq "rd") {
+ if ( $ard{$i}{$j} ) {
+ printf DATAFILE "%-10s", $ard{$i}{$j};