Fortran怎么实现文件读写

在Fortran中，可以使用OPEN、READ、WRITE以及CLOSE等语句来实现文件的读写操作。下面是一个简单的示例，演示了如何使用Fortran读取和写入文件：

program file_io
    implicit none
    
    integer :: i, n
    character(len=20) :: filename
    character(len=100) :: line
    
    ! 打开文件以供读取
    print *, "请输入要读取的文件名："
    read *, filename
    open(10, file=trim(filename), status='old', action='read')
    
    ! 逐行读取文件内容，并打印到屏幕上
    print *, "文件内容如下："
    do i = 1, 10
        read(10, '(A)') line
        print *, line
    end do
    
    ! 关闭文件
    close(10)
    
    ! 打开文件以供写入
    print *, "请输入要写入的文件名："
    read *, filename
    open(20, file=trim(filename), status='replace', action='write')
    
    ! 向文件中写入数据
    print *, "请输入要写入文件的整数个数："
    read *, n
    
    write(20, '(A)') "写入的整数如下："
    do i = 1, n
        write(20, '(I4)') i
    end do
    
    ! 关闭文件
    close(20)
    
end program file_io

在这个示例中，用户首先需要输入要读取的文件名，然后程序会打开该文件，并逐行读取文件内容并打印到屏幕上。接下来，用户需要输入要写入的文件名，并输入要写入文件的整数个数n。程序会打开该文件并向其中写入从1到n的整数。最后，程序会关闭文件。请注意，这只是一个简单的示例，实际使用时，您可能需要对文件打开、读取和写入操作进行错误处理。