imsl函数库NEQNF函数使用错误，求助大佬们

yowai

大佬们求助，实在看不出来这个问题在哪。代码如下：

program kakusann

Include 'link_fnl_shared.h'
USE NEQNF_INT
USE UMACH_INT

implicit none
integer,parameter::n=2
real::F(n)
integer::k,nout
real::x(n),xguess(n)
real::fnorm


F(1)=55*x(1)**3+2*x(1)
F(2)=4*x(2)**3+2*x(2)

data xguess/3.0,3.0/

call    umach(2,nout)
CALL  NEQNF (F, 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



输出结果：
*** TERMINAL ERROR 2 from DNEQNJ.  The required storage cannot be allocated.
***          The workspace requirement is based on N = 1077936128.
Press any key to continue . . .