alltests.tcl

来自「算断裂的」· TCL 代码 · 共 15 行

## 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"