Fortran Coder

楼主: wy123
打印 上一主题 下一主题

[数值问题] 关于数组越界的问题!!

[复制链接]

130

帖子

10

主题

0

精华

大师

F 币
617 元
贡献
372 点

贡献勋章管理勋章帅哥勋章元老勋章星光勋章规矩勋章

楼主
发表于 2017-8-16 13:38:06 | 显示全部楼层
1 加一個敘述: SAVE
[Fortran] 纯文本查看 复制代码
Data iff/0/
[b]SAVE[/b] ! save local variables inext, inextp, and ma
If (idum<0 .Or. iff==0) Then


2. http://www.indiana.edu/~clcl/Q550_WWW/Number_Generators.f95

130

帖子

10

主题

0

精华

大师

F 币
617 元
贡献
372 点

贡献勋章管理勋章帅哥勋章元老勋章星光勋章规矩勋章

沙发
发表于 2017-8-16 15:55:54 | 显示全部楼层
wy123 发表于 2017-8-16 15:42
[/img]
大哥您好 出现了下面的语法错误
另外您给我的这个module拿去算的时候也出现点问题

怎樣的"语法错误"?

130

帖子

10

主题

0

精华

大师

F 币
617 元
贡献
372 点

贡献勋章管理勋章帅哥勋章元老勋章星光勋章规矩勋章

板凳
发表于 2017-8-16 16:20:07 | 显示全部楼层
Data iff/0/
SAVE
If (idum<0 .Or. iff==0) Then

這樣會錯???

130

帖子

10

主题

0

精华

大师

F 币
617 元
贡献
372 点

贡献勋章管理勋章帅哥勋章元老勋章星光勋章规矩勋章

地板
发表于 2017-8-16 18:42:21 | 显示全部楼层
小老弟, 網站教學視頻好好研習, 你這個樣子是不行的
最起碼, 你要知道"為什麼?"加了之后问题解决了

评分

参与人数 1贡献 +5 收起 理由
fcode + 5 赞一个!

查看全部评分

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-5-6 17:01

Powered by Tencent X3.4

© 2013-2024 Tencent

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