Fortran 运行时错误：列表输入的第 1 项中的实数错误：错误终止。回溯：

Question

这是 .dat 文件 2000 x 2000，我正在尝试在 fortran 中读取 .dat 文件，我是 fortran 的初学者，并尝试了所有不同的方式来读取文件。当我运行该文件时，它给了我 Fortran 运行时错误：Bad real number in item 1 of list input error。如果有人可以向我解释一下，这是怎么回事？

我也检查了，我要读取的文件在当前目录中。

我必须在编译器中打印这个 .dat 文件。 我的代码中是否有任何小错误？ 这是前三行的数据，它的图像数据

1.1300000E+02 1.1300000E+02 1.1300000E+02 1.1300000E+02 1.1300000E+02 1.1300000E+02 1.1500000E+02 1.1500000E 02 1.1600000e+02 1.1600000e+02 1.1600000e+02 1.1600000e+02 1.1600000e+02 1.1600000e+02

这里有两种不同的方法，我尝试获取数据，（我尝试了更多方法，但没有奏效，显示我尝试显示我最近尝试的方法）

           program testpro
             implicit none
             !reads data from a file called mydata.dat
              real :: i,j
            open(unit=10,file='mydata.dat')
            read(10,*) i,j
            print *,i,j
            end program  testpro




         program Test2

         REAL :: mx,my,mz
         doubleprecision, allocatable, dimension(:,:,:) :: B
         integer :: i, j, k
         
         read (*,*) mx,my,mz             
         open(10,file='mydata.dat',status='old')

         read (10,*) mx,my,mz
         allocate (B(mx,my,mz) )

         read(10,*)(((B(i,j,k),i=1,mx),j=1,my),k=1,mz)
         close(10)
         end program Test2

Answer 1

您的文件包含imax*jmax 值（imax 行和jmax 行）。因此，在每一行中，您必须读取从1 到jmax 的j 值，并对从1 到imax 的i 行重复此操作。要执行此类操作，您需要在数组中管理数据。我建议创建一个变量x，维度为(imax,jmax)，并使用嵌套循环来读取。例如

PROGRAM TEST_read_from_file
IMPLICIT NONE
INTEGER          :: i, j
integer, parameter :: imax=10,jmax=5
REAL :: x(imax,jmax)

! create the test.dat file
Open (unit=1,file='./test.dat',status='unknown')
  do i=1,imax
    write (1,*) (rand(0),j=1,jmax)
  enddo
close(1)
! read the file test.dat
Open (unit=2,file='./test.dat',status='old')
  do i=1,imax
    read (2,*) (x(i,j),j=1,jmax)
  enddo
close(2)
! write x on the terminal
do i=1,imax
  write(*,*) (x(i,j),j=1,jmax)
enddo
END PROGRAM TEST_read_from_file

请注意，2000x2000 数组可能太大（4°000°000 值）