Fortran如何读取和写入文本文件

本示例代码演示如何在Fortran中读取和写入文本文件。使用了已经被广泛使用的open、close和read、write函数，同时为了方便程序员调试，添加了必要的打印和注释。

program read_write_text_file
implicit none

integer :: i, n
real :: x
character(50) :: filename
character(len=256) :: line

! 打开输入文本文件
filename = "input.txt"
open(unit=10, file=filename, status="old", action="read")

! 读取文件中的行数
n = 0
do
  read(10, *, iostat=io) line
  if (io/=0) exit
  n = n + 1
end do

! 打印行数
print *, "文件中的行数：", n

! 关闭输入文件并重新打开为输出文件
close(10)

filename = "output.txt"
open(unit=10, file=filename, status="replace", action="write")

! 写入一行表头
write(unit=10, fmt="(A, 2X, A, 2X, A)", &
  "编号", " ", "数值", " ", "平方根")

! 重新打开为输入文件
close(10)

open(unit=10, file=filename, status="old", action="read")

! 循环读取数据并写入输出文件
do i = 1, n
  read(10, *) i, x
  write(10, fmt="(I0, 2X, F6.2, 2X, F6.2)", &
    i, x, sqrt(x))
end do

! 关闭文件
close(10)

end program read_write_text_file

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com