示例代码:
program main
implicit none
integer(kind=4),parameter :: N=100
integer(kind=4) :: i,j
real(kind=8),dimension(N,N) :: x,y
open(unit=99,file="文件.txt")
read(99,100) ((x(i,j),y(i,j),i=1,N,1),j=1,N,1) 或者
do j=1,N,1
do i=1,N,1
read(99,100) x(i,j),y(i,j)
end do
end do
100 format(F10.7,X3,F10.7)
stop ' calculation is over '
end program main