用imsl求非线性方程组时运行出错，显示结果如下

sit2018

我也碰到同样的问题。

sit2018

我在用 compaq visual fortran 6.6

sit2018

Error: This is an actual argument keyword name, and not a dummy argument name.   [XGUESS]
call neqnf(fcn, x, XGUESS=xguess, FNORM=fnorm)

sit2018

program hello

    use imsl

        implicit none

        integer n
        parameter (n = 3)

        integer k, nout
        real fnorm, x(n), xguess(n)
        external fcn

data xguess/4.0, 4.0, 4.0/

call umach (2,nout)
call neqnf(fcn, x, XGUESS=xguess, FNORM=fnorm)

write (nout, 99999) (x(k),k=1,n), fnorm
99999 format (' the solution to the system is', /, ' x = (', 3f5.1, &
')', /, ' with fnorm = ', f5.4, //)


        end program hello

        subroutine fcn(x,f,n)
        integer n
        real x(n), f(n)
        real exp,sin
        intrinsic exp, sin

        f(1) = x(1)+exp(x(1)-1.0)+(x(2)+x(3))*(x(2)+x(3)) -27.0
        f(2) = exp(x(2)-2.0)/x(1)+x(3)*x(3)-10.0
        f(3) = x(3)+sin(x(2)-2.0)+x(2)*x(2)-7.0

        return
        end subroutine fcn