| 查看: 1275 | 回复: 4 | |||
| 当前主题已经存档。 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 sandf 的 2 个金币 ，回帖就立即获得 2 个金币，每人有 1 次机会 | |||
sandf木虫 (正式写手)
|
[交流]
【求助】fortran 二维数组片段的赋值
|
||
|
在程序可执行段，我想把下面的赋值代码（为使代码简洁） NGTO = 1 GTOPARA(1:5, NGTO) = (/AtomPARA(1:3,1), 3.4252509D0, 0.15432897D0/) NGTO = NGTO + 1 GTOPARA(1:5, NGTO) = (/AtomPARA(1:3, 1), 0.6239137D0, 0.53532814D0/) NGTO = NGTO + 1 GTOPARA(1:5, NGTO) = (/AtomPARA(1:3, 1), 0.1688554D0, 0.44463454D0/) 简化如下 NGTO = 1 GTOPARA(1:5, NGTO:NGTO + 2) = (/AtomPARA(1:3,1), 3.4252509D0, 0.15432897D0, AtomPARA(1:3, 1), 0.6239137D0, 0.53532814D0, AtomPARA(1:3, 1), 0.1688554D0, 0.44463454D0/) 结果编译错误： GTOPARA(1:5, NGTO:NGTO + 2) = (/AtomPARA(1:3, I), 3.4252509D0 1 Error: Incompatible ranks 2 and 1 in assignment at (1) 注：编译器为：gcc4.5gfortran(20090421) 请问有没有解决办法。 [ Last edited by jjdg on 2010-3-9 at 23:46 ] |
回复此楼» 猜你喜欢
压国家一区线，求导师收留，有恩必谢！
已经有7人回复
-
081200-11408-276学硕求调剂
已经有4人回复
-
22408 359分调剂
已经有4人回复
-
本科新能源科学与工程，一志愿华理能动285求调剂
已经有5人回复
-
一志愿华北电力大学能动专硕，293，求调剂
已经有5人回复
-
调剂310
已经有7人回复
-
食品工程专硕一志愿中海洋309求调剂
已经有6人回复
-
275求调剂
已经有14人回复
-
283求调剂
已经有3人回复
-
085602 化工专硕 338分 求调剂
已经有12人回复
hakekill
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1709.3
- 帖子: 131
- 在线: 19小时
- 虫号: 246017
- 注册: 2006-04-29
- 性别: GG
- 专业: 水环境与生态水利
★ ★
sandf(金币+2):谢谢参与
senlia(金币+1):感谢应助 2010-03-10 12:40
sandf(金币+4):非常感谢 2010-03-10 13:17
sandf(金币+2):谢谢参与
senlia(金币+1):感谢应助 2010-03-10 12:40
sandf(金币+4):非常感谢 2010-03-10 13:17
|
这个错误是说将一维数组赋给二维，我想了一个变通的方法，通过引入一个数组来完成，代码在下面，希望能对你有所帮助 program main real :: const( 3, 5 ) real :: atompara( 3, 2) integer :: r, c data((const(r, c), c = 4, 5), r = 1, 3)/3.42, 0.15, 0.62, 0.53, 0.16, 0.44/ do r = 1, 3 do c = 1, 2 atompara(r, c) = r + c end do end do do r = 1, 3 const( r, 1 : 3 ) = atompara( 1 : 3, 1) end do print "(5(f6.2,1x))", ((const(r,c),c=1,5),r=1,3) end program |
2楼2010-03-10 12:33:49
ftp0000
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1822.1
- 帖子: 292
- 在线: 6.6小时
- 虫号: 585530
- 注册: 2008-08-08
- 专业: 凝聚态物性 II ：电子结构
3楼2010-03-11 12:37:46
sandf
木虫 (正式写手)
- 应助: 15 (小学生)
- 金币: 1631.4
- 散金: 121
- 红花: 2
- 帖子: 604
- 在线: 136.6小时
- 虫号: 305516
- 注册: 2006-12-10
- 性别: GG
- 专业: 理论和计算化学
4楼2010-03-11 21:25:29
hakekill
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1709.3
- 帖子: 131
- 在线: 19小时
- 虫号: 246017
- 注册: 2006-04-29
- 性别: GG
- 专业: 水环境与生态水利
5楼2010-03-12 08:35:39
5