Print

---

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
--稳定可靠的免费电子信箱  语音邮件  移动书签  日历服务  网络存储...亿邮未尽