24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 504  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 264分,求任意工科调剂 +4 zzlqwq 2026-03-29 5/250 2026-04-02 17:17 by 何曾几何
[考研] 265求调剂 +11 林深温澜 2026-04-01 13/650 2026-04-02 15:42 by 小醋坛子666
[考研] 085600 295分求调剂 +16 W55j 2026-03-30 19/950 2026-04-02 13:22 by chran16
[考研] 能源动力 调剂 +3 不破不立0 2026-04-02 3/150 2026-04-02 12:46 by ffffjjjj
[考研] 311求调剂 +14 蓝月亮亮 2026-03-30 14/700 2026-04-02 12:18 by 1753564080
[考研] 272求调剂,接受跨专业调剂! +4 闲鱼卢 2026-03-31 4/200 2026-04-02 11:18 by guyan1000
[考研] 计算机265跨调环境 +5 Yumeng_6 2026-03-27 5/250 2026-04-02 10:54 by guanxin1001
[考研] 354求调剂 +4 lxb598 2026-03-31 5/250 2026-04-02 09:55 by Jaylen.
[考研] 266求调剂 +10 阳阳哇塞 2026-04-01 10/500 2026-04-02 09:07 by vgtyfty
[考研] 一志愿北京科技,085601总分305求调剂 +9 半生瓜! 2026-04-01 11/550 2026-04-02 08:28 by Wang200018
[考研] 生物学327,求调剂 +5 书上的梅子 2026-04-01 6/300 2026-04-02 06:47 by ilovexiaobin
[考研] 279求调剂 +7 莫xiao 2026-04-01 7/350 2026-04-01 22:05 by 客尔美德
[考研] 379求调剂 +3 ?苦瓜不苦 2026-04-01 3/150 2026-04-01 20:09 by 暮云清寒
[考研] 一志愿郑大085600,310分求调剂 +6 李潇可 2026-03-26 6/300 2026-04-01 14:44 by chenqifeng666
[考研] 340求调剂 +4 希望如此i 2026-03-31 4/200 2026-03-31 16:40 by 690616278
[考研] 293分求调剂,外语为俄语 +5 加一一九 2026-03-31 5/250 2026-03-31 09:39 by zhshch
[考研] 085601一志愿西北工业大学初试346 +4 085601初试346 2026-03-30 4/200 2026-03-31 07:47 by jp9609
[考研] 材料与化工(0856)304求B区调剂 +8 邱gl 2026-03-27 8/400 2026-03-28 12:42 by 唐沐儿
[考研] 295求调剂 +5 1428151015 2026-03-27 6/300 2026-03-28 04:04 by fmesaito
[考研] 324求调剂 +5 hanamiko 2026-03-26 5/250 2026-03-27 10:33 by wangjy2002
信息提示
请填处理意见