Fortran Coder

查看: 6954|回复: 2

[数值问题] 为什么i,j的输出不一样?

[复制链接]

8

帖子

3

主题

0

精华

入门

F 币
57 元
贡献
33 点
发表于 2014-12-13 20:44:17 | 显示全部楼层 |阅读模式
[Fortran] 纯文本查看 复制代码
Program Main
  Implicit None

  Call Test
  Call Test
  Stop
End Program Main

Subroutine Test
  Implicit None
  Integer :: J
  Integer :: I = 2

  J = 2
  J = J + J
  I = I + I
  Write (*, *) J, I
End Subroutine Test
请教各位大神,为什么第一次call test输出是4,4;第二次call test输出的是4,8  ?

1947

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1295 元
贡献
545 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2014-12-13 21:32:08 | 显示全部楼层
因为 integer::i=2 是定义语句,而不是执行语句,并不会在每次运行时执行。
同时,定义时进行赋值的变量,自动具有save属性。

所以第一次调用
i=2
j=2
j=j+j=4
i=i+i=4
第二次调用
i=4(上一次的结果)
j=2
j=j+j=4
i=i+i=8

评分

参与人数 1F 币 +1 贡献 +1 收起 理由
306908677 + 1 + 1 学习了!

查看全部评分

8

帖子

3

主题

0

精华

入门

F 币
57 元
贡献
33 点
 楼主| 发表于 2014-12-14 08:40:22 | 显示全部楼层
原来是这样,多谢啦!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-3-28 18:19

Powered by Tencent X3.4

© 2013-2024 Tencent

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