24小时热门版块排行榜

返回列表

风起天已蓝

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 1.5
帖子: 7
在线: 52分钟
虫号: 7758985
注册: 2018-01-11
专业: 零件成形制造

[求助] fortran数组越界已有1人参与

新人，提示55行k数组越界了但是找不到哪里错了，求大神解释一下

回复此楼

» 本帖附件资源列表

欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
附件 1 : o.for.zip

2018-08-12 10:00:02, 1.06 M

» 猜你喜欢

1楼 2018-08-12 10:01:27

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

风起天已蓝

新虫 (初入文坛)

顶

2楼2018-08-21 20:18:57

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

ziyue_pony

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 657.5
帖子: 176
在线: 39.8小时
虫号: 4574983
注册: 2016-04-09
专业: 电力系统

【答案】应助回帖

subroutine xn
! integer i
   include "o.for"
   dr=dble(r/n1)
j1=n1+1
j2=n2+1
np=j1*j2
nm=n1*n2
   do 6 i=1,1 [***********]
   do 6 j=1,n2+1
   k=(j-1)*j1+i
   w1=(1.571/n2)*(j-1)
c    这边x数组越界了k太大了
   x(1,k)=0.01*COS(w1)
6 x(2,k)=0.01*SIN(w1)

程序52行，循环代码写错了，修改了就好了。

赞一下

回复此楼

3楼2018-09-06 17:47:49

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

相关版块跳转我要订阅楼主风起天已蓝的主题更新

返回列表

24小时热门版块排行榜

风起天已蓝

[求助] fortran数组越界 已有1人参与

» 本帖附件资源列表

» 猜你喜欢

风起天已蓝

ziyue_pony

【答案】应助回帖

[求助] fortran数组越界已有1人参与