fortran6.6 出现链接问题

虎皮青椒

在论坛下的fortran6.6,   安装没有问题，但是在链接程序时出了问题，无法进行下去，大家能说说这是什么原因导致的吗？谢谢~
编译

--------------------Configuration: dyhg - Win32 Debug--------------------
Compiling Fortran...
F:\fortran\Microsoft Visual Studio\MyProjects\qhtj\dyhg.f90
dyhg.obj - 0 error(s), 0 warning(s)

链接
--------------------Configuration: dyhg - Win32 Debug--------------------
Compiling Fortran...
F:\fortran\Microsoft Visual Studio\MyProjects\qhtj\dyhg.f90
Linking...
dyhg.obj : error LNK2001: unresolved external symbol _LINEAREQUATIONS@12
Debug/dyhg.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
dyhg.exe - 2 error(s), 0 warning(s)


程序
!主程序
program main
integer none
integer,external::MultipleLinearRegression
real x(4,13),y(13),a(5),b(5,5),v(4),q,s,r,u
DATA x/0.03,0.14,0.91,7.98,0.14,0.22,1.03,8.91,&
     0.04,0.13,1.05,7.99,0.06,0.12,0.88,7.27,&
     0.19,0.20,0.75,7.68,0.14,0.10,0.50,5.26,&
     0.09,0.11,0.52,7.56,0.14,0.15,0.71,8.45,&
     0.12,0.14,0.77,6.84,0.17,0.10,0.62,7.67,&
     0.30,0.19,0.61,7.48,0.23,0.22,0.60,9.29,&
     0.29,0.28,0.61,10.68/
DATA y/0.44,0.7,0.18,0.34,1.39,0.7,0.57,1.03,0.96,1.19,1.2,1.37,1.71/
m=4;mm=5;n=13
success=MultipleLinearRegression(x,y,m,mm,n,a,q,s,r,v,u,b)
IF(success==0) THEN
    WRITE(*,*) "分析失败"
    STOP
END IF
write(*,"(1X,'a(',I1,')=',F10.6,2X,\)")(i,a(i),i=1,mm)
write(*,"(/,1X,'q=',F12.6,3X,'s=',F12.6,3X,'r=',F15.6)")q,s,r
write(*,"(1X,'v(',I1,')=',F10.6,2X,\)")(i,v(i),i=1,m)
write(*,"(/,1X,'u=',F15.6)")u
end program
!子程序
integer function MultipleLinearRegression(x,y,m,mm,n,a,q,s,r,v,u,b)
implicit none
integer m,mm,n,i,j,k,l,success
real x(m,n),y(n),a(mm),v(m),q,s,r,&
u,b(mm,mm),ba(mm,mm+1),yy,dyy,p,pp
integer,external::LinearEquations
!求b
b(1,1)=n
do j=2,mm
   b(1,j)=0.0
   do i=1,n
      b(1,j)=b(1,j)+x(j-1,i)
   end do
  b(j,1)=b(1,j)
end do

do i=2,mm
   do j=i,mm
      b(i,j)=0.0
      do k=1,n
         b(i,j)=b(i,j)+x(i-1,k)*x(j-1,k)
      end do
      b(j,i)=b(i,j)
   end do
end do

!求a
a(i)=0.0
do i=1,n
   a(1)=a(1)+y(i)
end do
do i=2,mm
   a(i)=0.0
   do j=1,n
      a(i)=a(i)+x(i-1,j)*y(j)
   end do
end do
ba(1:mm,1:mm)=b
ba(1:mm,mm+1)=a
success=LinearEquations(ba,mm,a)
if(success==0) then
    MultipleLinearRegression=0
    return
end if
yy=0.0
do i=1,n
   yy=yy+y(i)
end do
q=0.0;dyy=0.0;u=0.0
do i=1,n
   p=a(1)
   do j=1,m
      p=p+a(j+1)*x(j,i)
   end do
   dyy=dyy+(y(i)-yy)*(y(i)-yy)
   u=u+(yy-p)*(yy-p)
end  do
!平均标准偏差
s=sqrt(q/n)
!复相关系数
r=sqrt(1.0-q/dyy)
do j=1,m
   p=0.0
   do i=1,n
      pp=a(1)
      do k=1,m
         if(k/=j) pp=pp+a(k+1)*x(k,i)
      end do
      p=p+(y(i)-pp)*(y(i)-pp)
   end  do
   v(j)=sqrt(1.0-q/p)
end do
MultipleLinearRegression=1
end function MultipleLinearRegression

言深深

函数LinearEquations没有定义

虎皮青椒

言深深 发表于 2013-12-5 20:21

                               
登录/注册后可看大图

函数LinearEquations没有定义

好的 我看看 谢谢你~

cly19930225

我也出现了楼主一样的问题，请问楼主问题解决了吗？