Fortran：类型未知大小的数组

Question

也许这是一个非常愚蠢的问题，人们应该以不同的方式做到这一点，但是：是否有可能有类似的东西

type food
 INTEGER :: NBananasLeft(NBananaTypes)
 INTEGER :: NApplesLeft(NAppleTypes)
end type food

在编译时不知道NBananaTypes和NAppleTypes？

Answer 1

在Fortran 90-95：

type food
 INTEGER,pointer :: NBananasLeft(:)
 INTEGER,pointer :: NApplesLeft(:)
end type food

你必须使用allocate(var%NBananasLeft(NBananaTypes)))自己分配数组。

在Fortran 2003中：

type food
 INTEGER,allocatable :: NBananasLeft(:)
 INTEGER,allocatable :: NApplesLeft(:)
end type food

你还必须使用allocate(var%NBananasLeft(NBananaTypes)))自己分配数组，但是你可以避免内存泄漏的可能性。

在Fortran 2003中，通过参数化数据类型（只有少数编译器支持）：

type food(NBananaTypes,NAppleTypes)
 integer,len :: NBananaTypes,NAppleTypes
 INTEGER :: NBananasLeft(NBananaTypes)
 INTEGER :: NApplesLeft(NAppleTypes)
end type food