5 ############################################
6 # Parallelization of assembly part of BO
7 ############################################
19 for {set N 0} {$N < ${aNbGroups}} {incr N} {
20 for {set K 0} {$K < ${aNbGroups}} {incr K} {
21 for {set M 0} {$M < ${aNbGroups}} {incr M} {
22 for {set n 0} {$n < 3} {incr n} {
23 for {set k 0} {$k < 3} {incr k} {
24 for {set m 0} {$m < 3} {incr m} {
25 tcopy sp sp_${N}_${K}_${M}_${n}_${k}_${m}
26 ttranslate sp_${N}_${K}_${M}_${n}_${k}_${m} 2.5 2.5 2.5
27 ttranslate sp_${N}_${K}_${M}_${n}_${k}_${m} [expr $k*${ds}] [expr $m*${ds}] [expr $n*${ds}]
28 ttranslate sp_${N}_${K}_${M}_${n}_${k}_${m} [expr $M*${dS}] [expr $K*${dS}] [expr $N*${dS}]
29 lappend cx sp_${N}_${K}_${M}_${n}_${k}_${m}
44 regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
46 if { [regexp {Debug mode} [dversion]] } {
51 if { $tps_time > $check_time } {
52 puts "Error: low performance"
54 puts "OK: high performance"