24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 503  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 346求调剂 +3 郑诚乐 2026-04-02 3/150 2026-04-02 13:39 by 乔哒哒哒
[考研] 材料求调剂 一志愿哈工大总分298分,前三科223分 +12 dongfang59 2026-03-27 12/600 2026-04-02 12:26 by ms629
[考研] 266分,一志愿电气工程,本科材料,求材料专业调剂 +10 哇呼哼呼哼 2026-04-01 11/550 2026-04-02 11:31 by lnilvy
[考研] 07生物学求调剂 一志愿同济大学359分 +3 LAMC. 2026-03-30 3/150 2026-04-02 10:26 by 18828373951
[考研] 085600,材料与化工321分调剂 +8 大馋小子 2026-03-27 10/500 2026-04-02 10:15 by kaiyanjie
[考研] 302求调剂一志愿北航070300,本科郑大化学 +8 圣日耳曼条 2026-04-01 11/550 2026-04-02 07:40 by chemdavid
[考研] 295材料工程专硕求调剂 +19 1428151015 2026-03-27 19/950 2026-04-01 22:34 by peike
[考研] 292求调剂 +17 木虫er12138 2026-04-01 17/850 2026-04-01 21:37 by 七度不信任
[考研] 362求调剂 +13 西南交材料专硕3 2026-03-31 13/650 2026-04-01 17:38 by JYD2011
[考研] 283求调剂 +9 A child 2026-03-28 9/450 2026-04-01 14:20 by Jaylen.
[考研] 322求调剂 +8 三水sss 2026-04-01 8/400 2026-04-01 10:19 by 唐沐儿
[考研] 336材料求调剂 +10 陈滢莹 2026-03-26 12/600 2026-03-31 17:59 by jp9609
[考研] 调剂求院校招收 +7 鹤鲸鸽 2026-03-28 7/350 2026-03-31 11:21 by oooqiao
[考研] 313求调剂 +6 卖个关子吧 2026-03-31 6/300 2026-03-31 10:58 by Jaylen.
[考研] 一志愿食品科学与工程083200求调剂 +4 XQTJZ 2026-03-30 4/200 2026-03-31 04:10 by fmesaito
[考研] 材料专硕 085600求调剂 +7 BBQ233 2026-03-30 7/350 2026-03-30 17:44 by oooqiao
[考研] 340求调剂 +6 Amber00 2026-03-26 6/300 2026-03-29 12:06 by 无际的草原
[考研] 085600,专业课化工原理,321分求调剂 +5 大馋小子 2026-03-28 5/250 2026-03-29 08:56 by qingfeng258
[考研] 085602 化工专硕 338分 求调剂 +12 路痴小琪 2026-03-27 12/600 2026-03-28 15:41 by L135790
[考研] 266求调剂 +11 阳阳哇塞 2026-03-27 12/600 2026-03-27 17:56 by yu221
信息提示
请填处理意见