[求助] 分配内存

213 帖子	2 主题	0 精华

宗师

F 币: 2126 元
贡献: 875 点

发消息

楼主

发表于 2023-3-6 22:57:56 | 显示全部楼层

[Fortran] 纯文本查看 复制代码

type :: item
   integer * 4, allocatable :: subitem(:)
end type

type(item), allocatable :: iblocks(:)

allocate(iblocks(85))
do i = 1, 85
allocate(iblocks(i) % subitem(49))
end do

评分

参与人数 1	F 币 +2	收起理由
楚香饭	+ 2

查看全部评分

回复支持 1 反对 0

使用道具举报

返回列表发新帖