regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves b1_5 f2 -2d] full Toler NbCurv
-checkreal Tolerance $Toler 0.00039718358530349535 0.0 0.01
+if { ${Toler} > 0.0004} {
+ puts "Error: bad tolerance of result"
+}
if {$NbCurv != 2} {
puts "Error: Please check NbCurves for intersector"