与实际过程相关的伪参数与伪过程的伪参数不同

Question

我正在使用 IMSL Fortran 库中的函数 NEQNF 来求解非线性方程组并得到 3 个错误。我在 x64 系统上使用 Visual Studio 2017。错误说明如下：

Error #7061: The characterístic of dummy argument 1 of the associated actual procedure differ from the characteristics of dummy argument 1 of the dummy procedure [FCN_SS]


Error #7062: The characterístic of dummy argument 2 of the associated actual procedure differ from the characteristics of dummy argument 2 of the dummy procedure [FCN_SS]

Error #7063: The characterístic of dummy argument 3 of the associated actual procedure differ from the characteristics of dummy argument 3 of the dummy procedure [FCN_SS]

代码是：

    include 'link_fnl_shared.h' 

    use neqnf_int
    use umach_int

    implicit none

!Declaring variables
    .
    .
    .

    Contains

    subroutine solve_ss(x, fnorm)

        integer n
        parameter (n=2)

        integer k, nout
        real(dp) :: fnorm, x(n), xguess(n)

        data xguess/1.0_dp, 0.3_dp/   !guess for total output in units

        call umach (2, nout)
        call neqnf (fcn_ss, x, xguess=xguess, fnorm=fnorm)

    end subroutine solve_ss


    subroutine fcn_ss(x, f, n)

        implicit none

        !specification
        integer n
        real(dp) :: x(n), f(n)

    .
    .
    .

    F(1)=...

    F(2)=...

    end subroutine fcn_ss

我不确定错误是什么，因为solve_ss 和fcn_ss 中的变量声明是相同的。

Answer 1

该库的文档明确指出（here 和 here）您需要 use 各个模块才能访问例程的现代实现。

否则，您可能（我无法测试，但我基于this）访问该库的旧版支持。所以，不是通用的 Fortran 90 接口，它可能会引导您到 FORTRAN77 特定的接口：

NEQNF (FCN, ERRREL, N, ITMAX, XGUESS, X, FNORM)

其他细节是文档明确指出您必须将传递的函数声明为外部：

external fcn_ss

不过，我不确定这些猜测。可能是那个或任何其他奇怪的错误。请提供反馈。