分配N个动态数组

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