Fortran Coder

查看: 8887|回复: 0
打印 上一主题 下一主题

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

[复制链接]

3

帖子

2

主题

0

精华

入门

F 币
34 元
贡献
15 点
跳转到指定楼层
楼主
发表于 2015-9-15 16:22:12 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
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   



分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-25 09:03

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表