Update subcluster-generate Perl Skript

Fixes #278
This commit is contained in:
Jan Eitzinger 2024-11-28 17:12:05 +01:00
parent f89b5cd2ec
commit a53d473b58
Signed by: moebiusband
GPG Key ID: 2574BA29B90D6DD5

View File

@ -117,10 +117,12 @@ foreach my $ln (split("\n", $topo)) {
my $node; my $node;
my @sockets; my @sockets;
my @nodeCores;
foreach my $socket ( @{$DOMAINS{socket}} ) { foreach my $socket ( @{$DOMAINS{socket}} ) {
push @sockets, "[".join(",", @{$socket})."]"; push @sockets, "[".join(",", @{$socket})."]";
$node .= join(",", @{$socket}) push @nodeCores, join(",", @{$socket});
} }
$node = join(",", @nodeCores);
$INFO{sockets} = join(",\n", @sockets); $INFO{sockets} = join(",\n", @sockets);
my @memDomains; my @memDomains;
@ -212,9 +214,27 @@ print <<"END";
"socketsPerNode": $INFO{socketsPerNode}, "socketsPerNode": $INFO{socketsPerNode},
"coresPerSocket": $INFO{coresPerSocket}, "coresPerSocket": $INFO{coresPerSocket},
"threadsPerCore": $INFO{threadsPerCore}, "threadsPerCore": $INFO{threadsPerCore},
"flopRateScalar": $flopsScalar, "flopRateScalar": {
"flopRateSimd": $flopsSimd, "unit": {
"memoryBandwidth": $memBw, "base": "F/s",
"prefix": "G"
},
"value": $flopsScalar
},
"flopRateSimd": {
"unit": {
"base": "F/s",
"prefix": "G"
},
"value": $flopsSimd
},
"memoryBandwidth": {
"unit": {
"base": "B/s",
"prefix": "G"
},
"value": $memBw
},
"nodes": "<FILL IN NODE RANGES>", "nodes": "<FILL IN NODE RANGES>",
"topology": { "topology": {
"node": [$node], "node": [$node],