2楼: Originally posted by gsview at 2011-01-03 14:33:31
程序
        program rw
       
        dimension cpp(1000,1000)
        open (unit=12,file='data.dat',Status='old')
        nn=5
        ndim=3
        do i=1,4
        read (12,*)
        end do
        do
          read(12,*,End=1000) cpp(nn,1:ndim)
          write(1 ...