| 查看: 276 | 回复: 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)) 请问如何修改？谢谢。 |
回复此楼» 猜你喜欢
土木水利328分求调剂
已经有5人回复
-
调剂
已经有3人回复
-
265求调剂
已经有10人回复
-
338求调剂，一志愿能源动力，外语是日语203
已经有4人回复
-
一志愿安徽大学0817化学工程与技术，求调剂
已经有13人回复
-
309求调剂
已经有12人回复
-
312求调剂
已经有7人回复
-
288求调剂 一志愿哈工大 材料与化工
已经有34人回复
-
一志愿a区211，085601-307分求调剂
已经有25人回复
-
求材料调剂，一志愿郑州大学289分
已经有5人回复
pdce218
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 1076.2
- 散金: 7
- 红花: 2
- 帖子: 491
- 在线: 66.3小时
- 虫号: 568175
- 注册: 2008-06-03
- 性别: GG
- 专业: 理论和计算化学
2楼2010-08-03 00:22:49
