分配N个动态数组

Kieran

大家好，

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

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

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

麻烦大家给些建议吧。

谢谢啦。

祝好！

Kieran

Kieran

fcode 发表于 2022-3-14 08:14
[mw_shl_code=fortran,true]type :: T_dArray
  real , allocatable :: d(:)
end type T_dArray

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

谢谢啦！

fcode

[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