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, 下载次数: 115)

作者: 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/)