| 查看: 1248 | 回复: 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 ] |
回复此楼» 猜你喜欢
Cas 72-43-5需要30g，定制合成，能接单的留言
已经有7人回复
-
磺酰氟产物，毕不了业了！
已经有5人回复
-
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？
已经有5人回复
-
论文终于录用啦！满足毕业条件了
已经有25人回复
-
2026年机械制造与材料应用国际会议 （ICMMMA 2026）
已经有3人回复
-
自荐读博
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有5人回复
-
不自信的我
已经有5人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
ftp0000
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1822.1
- 帖子: 292
- 在线: 6.6小时
- 虫号: 585530
- 注册: 2008-08-08
- 专业: 凝聚态物性 II ：电子结构
3楼2010-03-11 12:37:46