这也不用高手啊

program readdata
implicit none
character (len=8)::myfile
integer::i

open(unit=20,file='data.txt',status='old')
do i=1,5
    read(20,*)myfile
    open(unit=25,file=myfile,status='old')
    ! blablabla
    close(25)
enddo
close(20)

end program