在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的整数。最后，程序会关闭文件。请注意，这只是一个简单的示例，实际使用时，您可能需要对文件打开、读取和写入操作进行错误处理。
