data.txt
1 0.0 0.0 0.0
2 0.1 0.1 0.1
3 0.2 0.2 0.2
program main
implicit real*8(a-h,o-z)
dimension x(3),y(3),z(3)
open(1,file='data.txt')
do i=1,3
read(1,*) itemp,x(i),y(i),z(i)
enddo
write(*,*) 'x=',x
write(*,*) 'y=',y
write(*,*) 'z=',z
end program
这样可以,你试试!