Question

FORTRAN当中，write语句怎么写才能实现后写入的不覆盖前面写入的

一个循环，循环中间有一个输出指令write，怎么样定义write才能不使后输入的内容覆盖前输入的内容呢？因为我每次循环完只得到最后一个循环的数据，我现在想得到所有循环的数据，求助啊！我用的是FORMAT（1X,F12.2/。也就是说我通过write语句将数据写入一个已有内容的TXT文件，而不会更改或者是删除TXT原本有的内容

Answer 1

比方说：
open(1,file='out.dat')
do i = 1, 100
write(1, 10) dble(i)
enddo
10 FORMAT（1X,F12.2)
这样写，后边的不会覆盖前边的呀，没有问题的。难道你的输出没有写到循环体之内？

追问

问题是这样的，我写的fortran子程序subroutine需要嵌入到另一个软件当中去，这个子程序是一个循环体，也就是说每次主程序调用一下我的子程序，我就要把子程序当中的一个数据写到一个txt当中去，而且后面写的不能覆盖前面写的

追答

那就每调用一次这个子例程就新建一个txt文件，在该子例程内部循环中写入数据，每次新建的文件名要不同。

追问

我靠，大哥，这哪行啊，我这要调用子程序几万次，最后不得生成几万个txt啊，我只想要一个txt啊

追答

如果只要一个输出文件，可以这样写：我给个例子(F90格式)：
program txtmass
implicit none
integer :: i
do i = 1, 10
call subtxt(i)
enddo
end program

subroutine subtxt(i)
implicit none
integer :: i, j
open(1, file = 'out.dat')
do j = 1, 10
write(1,10) dble(j)*dble(i)*12
enddo
write(1,"(I5, ' cycle !')") i
10 format(1X, F12.5)
end subroutine
主程序一共调用子例程10次，在每次调用中子例程做10个循环，每次循环输出一个实数，格式为F12.5，每次调用子例程都输出其在主程序中的调用的次序，也就是write(1,"(I5, ' cycle !')") i 这一句。这样下来，只输出一个文件，而且主程序调用输出的每次的数据都不会将前边的覆盖掉。如果你不想输出调用子例程的序数，可以去掉这句write(1,"(I5, ' cycle !')") i 。