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

盛世青衫 · 发表于 2023-12-1 09:02:50

本帖最后由盛世青衫于 2023-12-1 09:11 编辑

请问报错为Rank mismatch in argument 'x' at (1) (rank-1 and scalar)如何处理
我找到了三段子程序，我想运行一下看一下是什么结果，自己写了一个program，遇到了一些报错，处理到没有红线之后运行依然报错，遍历全网也没找到合适的办法，求助大神帮忙解答
图一是代码，图二是报错内容，还望大神解答

Transpose · 发表于 2023-12-1 09:23:13

x没定义，建议加上implicit none

necrohan · 发表于 2023-12-1 12:53:34

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

盛世青衫 · 发表于 2023-12-5 10:06:22

necrohan 发表于 2023-12-1 12:53
把第9行那个子程序展开看一下代码

您好我已经更新图片，还望获得您的帮助谢谢

盛世青衫 · 发表于 2023-12-5 10:07:23

Transpose 发表于 2023-12-1 09:23
x没定义，建议加上implicit none

他说那个好像是个向量，如果我用real定义他也报错

盛世青衫 · 发表于 2023-12-5 10:08:07

necrohan 发表于 2023-12-1 12:53
把第9行那个子程序展开看一下代码

您好希望您帮我看一下

necrohan · 发表于 2023-12-7 21:50:16

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

盛世青衫 · 发表于 2023-12-11 14:37:34

necrohan 发表于 2023-12-7 21:50
第一个错误提示是 call solvemompllud(X,...) 中的参数x不匹配，调用程序中没有声明x，默认是一个实数。
so ...

非常感谢，

[求助] 远古代码运行报错如何处理呀

规矩勋章