[文件读写] end of file

open(unit = 111, file = 'kxmod.dat')
        i = 0
        j = 0
        k = 0
        
        do j = 1,415
                do i = 1, 10
                        read(111,*) （a((j-1)*106+(i-1)*10+k),k=1,10)
                end do
                read(111,*) (a((j-1)*106+i*10+k),k=1,6)
        end do
        close(111)