Type 包含 allocatable 数组

weixing1531

二维不等长数组的固定套路

kyra

根据我的习惯，做了一些修改。

我的有些习惯不是必须的，但我个人认为会让更清晰。

[Fortran] 纯文本查看 复制代码

type T_mytype !类型名做个区分
  sequence
  integer,allocatable:: array_type(:) !非必要不写dimension
  integer:: other_variables(10)
end type T_mytype
!必要写 dimension 的情况是，需要大量定义相同大小尺寸的多个数组
type(T_mytype),allocatable:: array_main(:)
integer :: j
allocate(array_main(3)) !先分配array_main
do j = 1 , size(array_main)
  allocate(array_main(j)%array_type(10)) !再逐个分配array_type
end do
!allocate(array_type(10)) !这句多余，且无意义

end

唐汉

[Fortran] 纯文本查看 复制代码

program main

   implicit none

   type :: mytype
      sequence
      integer, dimension(:), allocatable :: array_type
      integer, dimension(10) :: other_variables
   end type mytype

   type(mytype), dimension(:), allocatable :: array_main
   integer :: i

   allocate (mytype :: array_main(10))
   do i = 1, size(array_main)
      allocate (array_main(i)%array_type(10))
   end do

end program main

不晓得是不是正确理解了你的问题，但是应该只是格式问题。