Question

关于Fortran自定义类型问题

我在Fortran程序的开始定义了一个模块，其中包含一个自定义类型，如下：

module typedef
type one
real :: a,b,c,d
end type
end module
现在的问题是，我在主程序中要需要调用这个模块中自定义类型，如下：
program test
use typedef
implicit none
type(one) :: S
请问这里能否将S 声明为一个动态数据，如S(:).
我试了一下，type(one),allocatable :: S(:) 但是程序出错。还望高手帮忙解答一下。

Answer 1

可以的。

如果你遇到错误，请给出错误提示

追问

谢谢您,确实是可以运行的,原来是我在分配动态数组的时候allocate(s(m)),m出现了问题.

追答

不客气。建议楼主不要使用 dimension

Answer 2

你是否可把它写得更现代一些呢？
type(one), dimension(:), allocatable :: S