请教lm_lxt关于“12.Tcl/TK调用Fortran的exe三步走”的问题
lm_lxt，你好！下面的程序段中，运行时，提示如下：“can't read "f": no such variable while executing"flush $f "
("uplevel" body line 1)
invoked from within
"uplevel #0 {flush $f }"”
#创建过程
056proc invokeQuads { } {
057 set f
058 foreach e {.f.a .f.b .f.c} {
059 set entry [$e get]
060 if { == 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#将以上读取的数据写入一个通道的缓冲区
070flush $f
页:
[1]