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

#创建过程

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

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

070

flush $f