5 #######################################
6 ## Viewer problem: Selection of objects on global context
7 #######################################
11 set length [llength ${info}]
13 puts "OCC138: Error (case 1)"
15 regexp {No of currents += +([-0-9.+eE]+)} $info full NbCurrents
16 if {${NbCurrents} != 3 } {
17 puts "OCC138: Error (case 2)"