执行下面的程序试试。
program n
implicit none
real :: particle(2440,4)
integer :: i,j
open(unit=10,file='E:\核\WS\B.txt',status='old')
do i=1,2440
read(10,*)(particle(i,j),j=1,4)
end do
close(10)
write(*,*)particle(5,4)
stop
end
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024