Fortran文件读写--xdd

program FileWriteRead
    implicit none 
    open(unit=11,file="F:\desktop\File.txt")
    !open(unit=11,file="File.txt)
    write(11,"(A20)") "Good Morning"
    read(*,*)
end program

open(unit=11,file="F:\desktop\File.txt")
close(unit=11,status="delete")          !先打开，再这样关闭，可删除文件。

program FileWriteRead
    implicit none 
    integer::i
    real::A(3,3)
    open(unit=11,file="F:\desktop\StudentScore.txt")
    do i=1,3
        write(*,"(‘请输入第‘I2‘同学三科的成绩‘)")i
        read(*,*)A(i,1),A(i,2),A(i,3)
        write(11,"(‘次序：‘F5.2  ‘,中文:‘F5.2  ‘,数学:‘F5.2  ‘,英语:‘F5.2 )")i,A(i,1),A(i,2),A(i,3)
    end do
    write(*,*)"按任意键退出"
    read (*,*) 
end program