Fortran Coder

标题: 读文件的数据问题 [打印本页]

作者: 1829193965    时间: 2021-12-20 16:59
标题: 读文件的数据问题
读文件里的数据时,数据可以读进数组里,但是输出到屏幕时,与文件里的数据存在很大差异
[Fortran] 纯文本查看 复制代码
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

I]%REG`[`PN%N%UPI3$`DXE.png (88.37 KB, 下载次数: 141)

I]%REG`[`PN%N%UPI3$`DXE.png

作者: fcode    时间: 2021-12-20 17:08
你忘记 rewind(10) 了,可以放在 allocate 语句的前面
作者: 1829193965    时间: 2021-12-20 17:32
fcode 发表于 2021-12-20 17:08
你忘记 rewind(10) 了,可以放在 allocate 语句的前面

解决啦,谢谢您




欢迎光临 Fortran Coder (http://bbs.fcode.cn/) Powered by Discuz! X3.2