我从彭国伦的书上抄下一个程序联系时发现出了问题，报的错是：
Linking...
EX0825.OBJ : error LNK2001: unresolved external symbol _RANDOM@8
Debug/EX0825.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

EX0825.exe - 2 error(s), 0 warning(s)
请大家帮忙看看好吗，好像是调用random的问题，但是我不知道应该怎样调用    
    PROGRAM EX0825

    use imsl
    INTERFACE
       FUNCTION RANDOM10(LBOUND,UBOUND)

       REAL:: LBOUND,UBOUND
       REAL::RADOM10(10)
        END FUNCTION
    END INTERFACE

    REAL ::A(10)
    CALL RAnDOM_SEED()
    A=RANDOM(1.0,10.0)
    WRITE(*,'(10F6.2)')A
    END 

    FUNCTION RANDOM10(LBOUND,UBOUND)

    REAL ::LBOUND,UBOUND
    REAL ::LEN
    REAL::RANDOM10(10)
    REAL T
    INTEGER I
    LEN=UBOUND-LBOUND
    DO 101 I=1,10
    CALL RANDOM_NUMBER(T)
    RANDOM10(I)=LBOUND+LEN*T
101    CONTINUE
    
    RETURN 
    END