新人求助，在不同文件中查找对应编号的坐标

li913

[Fortran] 纯文本查看 复制代码

!假设第一个文件有M行，第二个有N个数据
integer,parameter::::m=10,n=3
real(4) a(3,m)
integer(4) b(n)

open(10,file='1.csv',status='old')
read(10,*) a 
close(10)
open(20,file='2.csv',status='old')
read(20,*) b
close(20)
open(30,file='out.txt')
do i=1,n
write(30,*) a(:,b(i))
close(30)
end program 

li913

hyy 发表于 2017-2-28 08:48
我不知道你的第二次打开1.csv是为什么 ？？即第九行 ..

写错，改过来了。