1 puts "======================="
3 puts "It takes visual check for this BUC"
4 puts "======================="
12 set info1 [length $c_1]
13 set info2 [length $c_2]
14 regexp {The length c_1 is +([-0-9.+eE]+)} $info1 full len1
15 regexp {The length c_2 is +([-0-9.+eE]+)} $info2 full len2
16 set len_int1 [expr int($len1)]
17 set len_int2 [expr int($len2)]
19 if { ${len_int1} != ${len_ch} || ${len_int2} != ${len_ch} } {
20 puts "Error : Length is invalid"