Fortran增加函数中的动态数组大小

Fortran增加函数中的动态数组大小