Fortran Coder

标题: 远古代码运行报错如何处理呀 [打印本页]

作者: 盛世青衫 时间: 2023-12-1 09:02
标题: 远古代码运行报错如何处理呀
本帖最后由盛世青衫于 2023-12-1 09:11 编辑

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

1ccfd23ffbff88cc06d4dc440e290d8.png (114.46 KB, 下载次数: 99)

ee583dca4355c7e42b0185917db94e7.png (128.21 KB, 下载次数: 92)

作者: Transpose 时间: 2023-12-1 09:23
x没定义，建议加上implicit none

作者: necrohan 时间: 2023-12-1 12:53
把第9行那个子程序展开看一下代码

作者: 盛世青衫 时间: 2023-12-5 10:06

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

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

作者: 盛世青衫 时间: 2023-12-5 10:07

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

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

作者: 盛世青衫 时间: 2023-12-5 10:08

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

您好希望您帮我看一下

2cda3f2b274ca1556e56a2386150c3e.png (198.12 KB, 下载次数: 87)

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

作者: 盛世青衫 时间: 2023-12-11 14:37

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

非常感谢，

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)