Fortran矩阵写入文本文件问题求助：解决覆盖与行输出问题

你遇到的两个问题其实都是Fortran文件IO的常见小坑，咱们一步步来解决：

问题根源分析 #

1. 文件被覆盖：你在循环里反复执行open和close，而默认的open操作（action="write"）会每次创建新文件，如果文件已存在就直接覆盖，所以最后只有最后一次循环的内容被保留下来。
2. 按行输出：write(10,*)是列表导向输出，每次调用都会自动生成一个新的记录（也就是换行），所以每一列的三个元素会单独占一行，不符合你要的连续排列要求。

解决方案与代码示例 #

方法1：移动文件IO操作到循环外 + 控制输出不换行

把open和close放到循环外面，确保文件只被打开一次，同时用advance='no'参数让每次写入不自动换行，这样所有元素就会按你要的顺序连续输出：

! 打开文件，status="replace"表示覆盖已存在的文件，若要追加用status="old"
open(unit=10, file="out.txt", action="write", status="replace")

do i = 1, 4
  ! advance='no' 让本次写入的内容紧跟在上一次之后，不换行
  write(10, *, advance='no') A(1,i), A(2,i), A(3,i)
end do

! 最后手动添加一个换行（可选，根据你的需求决定是否需要）
write(10, *)
close(10)

方法2：显式格式 + 逐元素写入（更灵活）

如果需要更精细地控制输出格式（比如指定每个元素的宽度、小数位数），可以用显式格式字符串，逐个元素写入：

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

! 先遍历列，再遍历行，完全按你要的顺序逐个写入
do i = 1, 4
  do j = 1, 3
    ! '(F8.2)' 表示每个浮点数占8个字符宽度，保留2位小数，根据你的数据类型调整
    write(10, '(F8.2)', advance='no') A(j,i)
  end do
end do

write(10, *)  ! 结束后换行
close(10)

方法3：一次性写入所有元素（最简洁）

如果你的Fortran版本支持数组切片，还可以直接一次性按列顺序写入所有元素，不需要循环：

open(unit=10, file="out.txt", action="write", status="replace")
! A(:,1) 取第1列的所有元素，依次拼接四列，一次性写入
write(10, '(12F8.2)') A(:,1), A(:,2), A(:,3), A(:,4)
close(10)

注意事项 #

• unit=10是文件单元号，尽量避免使用1、2、5、6这些系统预留的单元号（比如1是标准输入，2是标准错误）。
• 格式字符串（比如'(F8.2)'）需要根据你的数据类型调整：如果是整数，用'(I6)'；如果是字符串，用'(A10)'等。
• 如果需要追加到已有文件而不是覆盖，把status="replace"改成status="old"，同时action="write"可以改成action="append"。

内容的提问来源于stack exchange，提问作者user3891747