作者m710387 (古大大)
看板Programming
标题[问题] 关於fortran上lib连结的问题
时间Wed Aug 1 13:11:16 2007
大家好，我是fortran的新手
若打扰到大家的时间万分抱歉
以下是我的线性回归的程式码
INTEGER INTCEP, LDX, NCOEF, NIND, NOBS
PARAMETER (INTCEP=1, NIND=3, NOBS=9, LDX=NOBS,NCOEF=INTCEP+NIND)
INTEGER NOUT
REAL B(NCOEF), SSE, SST, X(LDX,NIND), Y(NOBS)
EXTERNAL RLSE, UMACH, WRRRN
DATA (X(1,J),J=1,NIND)/ 7.0, 5.0, 6.0/, Y(1)/ 7.0/
DATA (X(2,J),J=1,NIND)/ 2.0, -1.0, 6.0/, Y(2)/-5.0/
DATA (X(3,J),J=1,NIND)/ 7.0, 3.0, 5.0/, Y(3)/ 6.0/
DATA (X(4,J),J=1,NIND)/-3.0, 1.0, 4.0/, Y(4)/ 5.0/
DATA (X(5,J),J=1,NIND)/ 2.0, -1.0, 0.0/, Y(5)/ 5.0/
DATA (X(6,J),J=1,NIND)/ 2.0, 1.0, 7.0/, Y(6)/-2.0/
DATA (X(7,J),J=1,NIND)/-3.0, -1.0, 3.0/, Y(7)/ 0.0/
DATA (X(8,J),J=1,NIND)/ 2.0, 1.0, 1.0/, Y(8)/ 8.0/
DATA (X(9,J),J=1,NIND)/ 2.0, 1.0, 4.0/, Y(9)/ 3.0/
CALL RLSE (NOBS, Y, NIND, X, LDX, INTCEP, B, SST, SSE)
CALL WRRRN ('B', NCOEF, 1, B, NCOEF, 0)
CALL UMACH (2, NOUT)
WRITE (NOUT,*)
WRITE (NOUT,99999)'SST = ', SST, ' SSE =', SSE
99999 FORMAT (A7, F7.2, A7, F7.2)
END
DEBUG的讯息为
Linking...
RLSE.OBJ : error LNK2001: unresolved external symbol _RLSE@36
RLSE.OBJ : error LNK2001: unresolved external symbol _WRRRN@28
RLSE.OBJ : error LNK2001: unresolved external symbol _UMACH@8
Debug/LINEAR.exe : fatal error LNK1120: 3 unresolved externals
Error executing link.exe.
LINEAR.exe - 4 error(s), 0 warning(s)
我是照着IMSL里面的说明范列照打下来的
有去翻文章说这应该是lib path上设定错误~
但并没有讲明设定方式
这里该怎麽解决呢？
感激不尽
我是用MS VISUAL FORTRAN PRO 6.6版
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.124.50.204
※ 编辑: m710387 来自: 140.124.50.204 (08/01 13:15)
※ 编辑: m710387 来自: 140.124.50.204 (08/01 13:25)