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

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)

!假设第一个文件有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