您好，遇到一个比较急的问题，关于Fortran90的直接文件读取，希望向您请教！谢谢！

	program test
c	implicit none
	integer i
	real b(1827),c(1827),d(1827),e(1827)
	double precision a(1827)
c	open(1,file='aa.csv',access='direct',recl=99,form='formatted')
	open(1,file='aa.csv',status='old')
	read(1,*)
	do 5 i=1,3
	read(1,*)a(i),b(i),c(i),d(i),e(i)
5	continue
	close(1)
	do 10 i=1,3
	write(*,100)a(i),b(i),c(i),d(i),e(i)
10	continue
100	format(1x,1f18.15,1f10.7,3f10.0)
	end
	
	以上为fortran77代码。调试通过，供参考。
	
	program test
c	implicit none
	integer i
	real b(1827),c(1827),d(1827),e(1827)
	double precision a(1827)
	open(1,file='aa.csv',access='direct',recl=99,form='formatted')
c	open(1,file='aa.csv',status='old')
	read(1,*)
	do 5 i=1,3
	read(1,*)a(i),b(i),c(i),d(i),e(i)
5	continue
	close(1)
	do 10 i=1,3
	write(*,100)a(i),b(i),c(i),d(i),e(i)
10	continue
100	format(1x,1f18.15,1f10.7,3f10.0)
	end
	以上一样调试通过。