读文件的数据问题

1829193965

读文件里的数据时，数据可以读进数组里，但是输出到屏幕时，与文件里的数据存在很大差异

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

Program data
    integer record
   real,allocatable::x(:),h(:)


  open(10,file="扩边前.dat")
  record=0
  do while(.not.eof(10))
       read(10,*)
       record=record+1
  end do 

  allocate(x(record),h(record))
  
  do while(.not.eof(10))
    do i=1,record
       read(10,*)x(i),h(i)
    end do
  end do
  do i=1,record
write(*,*)x(i),h(i)
end do

 end program

1829193965

fcode 发表于 2021-12-20 17:08
你忘记 rewind(10) 了，可以放在 allocate 语句的前面

解决啦，谢谢您

fcode

你忘记 rewind(10) 了，可以放在 allocate 语句的前面