如果要一下打开好多文件，就下面这个程序，应该怎么修改啊
    real,allocatable:: a(:,:)
    open(1,file='E:\tianqiziliao\2007\data200701\surface\plot\07010102.000')
    I=0
    do while(.true.)
    read(1,*,end=200)
    i=i+1
    enddo
 200   i=i/2-1
    m=i
    allocate(a(i,3))
    rewind(1)

    read(1,*)
    read(1,*)

    do 10 i=1,m

    read(1,*)(a(i,j),j=1,3)

    read(1,*)

10    continue
    
    
    open(2,file='D:\2.txt')
    do 20 i=1,m
    write(2,*) (a(i,j),j=1,3)
20    continue 
    close(1)
    close(2)
100    format(5i,2x,f6.3,3x,f5.2)
    end