| 查看: 268 | 回复: 1 | |||
kathy2008木虫 (正式写手)
|
[交流]
【求助】求主对角元素之和遇到错误，请赐教 已有1人参与
|
|
我在练习一函数子程序。 function crosssum(x,n) result(s) implicit none integer n,i real x(n,n),s s=0.0 do i=1,n s=s+x(i,i) end do end program ex618 implicit none real y(4,4),f(0:24),crosssum integer i,j y=reshape(source=(/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/),shape=(/4,4)) f=(/(i,i=1,25)/) print '(a/(4f6.1))','二维数组y(4,4):',(y(i,  ,i=1,4)print *,'y的主对角元素之和=',crosssum(y,4) print '(a/(5f6.1))','一维数组f(25):',((f(j),j=i,24,5),i=0,4) print *,'f的主对角元素之和=',crosssum(f,5) end 编辑后，有一个错误： Error: Syntax error, found END-OF-STATEMENT when expecting one of: , : (/ [ ] /) y=reshape(source=(/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/),shape=(/4,4)) 请问如何修改？谢谢。 |
回复此楼» 猜你喜欢
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有8人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有13人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有8人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有8人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有11人回复
-
为什么中国大学工科教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？
已经有8人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有5人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有6人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有9人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有4人回复
pdce218
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 1076.2
- 散金: 7
- 红花: 2
- 帖子: 491
- 在线: 66.3小时
- 虫号: 568175
- 注册: 2008-06-03
- 性别: GG
- 专业: 理论和计算化学
2楼2010-08-03 00:22:49
