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

hyy

     求教一个问题，我现在有一系列的数据，就是第一列是编号，第二，第三，第四是x，y，z的坐标信息，想要把它读取出来。然后又有一个数据文本，只知道编号，想把他的x，y，z坐标读取出来。

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

OPEN (10,FILE='E:\finde node\out_node.DAT',STATUS='OLD') 
    call nodeinformation(i)
    close(10)
    OPEN (20,FILE='E:\finde node\in_node.DAT',STATUS='OLD') 
    call nodeinformation(i)
    close(20)

     nodeinformaition(i) 
     OPEN (5,FILE='E:\finde node\node.DAT',STATUS='OLD') 
     read(5,*)  
     n=n/4   ！

     do i=1,n
     read(5,*)  node(i),x(i),y(i),z(i)
   !!write(*,*)  node(i),x(i),y(i),z(i)
     end do 
     close(5)

fcode

你的表述很乱。

1.你的编号，XYZ文件是哪个？对应代码中的什么文件名？对应截图中的哪个？
2.又一个文件？是什么格式？对应代码中的什么？对应截图中的哪个？
3.你想要的输出是什么？

hyy

fcode 发表于 2017-2-27 13:31
你的表述很乱。

1.你的编号，XYZ文件是哪个？对应代码中的什么文件名？对应截图中的哪个？

第一张图的第一列的1代表的编号，第二列代表的x，第三列是y，第四列是z。文件名是csv格式。第二张图是第二个文件，格式也是csv格式，里面是只有编号，我想的是根据第二个文件里的编号从第一个的数据库的坐标信息中，找出对应的数据库！！这次不知道您听懂了没？？

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 

hyy

li913 发表于 2017-2-27 17:37
[mw_shl_code=fortran,true]!假设第一个文件有M行，第二个有N个数据
integer,parameter::::m=10,n=3
real(4 ...

我不知道你的第二次打开1.csv是为什么 ？？即第九行 ..

li913

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

写错，改过来了。