5 ###########################################################
6 # Parallelization FillDS part of BO
7 ###########################################################
11 set aC [expr $N + $dC]
13 #------------------------------------------
20 for {set i 0} {$i < $N} {incr i} {
21 for {set j 0} {$j < $N} {incr j} {
23 ttranslate ez_${i}_{$j} [expr $i + ${dC}] [expr $j + $dC] 0.
24 lappend qz ez_${i}_{$j}
29 #------------------------------------------
36 for {set i 0} {$i < $N} {incr i} {
37 for {set j 0} {$j < $N} {incr j} {
39 ttranslate ex_${i}_{$j} 0. [expr $i + $dC] [expr $j + $dC]
40 lappend qx ex_${i}_{$j}
45 #------------------------------------------
52 for {set i 0} {$i < $N} {incr i} {
53 for {set j 0} {$j < $N} {incr j} {
55 ttranslate ey_${i}_{$j} [expr $i + $dC] 0. [expr $j + $dC]
56 lappend qy ey_${i}_{$j}