Fortran Coder

查看: 1947|回复: 2
打印 上一主题 下一主题

[求助] 分配内存

[复制链接]

48

帖子

15

主题

0

精华

熟手

F 币
179 元
贡献
104 点
跳转到指定楼层
楼主
发表于 2023-3-6 22:05:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
!  integer*4, allocatable  :: iblocks(:)%iSubblocks(:)

!  allocate(iblocks(85)%iSubblocks(49))


想请教一下,第一行的声明为什么是不可行的?怎么声明才是正确的呢?
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

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

评分

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

查看全部评分

48

帖子

15

主题

0

精华

熟手

F 币
179 元
贡献
104 点
板凳
 楼主| 发表于 2023-3-7 11:09:55 | 只看该作者
十分感谢您的解答,已解决,谢谢!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-1 08:00

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表