想提取3个文件里的某些站点资料，程序无误，但是结果出不来！！！

Persistence.9

program guilei
        implicit none
        character*42:: filename(3)
        character*5::zhandian(37)
        character*62 :: line
        integer :: i
        open(10,file='D:\cxx\000.txt')       ！这个000文件里面有3个文件名
    do i=1,3          
                read(10,*) filename(i)
                print*,filename(i)  
        end do
        close(10)
        open(11,file='D:\cxx\zhandianhao.txt')    ！这个文件里面有想提取的37个站点的站点号
        do i=1,37
                read(11,*)zhandian(i)
        end do
        close(11)

        open(12,file='D:\cxx\56193.txt')     ！这是想提取出来存放的一个站点的数据的文件
        do i=1,3
          open(i+100,file='D:\cxx\'//trim(filename(i)),status='old')  
                                                                                 
          9000    read(i+100,'(0x,A62)', end=8000 ) line

                                if( line(1:5) == zhandian(1)) then
                                        write(12,*) trim(line)
        print*, trim(line)          
                                end if
          goto 9000
          8000 continue

         close(i+100)
         enddo
         close(12)
         end program guilei

Persistence.9

我已经找到问题了。程序没错，文件名写进去的时候写错了

lgz

文件名写进去的时候写错了

努力的气象小白

请问楼主，倒数这几句
if（line(1:5)==zhandian(1))then
write(12,*)trim(line)
这里的==站点（1）是不是有问题呢？这几句应该写在站点的循环里吧