阅读量:0
在Fortran中，可以使用OPEN、READ、WRITE和CLOSE等关键字来读取和写入文件。
下面是一个示例代码，展示了如何读取和写入文件：
program file_io implicit none integer :: i, n, status real :: x character(len=50) :: filename character(len=50) :: line ! 打开文件 filename = 'data.txt' open(unit=10, file=filename, status='old', action='read', iostat=status) if (status /= 0) then print*, 'Error opening file' stop end if ! 读取文件中的数据 do i = 1, 5 read(10, '(A)', iostat=status) line read(line, *) n, x print*, 'Read from file:', n, x end do ! 关闭文件 close(unit=10) ! 打开文件以写入数据 open(unit=20, file='output.txt', status='replace', action='write', iostat=status) if (status /= 0) then print*, 'Error opening file' stop end if ! 写入数据到文件 do i = 1, 5 write(line, '(2I5, F10.2)') i, i*2, real(i)*2 write(20, '(A)') trim(adjustl(line)) end do ! 关闭文件 close(unit=20) end program file_io 在这个示例中，程序首先打开一个名为data.txt的文件，读取其中的数据，并输出到屏幕上。然后，程序再打开一个名为output.txt的文件，并将数据写入到文件中。
需要注意的是，在读取和写入文件时，需要使用READ和WRITE语句，同时也需要使用OPEN和CLOSE语句来操作文件。
