tests/bugs/modalg/bug453_1

   1
   2 puts "========"
   3 puts "OCC453"
   4 puts "(case 1)"
   5 puts "========"
   6 puts ""
   7
   8 dchrono h2 reset
   9 dchrono h2 start
  10
  11 set make_print_out 0
  12
  13 dset SCALE 1000.
  14 dset SCALE1 5
  15 tolblend 0.01 1e-04 1e-05 1e-03
  16
  17 restore [locate_data_file CFI_5_f12fgk.rle] s
  18 tscale s 0 0 0 SCALE1
  19 explode s E
  20
  21 blend result s 0.5*SCALE1 s_1 0.5*SCALE1 s_4 0.5*SCALE1 s_12 0.5*SCALE1 s_8 0.5*SCALE1 s_6
  22 explode result sh
  23 tcopy result_1 result
  24
  25 dchrono h2 stop
  26 set q2 [ dchrono h2 show ]
  27 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
  28 puts "$z2"
  29 if { $z2 > 50 } {
  30     puts "Elapsed time is more then 50 seconds - Faulty"
  31 } else {
  32     puts "Elapsed time is less then 50 seconds - OK"
  33 }
  34 set square 6021.51
  35 set 2dviewer 1