Fortran直接文本文件读写问题

vvt

第一个问题，带换行符的输出就可以了。
write(13,"(10(10es13.6,/))") a(1:100)

第二个问题，写入rec=1这一条记录。
题外话：尽量不要用“有格式直接读写”

vvt

试试这样

[Fortran] 纯文本查看 复制代码

Program Main
  Integer :: a(100)
  Character(len=2) , parameter :: CRLF = char(13)//char(10)
  Character(len=420) :: c
  integer :: i , j
  open(13,File="test.txt",access="direct",form="formatted",recl=420)
  Do i = 1 , 4
    do j = 1 , 100
      a(j) = i*100 + j
    end do
    WRITE(c,120) (a(j:j+9),CRLF,j=1,100,10)
    write(13,"(a)",REC=i) c
  ENd Do
  Close(13)
120 FORMAT(10(10i4,a))
End Program Main

vvt

CRLF的意思是“换行符”，你可以百度了解 CRLF
我给你的多好的代码，干嘛自己擅自修改？还改得那么丑不拉几的。

重点：
Character(len=420) :: c
不能改为
CHARACTER C(420)

此外：
出错要给错误提示
请放弃固定格式

vvt

Character(len=420) :: c
就这样定义，无需修改。

vvt

对的