Question

求如何用fortran程序将两个dat文件进行合并？

手上有两个文件，想把它合并成一个

第一个文件1.dat 里面的数据是
a b c d
a b c d
。
。
a b c d

共有100行
第二个文件2.dat 里面的数据是

1
2
。
。
100
也有100行。

想把这两个文件合并成如下文件
1 a b c d
2 a b c d
。
。
100 a b c d
求大神指点迷津

Answer 1

Program www_fcode_cn
  implicit none
  character( Len = 512 ) :: cstr1 , cstr2
  integer ierr
  Open( 12 , File = '文件1' )
  Open( 13 , File = '文件2' )
  Open( 14 , File = '合并文件' )
  Do
    Read( 12 , '(a512)' , iostat = ierr ) cstr1
    if ( ierr /= 0 ) Exit
    Read( 13 , '(a512)' , iostat = ierr ) cstr2
    if ( ierr /= 0 ) Exit
    write( 14 , '(a,1x,a)' ) Trim(cstr1) , Trim(cstr2)
  End Do
  Close( 12 )
  Close( 13 )
  Close( 14 )
End Program www_fcode_cn