函数体里的形式参数的数组大小超过了主程序里的实际参数数组大小，也就是参数不匹配。 更改可以是使用(1)显式结构形参数组,(2)不定结构形参数组 1) 显式结构形参数组： subroutine subr(n,array) integer:: n real:: array(n) 2) 不定结构形参数
更改可以是使用(1)显式结构形参数组,(2)不定结构形参数组
1) 显式结构形参数组：
subroutine subr(n,array)
integer:: n
real:: array(n)
2) 不定结构形参数组
subroutine subr(array)
real:: array(:)
内容全部来源于网络收集，如有侵权，请联系网站删除！