Fortran Coder

标题: 分配N个动态数组 [打印本页]

作者: Kieran 时间: 2022-3-14 04:46
标题: 分配N个动态数组
大家好，

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

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

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

麻烦大家给些建议吧。

谢谢啦。

祝好！

Kieran

作者: fcode 时间: 2022-3-14 08: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

作者: Kieran 时间: 2022-3-14 17:04

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

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

谢谢啦！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)