远古代码运行报错如何处理呀

necrohan

把第9行那个子程序展开看一下代码

necrohan

第一个错误提示是 call solvemompllud(X,...) 中的参数x不匹配，调用程序中没有声明x，默认是一个实数。
solvemompllud 子程序的定义中声明 dimension::x(*) 为一个数组。
这二者不匹配产生的错误。