Fortran Coder

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

[求助] 算法输出array bounds exceed

[复制链接]

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
608 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

11#
发表于 2014-10-12 17:39:42 | 只看该作者
54 行输入貌似不够,你确定只有54行吗?

还有,为啥要用 pdf 格式呢?请用 txt

16

帖子

2

主题

0

精华

入门

F 币
65 元
贡献
37 点
12#
 楼主| 发表于 2014-10-12 18:54:51 | 只看该作者
楚香饭 发表于 2014-10-12 17:39
54 行输入貌似不够,你确定只有54行吗?

还有,为啥要用 pdf 格式呢?请用 txt

实在不好意思啊,我今早想给改少点数的,有地方没改了,实在不好意思,真的很感谢你啊,我在做课题,所以非常感谢你啊

input.txt

532 Bytes, 下载次数: 4

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
608 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

13#
发表于 2014-10-12 19:32:11 | 只看该作者
ASSEMB 函数中 181 行

X2=X(N2)

越界,N2=CON(J1,2) 为 0

忠告,请把所有 COMMON 后面的变量表统一,不要一会 100,一会 200,这样特别容易出错。(当然,最好是不要使用 common)

16

帖子

2

主题

0

精华

入门

F 币
65 元
贡献
37 点
14#
 楼主| 发表于 2014-10-12 19:43:17 | 只看该作者
楚香饭 发表于 2014-10-12 19:32
ASSEMB 函数中 181 行

X2=X(N2)

不用common的意思是可以直接把哪些项删除吗?

16

帖子

2

主题

0

精华

入门

F 币
65 元
贡献
37 点
15#
 楼主| 发表于 2014-10-12 19:55:32 | 只看该作者
楚香饭 发表于 2014-10-12 19:32
ASSEMB 函数中 181 行

X2=X(N2)

那这个问题要怎么解决啊?

16

帖子

2

主题

0

精华

入门

F 币
65 元
贡献
37 点
16#
 楼主| 发表于 2014-10-12 19:59:52 | 只看该作者
楚香饭 发表于 2014-10-12 19:32
ASSEMB 函数中 181 行

X2=X(N2)

这个N2=CON(J1,2) 为 0,不应该是为零的,

16

帖子

2

主题

0

精华

入门

F 币
65 元
贡献
37 点
17#
 楼主| 发表于 2014-10-12 20:07:23 | 只看该作者
楚香饭 发表于 2014-10-12 19:32
ASSEMB 函数中 181 行

X2=X(N2)

,N2=CON(J1,2) ,这里没有事J1的,是J2吧?

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
608 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

18#
发表于 2014-10-12 20:14:31 | 只看该作者
1.如果你不太会,建议还是用 common 吧,替代它的代码非常麻烦。
2.这段代码是你修改别人的吧?我给你的建议是,将来你自己写代码,不要用 common
3.每个函数里的 common ,建议要一致,你这里的 common 里的 Q ,有的函数里是 100,有的是 200,这样很容易出错。
4.是 N2 越界,N1 或者 J1 没事。
5.建议你学习如何 Debug 调试,快速寻找错误。你可以参考本站文章学习 http://error.w.fcode.cn

16

帖子

2

主题

0

精华

入门

F 币
65 元
贡献
37 点
19#
 楼主| 发表于 2014-10-12 20:48:12 | 只看该作者
楚香饭 发表于 2014-10-12 20:14
1.如果你不太会,建议还是用 common 吧,替代它的代码非常麻烦。
2.这段代码是你修改别人的吧?我给你的建 ...

你不能帮我解决吗?

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
608 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

20#
发表于 2014-10-12 20:51:38 | 只看该作者
不能,我对你的代码的算法一无所知
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-5-17 22:44

Powered by Tencent X3.4

© 2013-2024 Tencent

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