program main
    integer x(1951:2005,12)
    real lat(118),lon(118),hig(118)
    character st(118)*9,y(55)*4
    open(1,file='F:\data\zhongjian\station.txt')
    open(2,file='F:\data\zhongjian\lonlat.txt')
    open(3,file='F:\data\zhongjian\nianfen.txt')
    do i=1,118
    read(1,'(a9)') st(i)
    enddo
    close(1)
    do i=1,118
    read(2,*)nx,lat(i),lon(i),hig(i),ny,nz,nm
    enddo
    close(2)
    do i=1,55
    read(3,*)y(i)
    enddo
    close(3)
    
    do i=1,55
    open(5,file='F:\data\tiaoxuan'//y(i)//'.txt')
    do j=1,118
    write(5,*)lat(j),lan(j)
    enddo
    enddo
    close(5)

    do i=1,118
    write(*,'(a9)')    st(i)
    open(4,file='F:\data\tongji\'//st(i))
10    read(4,*)iy,(x(iy,j),j=1,12)
    if(eof(4))then
        close(4)
    else
        goto 10 
    endif
    do j=1,55
    open(5,file='F:\data\tiaoxuan'//y(j)//'.txt')
    write(5,*)'              ',x(j+1950,12)
    enddo
    enddo
    end
各位高手们，小弟再次向大家发起求助了，还望大家多多关注，帮我解决，谢谢诸位了！
我的程序的主要目的就是要通过这个程序的运行最后按年份输出各个站的经纬度，以及低能见度天数，就输出这三行。主要是从不同文件中药筛选出来，我开始想了一些办法可最终没能成功，后来才决定使用这个程序试试，可是编译的时候遇到了如下的问题：
--------------------Configuration: tiaoxuan - Win32 Debug--------------------
Linking...
tiaoxuan.obj : error LNK2001: unresolved external symbol _LAN@4
Debug/tiaoxuan.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

tiaoxuan.exe - 2 error(s), 0 warning(s)
我从来没有遇到过，不知道该如何解决，我感觉我的程序逻辑很简单，怎么会遇到这样的问题呢？还烦请各位高手们，多多指点帮助啊！不胜感激！