也许这是一个非常愚蠢的问题,也许我们应该用不同的方式解决,但是:是否有可能有类似于这样的内容?
type food
INTEGER :: NBananasLeft(NBananaTypes)
INTEGER :: NApplesLeft(NAppleTypes)
end type food
在编译时不知道NBananaTypes和NAppleTypes的情况下,怎样处理?
interface food
,以接口任何数量的具有与派生类型相同名称的函数。这允许透明地创建对象,例如bar = food(NBananaTypes, NAppleTypes)
或任何其他您指定的签名。 - sigma