Hello:
My platform is MS PW 4.0 and CVF 6.5.
I am anxious to know how to call the subroutine of ISML Lib. in CVF.
The following is a demo inherited in CVF 6.5. The error information is
attached.
BTW: I am also anxious to know how to take favor of msmath.h, msisml.h,
msism*.*, and the other files *.fi in ..\MSDEV\INCLUDE.
Best regards,
Frank
___________________________________________
C Variable declarations
INTEGER N
PARAMETER (N=2)
INTEGER IBTYPE, K, MAXFCN, NOUT
REAL FTOL, FVALUE, X(N), XGUESS(N), XLB(N), XUB(N)
EXTERNAL BCPOL, FCN, UMACH
C Initializations
C XGUESS = (-1.2, 1.0)
C XLB = (-2.0, -1.0)
C XUB = ( 0.5, 2.0)
DATA XGUESS/-1.2, 1.0/, XLB/-2.0E0, -1.0E0/, XUB/0.5E0, 2.0E0/
FTOL = 1.0E-5
IBTYPE = 0
MAXFCN = 300
CALL BCPOL (FCN, N, XGUESS, IBTYPE, XLB, XUB, FTOL, MAXFCN, X,
& FVALUE)
CALL UMACH (2, NOUT)
WRITE (NOUT,99999) (X(K),K=1,N), FVALUE
99999 FORMAT (' The best estimate for the minimum value of the', /,
&' function is X = (', 2(2X,F4.2),')', /,' with ',
&'function value FVALUE =', E12.6)
END
C External function to be minimized
SUBROUTINE FCN (N, X, F)
INTEGER N
REAL X(N), F
F = 100.0*(X(2)-X(1)*X(1))**2 + (1.0-X(1))**2
RETURN
END
-------------------Configuration: imsl2 - Win32 Debug--------------------
Linking...
imsl2.obj : error LNK2001: unresolved external symbol _BCPOL@40
imsl2.obj : error LNK2001: unresolved external symbol _UMACH@8
Debug/imsl2.exe : fatal error LNK1120: 2 unresolved externals
Error executing link.exe.
imsl2.exe - 3 error(s), 0 warning(s)
--http://www.eyou.com
--稳定可靠的免费电子信箱 语音邮件 移动书签 日历服务 网络存储...亿邮未尽
|