算法输出array bounds exceed

xgmxhym

这是我从书上抄下来的程序，但是运行一直出现array bounds exceed，因为我没学过fortran,所以看不出来，求大神指教，比较急啊

xgmxhym

楚香饭 发表于 2014-10-12 20:51
不能，我对你的代码的算法一无所知

好吧，谢谢了，

楚香饭

不能，我对你的代码的算法一无所知

xgmxhym

楚香饭 发表于 2014-10-12 20:14
1.如果你不太会，建议还是用 common 吧，替代它的代码非常麻烦。
2.这段代码是你修改别人的吧？我给你的建 ...

你不能帮我解决吗？

楚香饭

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

xgmxhym

楚香饭 发表于 2014-10-12 19:32
ASSEMB 函数中 181 行

X2=X(N2)

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

xgmxhym

楚香饭 发表于 2014-10-12 19:32
ASSEMB 函数中 181 行

X2=X(N2)

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

xgmxhym

楚香饭 发表于 2014-10-12 19:32
ASSEMB 函数中 181 行

X2=X(N2)

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

xgmxhym

楚香饭 发表于 2014-10-12 19:32
ASSEMB 函数中 181 行

X2=X(N2)

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

楚香饭

ASSEMB 函数中 181 行

X2=X(N2)

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

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