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

写错，改过来了。

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

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

[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 发表于 2017-2-27 13:31
你的表述很乱。

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

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

你的表述很乱。

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