将两个文件中的数据写入一个文件答案

【问题标题】：Write data from two files to one file将两个文件中的数据写入一个文件
【发布时间】：2015-11-25 21:37:32
【问题描述】：

我有两个文件：file1（4 列）和file2（4 列）。我想将所有这些数据写入一个文件（file1 中的 4 列file2 中的 4 列 = 总共 8 列）。

我已经开始编写代码但无法完成。请帮帮我。

program dataarranhe
  implicit none
  character*80 :: File1, File2
  integer :: i
  open(1,file='File1')
  open(2,file='File2')
  open(3,file='outfile',status='unknown')

  i = 0
  do
     i = i + 1
     read(1,'(80a)')File1


end program dataarrange

文件1：

    -9.568336E+00  -1.615161E+00   1.042644E+00  -1.615161E+00
    -4.765572E-01   9.005122E-01  -2.282920E+00   9.005122E-01
    -1.012710E+01   4.672368E-01   8.791873E-02   4.672368E-01
    -7.699012E+00  -9.906154E-01   7.450304E-01  -9.906154E-01
    -3.544260E+00   4.254020E+00  -1.963602E+00   4.254020E+00

文件2

    -1.131916E+01  -6.979813E-01  1.042644E+00 -6.979813E-01
    -3.827857E+00  -3.206736E+00 -2.282920E+00 -3.206736E+00
    -4.680832E+00  -5.271814E-01  8.791873E-02 -5.271814E-01
    -1.061230E+00  -3.546956E+00  7.450304E-01 -3.546956E+00
     3.740858E+00  -4.587760E+00 -1.963602E+00 -4.587760E+00

我想要以下结果

    -9.568336E+00  -1.615161E+00   1.042644E+00  -1.615161E+00 -1.131916E+01  -6.979813E-01  1.042644E+00 -6.979813E-01
    -4.765572E-01   9.005122E-01  -2.282920E+00   9.005122E-01 -3.827857E+00  -3.206736E+00 -2.282920E+00 -3.206736E+00
    -1.012710E+01   4.672368E-01   8.791873E-02   4.672368E-01 -4.680832E+00  -5.271814E-01  8.791873E-02 -5.271814E-01
    -7.699012E+00  -9.906154E-01   7.450304E-01  -9.906154E-01 -1.061230E+00  -3.546956E+00  7.450304E-01 -3.546956E+00
    -3.544260E+00   4.254020E+00  -1.963602E+00   4.254020E+00  3.740858E+00  -4.587760E+00 -1.963602E+00 -4.587760E+00

【问题讨论】：

read(1,'(a)')File1;read(2,'(a)')File2;write(3,'(3a)')trim(File1),' ',trim(file2)

标签： fortran fortran90 fortran95

【解决方案1】：

如果您是 Unix 类型的系统并且可以访问 paste，您可以这样做

$ paste File1 File2

对于这类问题，脚本是您的朋友；使用bash、sh 或类似的东西，而不是这里的 Fortran，你会为自己节省大量时间。但是，我很感激这个决定可能不在您手中。如果是这样，请发表评论，我可以扩展答案以包含 Fortran 解决方案。

【讨论】：