Question

fortran中怎么把一个程序的结果读到另一个程序里

Answer 1

定义一个二维数组，a（1:n,1:4），把文件里的数据读进数组里，然后直接用a(1:n,3)，即为你需要的EX数据

追问

dimension t(1:2000,1:4)
open(1,file='e-ips.dat')
read(1,*)((t(i,j),j=1,4),i=1,2000)
ex=t(1:2000,3)
Error: The shapes of the array expressions do not conform. [EX]
ex=t(1:2000,3)

追答

real(8)::t(1:2000,1:4), ex(1:2000)
open(1,file='e-ips.dat')
read(1,*) ((t(i,j),j=1,4),i=1,2000)
ex=t(1:2000,3)

Answer 2

把数据写到文件里，另一个程序从文件里读。

追问

我第一个程序得到的数据是N行四列分别是X,Z,EX,EZ,我第二个程序只需要EX
我打开文件吧数据读到了一个二维数组中了，不知道怎么调用，
谢谢啦

追答

打开文件以后，还是读这四个量：
READ(11,*) X,Z,EX,EZ ! 此处假设打开的文件通道号是11，写文件时格式是默认的。
如果只需要EX的值，直接用就是了。

Answer 3

写成数据文件，然后另一个程序读取
或者是，吧其中一个程序做成库，将另一个作为主程序来调用