Fortran Coder

查看: 2203|回复: 2

[通用算法] 分配N个动态数组

[复制链接]

68

帖子

25

主题

0

精华

专家

F 币
321 元
贡献
197 点
发表于 2022-3-14 04:46:48 | 显示全部楼层 |阅读模式
大家好,

我想向大家请教一个问题。

我想构建N个动态数组,但N的数值以及每个动态数组的大小,事先并不知道,而是从文件里读到的。

请问大家,有什么办法构建起N个这样的动态数组(尤其是,给每个动态数组设定一个变量名)呢?

麻烦大家给些建议吧。

谢谢啦。

祝好!

Kieran

2031

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1632 元
贡献
705 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2022-3-14 08:14:14 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
type :: T_dArray
  real , allocatable :: d(:)
end type T_dArray
Type( T_dArray ) , allocatable :: da(:)
Allocate( da(N))
Do i = 1 , N
  Allocate( da(i)%d(m(i)) )
End Do

68

帖子

25

主题

0

精华

专家

F 币
321 元
贡献
197 点
 楼主| 发表于 2022-3-14 17:04:21 | 显示全部楼层
fcode 发表于 2022-3-14 08:14
[mw_shl_code=fortran,true]type :: T_dArray
  real , allocatable :: d(:)
end type T_dArray

非常感谢你的建议,这个代码结构对我很有帮助。

谢谢啦!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-12-9 21:49

Powered by Tencent X3.4

© 2013-2024 Tencent

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