请教lm_lxt关于“12.Tcl/TK调用Fortran的exe三步走”的问题

zzh_adiy

lm_lxt，你好！下面的程序段中，运行时，提示如下：“can't read "f": no such variable    while executing
"flush $f   "
    ("uplevel" body line 1)
    invoked from within

"uplevel #0 {flush $f   }"”

#创建过程

056	proc invokeQuads { } {

057	set f [open |quads.exe r+]

058	foreach e {.f.a .f.b .f.c} {

059	set entry [$e get]

060	if { [string compare $entry ""] == 0 } {

061	puts stdout "Some entry(ies) are null .... enter them Now \n"

062

close $f

063

return

064

} else {

065	puts $f $entry

066

}

067

}

068

069	#将以上读取的数据写入一个通道的缓冲区

070

flush $f