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,y10 continue close(1) close(2) close(3) pause end
