alltests.tcl

算断裂的

## This script runs through all 11 tests, and makes a log for each one.
set meshsizesum 0
set aspprod 1
for {set testnum 1} {$testnum <= 11} {incr testnum} {
    puts "test$testnum"
    flush stdout
    update
    gmevallog $qmg_library2/test$testnum.tcl test$testnum.di
    puts "After this test, meshsizesum = $meshsizesum aspprod = $aspprod"
}

puts "alltests is complete; meshsizesum = $meshsizesum aspprod = $aspprod"