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

我有两个文件：

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

我想要以下结果

    -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

---

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

粘贴

，只需执行以下操作即可

$ paste File1 File2

对于这类问题，脚本是您的朋友；使用

bash

、

sh

或类似的Fortran语言，您将节省大量时间。然而，我理解这一决定可能不在你手中。如果是，请发表评论，我可以将答案扩展为包含Fortran解决方案；读（2），（a）文件2；写（3），（3a）修剪（文件1），“”，修剪（文件2）

$ paste File1 File2