附件是.f源程序，以下是源程序，怎么觉得是主程序没有编好，老是提示：

Linking...
value1.obj : error LNK2001: unresolved external symbol _PYTHAG@8
value1.obj : error LNK2001: unresolved external symbol _EPSLON@4
Debug/pp.exe : fatal error LNK1120: 2 unresolved externals
Error executing link.exe.
请各位帮忙解决一下，谢谢了。

C********************************************************************
      PROGRAM MAIN
 DOUBLE PRECISION A(3,3),W(3),Z(3,3),FV1(3),FV2(3)
 A(1,1)=-5.17
      A(1,2)=-15.78
      A(1,3)=32.5
      A(2,1)=-15.78
      A(2,2)=165.57
      A(2,3)=7.47
      A(3,1)=32.5
      A(3,2)=7.47
      A(3,3)=-89.41
      CALL RS(NM,N,A,W,MATZ,Z,FV1,FV2,IERR)
 END

C********************************************************************
      subroutine RS(NM,N,A,W,MATZ,Z,FV1,FV2,IERR)

       ... ...

       ... ...

C********************************************************************
      subroutine tred1(nm,n,a,d,e,e2)

       ... ...

       ... ...

C********************************************************************

      SUBROUTINE TQLRAT(N,D,E2,IERR)
       ... ...

       ... ...

      END