Question

fortran把两个文本中数据合并

有两个文件
x.txt 如下
x1 x2 x3 x4 x5
x6 x7 x8 x9 x10
。。。（省略，一共20行）

y.txt如下
y1 y2 y3 y4 y5
y6 y7 y8 y9 y10
。。。（省略，一共20行）

想生成如下文件xy.txt
x1 y1
x2 y2
x3 y3
。。。

请教大神这个程序怎么写（x，y均为real格式）？

Answer 1

	open(1,file='x.txt',status='old')
	open(2,file='y.txt',status='old')
	open(3,file='xy.txt',status='new')
	do 10 i=1,100
		read(1,*)x
		read(2,*)y
		write(3,*)x,y
10	continue
	close(1)
	close(2)
	close(3)
	pause
	end

追问

这是77的格式？还有能否将前面的声明也写出来啊，本人小白一个。

追答

这是for77的格式，在之前加上real x,y即可。

追问

根据上面那个程序运行后，只将第一列数据读出来了，第2~5列数据都没读出来。也就是说只读出了
x1，y1
x6,y6
x11,y11
x16,y16
。。。，怎么修改？

追答

     real x(5),y(5)
    open(1,file='x.txt',status='old')
     open(2,file='y.txt',status='old')
     open(3,file='xy.txt',status='new')
     do 10 i=1,20
         read(1,*)x
         read(2,*)y
do 20 j=1,5
write(3,*) x(j),y(j)
20 continue
10     continue
     close(1)
     close(2)
     close(3)
     pause
     end