应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran 读取科学计数表示的浮点数问题
81/1返回列表
查看: 2191  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

yiqiwuba

新虫 (初入文坛)

[交流] fortran 读取科学计数表示的浮点数问题 已有3人参与

各位好：读取浮点数时，当出现指数表示的浮点数时，为什么不能正确读取？如下第一行正确，第二行没有正确读取，显示为0？为什么？请教各位！

读取语句：
read(2,*,iostat=status)ix(i),t(i),ish(i),irec(i),id(i)

数据文件：
-75663        15.475        1515        2005        7
-1.3853e+05        24.13        1940        305        8
-1.3972e+05        24.238        1948        273        8
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2013-11-20 10:37:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yiqiwuba

新虫 (初入文坛)
看不懂
回复此楼
2楼2013-11-20 10:59:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)
你的变量类型？
回复此楼
3楼2013-11-20 12:59:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yiqiwuba

新虫 (初入文坛)
谢谢恢复
ix(i),t(i),ish(i),irec(i),id(i) 分别为浮点，浮点，整型，整型，整型
赞一下 回复此楼
4楼2013-11-20 13:24:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色
★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
jjdg: 金币+1, 感谢参与 2013-11-21 00:14:47
第一行都为整数，第二、三行的第一个数为单精度浮点。  而你的read语句却同时处理这两种情况，显然不行，ix(i)到底是哪种类型呢 ？-----这是程序出错的地方
赞一下 回复此楼
我同意叔本华的观点，人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活，逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
5楼2013-11-20 15:57:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yiqiwuba

新虫 (初入文坛)
ix(i) 浮点型
回复此楼
6楼2013-11-20 17:09:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

btx97

金虫 (小有名气)
★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
jjdg: 金币+1, 感谢参与 2013-11-21 00:14:57
这个好像可以正常读取呀。试试这个
CODE:
program main
    implicit none
    real :: ix(3), t(3)
    integer, dimension(3) :: ish ,irec, id

    integer :: i
   
    open(2,file="data")
    do i=1,3
       read(2,*)  ix(i),t(i),ish(i),irec(i),id(i)
       write(*,*) ix(i),t(i),ish(i),irec(i),id(i)
    end do

end program   

赞一下 回复此楼
7楼2013-11-20 21:59:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

btx97

金虫 (小有名气)
★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
jjdg: 金币+1, 感谢参与 2013-11-21 00:15:06
引用回帖:
7楼: Originally posted by btx97 at 2013-11-20 14:59:11
这个好像可以正常读取呀。试试这个

program main
    implicit none
    real :: ix(3), t(3)
    integer, dimension(3) :: ish ,irec, id

    integer :: i
   
    open(2,file="data"
...

运行结果为：
  -75663.000       15.475000            1515        2005           7
  -138530.00       24.129999            1940         305           8
  -139720.00       24.238001            1948         273           8
赞一下 回复此楼
8楼2013-11-20 22:20:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yiqiwuba 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿沪9，生物学326求调剂 +9 刘墨墨 2026-04-15 9/450 2026-04-16 17:14 by 崔崔崔cccc
[考研] 322求调剂 +8 123安康 2026-04-12 15/750 2026-04-16 11:07 by Espannnnnol
[考研] 初试324 中药学 一志愿天中医 求调剂 +4 李的Lucky 2026-04-10 4/200 2026-04-16 09:22 by fqwang
[考研] 297，工科调剂? +10 河南农业大学-能 2026-04-14 10/500 2026-04-15 21:50 by noqvsozv
[考研] 一志愿A区211，22408 321求调剂 +6 随心所欲☆ 2026-04-15 7/350 2026-04-15 21:45 by lbsjt
[考研] 085404 22408 309分求调剂 +9 lzmk 2026-04-14 10/500 2026-04-15 20:02 by 学员JpLReM
[考研] 生物学调剂 +9 纸扇zhishan 2026-04-13 9/450 2026-04-15 18:28 by AN流800
[考研] 297工科调剂? +14 河南农业大学-能 2026-04-13 15/750 2026-04-15 13:25 by 黑科技矿业
[考研] 调剂求收留 +34 果然有我 2026-04-10 35/1750 2026-04-15 13:05 by 西北望—风沙
[考研] 材料工程281还有调剂机会吗 +43 xaw. 2026-04-11 44/2200 2026-04-15 12:46 by 西北望—风沙
[考研] 272分材料子求调剂 +41 Loy0361 2026-04-10 54/2700 2026-04-14 18:00 by lhj2009
[考研] 2026硕士调剂_能动_河南农业大学 +4 河南农业大学-能 2026-04-12 4/200 2026-04-13 22:01 by bljnqdcc
[考研] 302求调剂 +10 易！? 2026-04-13 10/500 2026-04-13 19:04 by lbsjt
[考研] 调剂结束 +6 floriea 2026-04-12 8/400 2026-04-12 18:13 by zhouxiaoyu
[考研] 326求调剂 +6 Shansyn 2026-04-10 6/300 2026-04-12 09:46 by hammer3
[考研] 求调剂，一志愿大连理工大学354分 +5 雨声余生 2026-04-11 6/300 2026-04-11 16:12 by 雨声余生
[考研] 广东省 085601 329分求调剂 +14 Eddieddd 2026-04-10 14/700 2026-04-11 09:58 by bljnqdcc
[考研] 346，工科0854求调剂，专硕 +7 moser233 2026-04-10 8/400 2026-04-11 08:52 by 猪会飞
[考研] 一志愿北理工298英一数二已上岸，感谢各位老师 +14 Reframe 2026-04-10 16/800 2026-04-10 23:07 by caotw2020
[考研] 一志愿京区985，085401电子信息，本科电子信息 +3 阳光开朗的男孩 2026-04-10 3/150 2026-04-10 16:29 by sophia_93
信息提示
关闭
请填处理意见
关闭