Type 包含 allocatable 数组

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

kyra

改成
read(fid_segy) traces(i)%header ,traces(i)%idata ! 读取前500道
就行了。
带有可分配数组的 type，不能整体读写。

kyra

风平老涡 发表于 2023-3-26 11:50
read语句不能直接读取type类变量。

不含可分配数组和指针的派生类型是可以直接整体读写的。

kyra

抱歉，我对其他语言了解很少。
但是 C/C++ 也有同样的问题，如果包含指针（指向一个分配出来的数组），那么读取的是指针而不是指针指向的目标。
此外，C/C++的原生指针（非容器类），编译器并不存储指向目标数组的大小，所以更没法整体读取数组。