根据我的习惯,做了一些修改。
我的有些习惯不是必须的,但我个人认为会让更清晰。
[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 |