您所在位置：主题：如何读取指定列指定行数据，高手相助啊/...
greatxuan
[专家分：0] 发布于 2011-06-26 00:30:00
我现在有个450个文件，名字类似如100.2ek8sdcn.000000.txt,100.2ek8sdcn.000000.txt，我现在想读取每个文件中第5列的某数据，这样450个文件就可以读取450个数据，赋值给数组，但是，我用下面的代码（全部code的一部分）老出错，说invalid iteger...我现在想知道如何读取文件的指定行指定列？谢谢各位大侠相助，忙活了半天没找出原因。。。
!=================== define variables================================
integer k,i,j,ii ! for inner loop
character(len=24) ::FN
integer x,y,N,m
real,dimension(10:3477):: a,b,c,d,e(10:3477),f,g,h,hh
real,parameter:: dt=10
real area,sum1
real, dimension(1:450):: u,u1 !velocity,velocity prime
real, dimension(0:449):: R !relative coefficient
!======READ and prepare INPUT DATA===================================
read(*,*) x ! read x value from screen
read(*,*) y ! read y value from screen
N=449
do m=0,N
write(FN,100)m ! FN is intermediate
write(6,*)FN
open(1,file=FN)
do ii=10,3477
read(1,*) a,b,c,d,e,f,g,h,hh
u(m+1)=e(10+51*x+y) ！将第列的第（10+51*x+y）行这个element赋值给u(m+1)
write(*,*) u(m+1)
enddo
close(1)
end do
100 format('100.2ek8sdcn.000',I3.3,'.txt') ! the format of the data file name
!=================== define variables================================
integer k,i,j,ii ! for inner loop
character(len=24) ::FN
integer x,y,N,m
real,dimension(10:3477):: a,b,c,d,e(10:3477),f,g,h,hh
real,parameter:: dt=10
real area,sum1
real, dimension(1:450):: u,u1 !velocity,velocity prime
real, dimension(0:449):: R !relative coefficient
!======READ and prepare INPUT DATA===================================
read(*,*) x ! read x value from screen
read(*,*) y ! read y value from screen
N=449
do m=0,N
write(FN,100)m ! FN is intermediate
write(6,*)FN
open(1,file=FN)
do ii=10,3477
read(1,*) a,b,c,d,e,f,g,h,hh
u(m+1)=e(10+51*x+y) ！将第列的第（10+51*x+y）行这个element赋值给u(m+1)
write(*,*) u(m+1)
enddo
close(1)
end do
100 format('100.2ek8sdcn.000',I3.3,'.txt') ! the format of the data file name