fortran - 错误 : Rank mismatch in argument (rank-1 and scalar)

Question

我遇到了这类错误。

colsys.f:1367.51:

     1          NOLD, ALDIF, K, NCOMP, M, MSTAR, 3,DUMM,0)              
                                                   1
Warning: Rank mismatch in argument 'dmval' at (1) (rank-1 and scalar)
colsys.f:814.33:

     1          EALPHA, A, IPIV, INTEGS, RNORM, 0, FSUB,                
                                 1
Warning: Actual argument contains too few elements for dummy argument 'integs' (1/3) at (1)

这里我给出程序链接。下面提供的链接中有更多错误。我修复的一些错误。但是我不知道如何附加更新后的程序，因为它太长了，无法复制和粘贴。

http://www4.ncsu.edu/~mtchu/Teaching/Lectures/MA581/colsys.f

Answer 1

要么

a) 在过程声明中(函数或子程序)参数dumm被定义为rank-1数组(如果您愿意，可以使用一维数组，但“rank-1”是您的编译器使用的 Fortran 术语)，当您的代码调用该过程时，它会被赋予一个标量值。请特别注意，标量值与只有一个元素的 rank-1 数组不同(对于参数匹配)。

或

b) 反之亦然。

无论哪种方式，过程定义中的参数与调用过程时传递的参数不匹配。

您报告的第二个错误是类似的，似乎在调用过程时它需要一个 3 元素数组，但只得到一个 1 元素数组。或者类似的东西。

就我个人而言，我不倾向于在站外访问链接来寻找更多要修复的错误。