Fortran Coder

查看: 153|回复: 2

[文件读写] 读文件的数据问题

[复制链接]

5

帖子

2

主题

0

精华

入门

F 币
44 元
贡献
21 点
发表于 2021-12-20 16:59:37 | 显示全部楼层 |阅读模式
读文件里的数据时,数据可以读进数组里,但是输出到屏幕时,与文件里的数据存在很大差异
[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
2RKCHHARQ1%9]B1D2LCRV12.png
I]%REG`[`PN%N%UPI3$`DXE.png
回复

使用道具 举报

1699

帖子

13

主题

5

精华

论坛跑堂

臭石头雪球

F 币
2330 元
贡献
1457 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2021-12-20 17:08:24 | 显示全部楼层
你忘记 rewind(10) 了,可以放在 allocate 语句的前面

5

帖子

2

主题

0

精华

入门

F 币
44 元
贡献
21 点
 楼主| 发表于 2021-12-20 17:32:22 | 显示全部楼层
fcode 发表于 2021-12-20 17:08
你忘记 rewind(10) 了,可以放在 allocate 语句的前面

解决啦,谢谢您
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2022-1-19 16:39

Powered by Tencent X3.4

© 2013-2022 Tencent

快速回复 返回顶部 返回列表