24小时热门版块排行榜    

查看: 520  |  回复: 2

point_light

铁虫 (小有名气)

[求助] 在文本和屏幕不能同时输出,这是为何啊,求指教

我是初学fortran,用的是silverfrost编辑器,最近在挑一个程序,遇到下面小程序类似问题:

比如随便一个简单f95程序:

PROGRAM  CURIE
REAL  X
OPEN(2,FILE='RAND.txt',STATUS='OLD')
X=2.0
WRITE(*,*) X
WRITE(2,1) X
1 FORMAT(F12.8)
CLOSE(2)
END CURIE

屏幕上没有输出结果,
两个2都输出到文本RAND.txt上了,不知道怎么才能在屏幕和文本上分别单独输出。
我研究了下,发现WRITE(*,*) X  这个语句前面打开的是哪个文本, 那么他就在这个文本上接着写,而不是跳出写在屏幕上.

这个问题很严重,我想在比较大的程序中加入一些特殊输出语句,用来观察程序运行的进度,这个问题不解决,很麻烦。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖


感谢参与,应助指数 +1
xzhdty: 金币+1, 专家考核, 感谢参与 2012-05-13 15:59:44
这个程序本身没有问题,会在屏幕上输出一个 2.0000000,也会在文本文件中输出结果的。

你如果觉得有问题,请检查你的编译、运行环境等等……
2楼2012-05-13 15:57:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖


jjdg: 金币+1, 感谢参与 2012-05-14 01:26:36
另外,一个建议,不要使用 10 以下的 unit 来关联你的文件,比如你把 2 换成 12 之类的可能更好。

有可能你的编译器中对默认的 unit 不同……
3楼2012-05-13 15:59:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 爱玩辅助的亚瑟 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 函评 +4 布布和一二 2026-06-13 4/200 2026-06-14 18:01 by wuke100666
[论文投稿] 买卖文章的刷屏了! +3 能丫 2026-06-13 3/150 2026-06-14 09:20 by bobvan
[考研] *O_o^ +3 jk31rb6vyz 2026-06-12 3/150 2026-06-14 09:08 by 8bmv3h4hvh
[论文投稿] ⊙▽⊙ +3 m584r2z4j3 2026-06-11 3/150 2026-06-14 08:46 by 8bmv3h4hvh
[硕博家园] T^T +7 m584r2z4j3 2026-06-11 8/400 2026-06-14 08:34 by 8bmv3h4hvh
[考博] →_→ +4 q1zg6x4lf3 2026-06-12 4/200 2026-06-14 08:28 by 8bmv3h4hvh
[公派出国] T^T +6 q1zg6x4lf3 2026-06-12 6/300 2026-06-14 08:28 by 8bmv3h4hvh
[考博] T^T +4 q1zg6x4lf3 2026-06-12 4/200 2026-06-14 08:26 by 8bmv3h4hvh
[硕博家园] O(∩_∩)O +6 jk31rb6vyz 2026-06-12 8/400 2026-06-14 08:10 by 8bmv3h4hvh
[公派出国] π_π +5 m584r2z4j3 2026-06-11 5/250 2026-06-14 08:08 by 8bmv3h4hvh
[考研] ╭(╯ε╰)╮ +5 m584r2z4j3 2026-06-11 5/250 2026-06-14 08:03 by 8bmv3h4hvh
[找工作] 售SCI文章,我:8.O.5.51O.5.4,科目齐全,可十急 +3 q1zg6x4lf3 2026-06-12 3/150 2026-06-13 19:07 by 1js5n6upxm
[文学芳草园] 咸菜 +3 myrtle 2026-06-10 3/150 2026-06-13 18:29 by ahsoarli
[考博] π_π +4 m584r2z4j3 2026-06-11 4/200 2026-06-13 18:25 by lkmi35jdzt
[考研] o>_<o +5 m584r2z4j3 2026-06-11 5/250 2026-06-13 18:22 by lkmi35jdzt
[考博] T^T +4 jk31rb6vyz 2026-06-12 4/200 2026-06-13 12:09 by 80j16ujcu8
[论文投稿] →_→ +5 m584r2z4j3 2026-06-11 5/250 2026-06-13 08:13 by t4hz8376wy
[基金申请] 前几天时间戳更新了 +8 vito刘 2026-06-11 13/650 2026-06-12 14:17 by BlakeReary
[教师之家] AASSDDFF +3 m584r2z4j3 2026-06-11 3/150 2026-06-12 11:28 by zs48m4lz8g
[考博] 博士申请 +3 张城斐 2026-06-07 3/150 2026-06-08 09:15 by A大朋同学
信息提示
请填处理意见