[文件读写] 有格式文件的存取

    program Console1
   parameter (n=10)
   dimension name(n),s(n)
   character name*10
   open(1,file='stu1.dat',form='formatted')
   do i=1,n
       read (1,20) name(i),s(i)
   enddo
20 format(a6,f5.1)   
    end program Console1