24小时热门版块排行榜    

查看: 496  |  回复: 1

phenyl

铜虫 (初入文坛)

[求助] 161错误 数组越界怎么改过来?

我想得到结果:
5 5 5 5 5
1 2 3 4 5
2 3 4 5 6
用如下fortran程序,结果只显示两行而且说161错误 数组越界怎么改过来呀?我是小白啊


program ex0713
implicit none
  integer i
  integer j
  integer :: a(5)
  integer :: b(5)

  forall(i=1:5)
    a(i)=5
  end forall
  ! a(1)=a(2)=a(3)=a(4)=a(5)=5
  write(*,*) a

  forall(i=1:5)
    a(i)=i
  end forall
  ! a(1)=1, a(2)=2, a(3)=3, a(4)=4, a(5)=5
  write(*,*) a

  forall(j=2:6)
    b(j)=j
  end forall
  ! b(1)=2, b(2)=3, b(3)=4, b(4)=5, b(5)=6
  write(*,*) b

  stop
end
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

只问耕耘,不问收获
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

锐利的碎片

木虫 (正式写手)

star watcher

【答案】应助回帖

★ ★ ★ ★
感谢参与,应助指数 +1
phenyl: 金币+3, ★★★很有帮助 2012-04-29 17:53:37
xzhdty: 金币+1, 欢迎常来程序语言 2012-04-30 16:40:10
forall(j=2:6)
    b(j)=j
  end forall
改成
forall(j=1:5) b(j)=j+1
2楼2012-04-29 16:40:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 phenyl 的主题更新
信息提示
请填处理意见