在编译拉格朗日插值时链接错误，不知道怎么办..........

问题提示如下，
Linking...
libc.lib(crt0.obj) : error LNK2001: unresolved external symbol _main
Debug/assignment testing.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
assignment testing.exe - 2 error(s), 0 warning(s)

程序如下，
    SUBROUTINE lagrangeinterpolation(X,Y,m,T,Z)
    DIMENSION X(m),Y(m)
    REAL X,Y,T,Z,S
    IF (m>0) THEN
        IF (X(1)>X(m)) THEN
            DO I=1,m/2
            Z=X(I)
            X(I)=X(m-I+1)
            X(m-I+1)=Z
            Z=Y(I)
            Y(I)=Y(m-I+1)
            Y(m-I+1)=Z
            END DO
        END IF
    END IF
    Z=0.0
    IF (m<=0) RETURN
    IF (m==1) THEN
        Z=Y(1)
        RETURN
    END IF
    IF (m==2) THEN
        Z=(Y(1)*(T-X(2)-Y(2)*(T-X(1))))/(X(1)-X(2))
        RETURN
    END IF
    I=1
10    IF (X(I)<T) THEN
        I=I+1
        IF (I<=m) GOTO 10
    END IF    
    K=I-4
    IF (K<1) K=1
    M1=I+3
    IF (M1>m) M1=m
    DO I=K,M1
        S=1.0
        DO J=K,M1
            IF (j/=I) THEN
                S=S*(T-X(J))/(X(I)-X(J))
            END IF
        END DO
        Z=Z+S*Y(I)
    END DO
    RETURN    
    END
谁能帮忙看看？解决下，另外求拉格朗日插值得积分和求导程序。[em8]