Fortran从文件中读入数据

示例代码：

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