5 ############################################
6 # Parallelization of assembly part of BO
7 ############################################
17 vertex v1 ${dS} -${dL} 0
18 vertex v2 ${dS} [expr ${L}+${dL}] 0
21 vertex v1 -${dL} $dS 0
22 vertex v2 [expr ${L}+${dL}] ${dS} 0
25 #--------------------------------------------
30 for {set i 0} {$i < $N} {incr i} {
32 ttranslate ex$i [expr $i*${dS}] 0 0
36 for {set i 0} {$i < $N} {incr i} {
38 ttranslate ey$i 0 [expr $i*${dS}] 0
46 for {set i 0} {$i < $N1} {incr i} {
47 for {set j 0} {$j < $N1} {incr j} {
48 for {set k 0} {$k < 3} {incr k} {
49 for {set m 0} {$m < 3} {incr m} {
50 tcopy ex ex_${i}_${j}_${k}_${m}
51 ttranslate ex_${i}_${j}_${k}_${m} [expr $i*${dS}] [expr $j*${dS}] 0
52 ttranslate ex_${i}_${j}_${k}_${m} [expr 2+${k}*3] [expr 2+${m}*3] 0
53 lappend cx ex_${i}_${j}_${k}_${m}
66 regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
68 if { [regexp {Debug mode} [dversion]] } {
73 if { $tps_time > $check_time } {
74 puts "Error: low performance"
76 puts "OK: high performance"