24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

贺仪

铁杆木虫 (著名写手)

应助: 93 (初中生)
贵宾: 0.636
金币: 5937
散金: 1063
红花: 38
沙发: 2
帖子: 2499
在线: 588.7小时
虫号: 995125
注册: 2010-04-12
性别: GG
专业: 凝聚态物性 II ：电子结构

[求助] 动态数组分配

我有一个数组cc（：，：，：）我通过读取文件知道其中的前两维如（8,6，：），第三维要在定义以后才知道。
程序结构是这样的：
读取文件知道cc大小是(8,6,

，第三维未知
然后进入循环读取
do i=1,8
do j=1,6
读取文件,知道cc（i,j,:）的第三维,但是每次大小都不一样：如cc（1,1,:）有5623个,cc(2,1,

有1234个，（这里面最大的也不知道）
         然后读取    给 cc(i,j,5623)赋值
         enddo
enddo

请问只里面怎么是用动态分配？可以这样吗？：
   ALLOCATE（CC(NBAND,NKPTS,

）先定下二维，然后在循环里面定义第三维吗？可以的话应该怎么弄？这样就会不会多次分配而出错？

或者有什么方法可以读取出来？

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

嘟啦啦嘟啦啦嘟

1楼 2011-11-10 15:35:43

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

koorb

铁虫 (初入文坛)

应助: 0 (幼儿园)
金币: 57.3
帖子: 30
在线: 9.8小时
虫号: 1477156
注册: 2011-11-05
性别: GG
专业: 固体力学

【答案】应助回帖

★
贺仪(金币+2): 谢谢，还是有点问题…… 2011-11-11 09:43:31
xzhdty(金币+1): 欢迎常来程序语言讨论 2011-11-11 10:46:21

引用回帖:

6楼: Originally posted by 贺仪 at 2011-11-10 16:40:17:
是的但这只是举个例子，真正的数组会达到30*50

但是变成48个二维数组也没什意义，还是不能在这之前定义保存起来。

前面说的用一个临时变量那也要48个变量呀……

另外链表怎么用？可否大概说一下我的这 ...

30×50和6×8对应编程来说又有什么区别呢？
我说的3个方案都是可行的，只是你否定得太快了。
如果你不能从下面的例子中得到启示的话，那就算了。
integer d1,d2,d3,i,j,k
double precision, allocatable::array(:,:,

d1=2
d2=3
d3=1
allocate(array(d1,d2,d3))
print *, array
print *, "*****************"
do i=1,d1
      do j=1,d2
         deallocate(array)!deallocate之前保存数据到临时数组里。
         d3=2
         allocate(array(d1,d2,d3))
      end do
end do
print *, array