| 查看: 566 | 回复: 1 | |||
[求助]
fortran读取文件已有1人参与
|
|
我写了一个利用fortran程序读取文件数据的程序，发现数据的实数小数点后的数据总是不对呢？请大家帮忙看看啊，先谢谢了！ 程序如下： PROGRAM t1 IMPLICIT NONE INTEGER :: number_nodes REAL, DIMENSION(6) :: info_nodes INTEGER :: ierror INTEGER :: i,j ! open the file OPEN (UNIT=8, FILE = 'nodes1.dat', STATUS='OLD', ACTION = 'READ', IOSTAT=ierror) ! read integers READ (8,*) number_nodes ! read nodes DO i = 1,number_nodes READ(8,*) info_nodes(i) END DO WRITE(*,*) 'number of nodes is', number_nodes DO i = 1,number_nodes WRITE(*,*) 'node ', i , 'is ', info_nodes(i) END DO CLOSE(UNIT=8) END PROGRAM t1 其中文件 nodes1.dat的格式为： 6 0.0 0.2 0.4 0.6 0.8 1.0 利用ubuntu下的gfortran编译，得到的结果为： number of nodes is 6 node 1 is 0.00000000 node 2 is 0.200000003 node 3 is 0.400000006 node 4 is 0.600000024 node 5 is 0.800000012 node 6 is 1.00000000 其中node2---nodes5后面为什么总有些莫名奇妙小数呢？ 刚学fortran不就，请大家不吝赐教. |
回复此楼» 猜你喜欢
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
论文投稿，期刊推荐
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
【答案】应助回帖
★ ★ ★ ★ ★
感谢参与，应助指数 +1
wang_2008: 金币+5, ★★★很有帮助 2015-12-31 15:22:30
感谢参与，应助指数 +1
wang_2008: 金币+5, ★★★很有帮助 2015-12-31 15:22:30
|
这个是浮点数读入产生的误差。 如果想消除误差，可以试试： 6 0.0e0 0.2e0 0.4e0 0.6e0 0.8e0 1.0e0 发自小木虫Android客户端 |
2楼2015-12-30 23:34:18