Ifort18.0或者gfrotran8.1中，定义的参数化派生类型应该如何all...

vvt

Type :: PMat(k)
    INTEGER(KIND=4),KIND :: k
    REAL(KIND=8) , allocatable :: M(:,:)
End Type
Type(PMat(8)) :: A
allocate( A%m(3,3) )

vvt

liudy02 发表于 2018-10-18 20:56
谢谢大神的回复
您的意思是直接放弃派生类型的LEN型参数，而是用不定结构数组或者指针来实现同样的功能？ ...

我是觉得可分配数组比 Integer , len 更灵活。

type(matrix(kind=4,n=2)) :: a(100)

这100个 a(i) 都是 n=2

而用可分配数组的话，每个 a(i) 的 n 还可以不一样。岂不是更美妙？