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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 关于fortran精度、数据类型问题的求助
51/1返回列表
查看: 745  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

panyes

新虫 (初入文坛)

[交流] 关于fortran精度、数据类型问题的求助 已有2人参与

我用的是Intel fortran 2011
我的程序里面有这样的语句
Lost0=(H0-H0fen)/(Q0*Q0)-resist0
write(21,*)h0,h0fen,q0,resist0,lost0

结果输出的是
  108.0000       69.50000       47.50000      1.0724409E-02           0

如果在程序开头加上doubleprecision lost0 或者 real lost0
输出的结果就变为 108.0000       69.50000       47.50000      1.0724409E-02  6.3393041E-03
这时lost0 就不为0了

我就搞不懂为什么不加说明的话lost0怎么就变成0了，难道默认是整型了？
但是我的其它数据也没有被默认成整型
之前用的campaq fortran好像没有这个情况，是版本的问题？还是只是我这次在哪个地方弄错了？
程序搞了一晚上，发现错误就出现在了这里。但是我没搞清楚错误的原因，怕以后还会出现类似的错误。
求各位大神帮忙指出错误，不胜感激！！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2015-03-24 22:07:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

panyes

新虫 (初入文坛)
引用回帖:
2楼: Originally posted by jerkwin at 2015-03-24 22:33:20
Fortran默认有个I-N规则, 以I-N这个字母开头的变量默认是整型, 你的LOST0就是这样

非常感谢！被你这么一说我想起来了！
赞一下 回复此楼
3楼2015-03-25 13:18:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

jerkwin

专家顾问 (正式写手)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
Fortran默认有个I-N规则, 以I-N这个字母开头的变量默认是整型, 你的LOST0就是这样
赞一下(2人) 回复此楼
2楼2015-03-24 22:33:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

seanbsd

木虫 (小有名气)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
需要你检查下你的源代码，如果在F90里面没有implicit none,而你又没说明你需要输出的数据是实数性数据，按照缺省规则L。。。输出的就是整型的，有小数点那结果显示为"0"
赞一下 回复此楼
4楼2015-03-27 14:32:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 1uaZt2kAZj2S 2026-10-30 15/750 2026-11-01 16:52 by BCdvBAEpt3zm
[考博] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 1uaZt2kAZj2S 2026-10-30 13/650 2026-11-01 16:48 by BCdvBAEpt3zm
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +5 X5bHxOULxFqb 2026-10-30 22/1100 2026-11-01 16:35 by BCdvBAEpt3zm
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +5 X5bHxOULxFqb 2026-10-30 14/700 2026-11-01 16:32 by BCdvBAEpt3zm
[硕博家园] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 hKe7U1kad5Sg 2026-10-31 6/300 2026-11-01 15:04 by BCdvBAEpt3zm
[基金申请] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 xvJS1BYDxvBS 2026-10-31 9/450 2026-11-01 14:55 by BCdvBAEpt3zm
[论文投稿] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 xvJS1BYDxvBS 2026-10-31 7/350 2026-11-01 14:50 by BCdvBAEpt3zm
[找工作] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 1uaZt2kAZj2S 2026-10-31 8/400 2026-11-01 14:48 by BCdvBAEpt3zm
[考研] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4 1uaZt2kAZj2S 2026-10-30 13/650 2026-11-01 14:37 by BCdvBAEpt3zm
[找工作] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 1uaZt2kAZj2S 2026-10-30 10/500 2026-11-01 14:35 by BCdvBAEpt3zm
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 14/700 2026-11-01 14:24 by BCdvBAEpt3zm
[考研] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 xvJS1BYDxvBS 2026-10-31 5/250 2026-11-01 12:51 by BCdvBAEpt3zm
[考博] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4 1uaZt2kAZj2S 2026-10-31 6/300 2026-11-01 12:40 by BCdvBAEpt3zm
[考博] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 10/500 2026-11-01 12:27 by BCdvBAEpt3zm
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 1uaZt2kAZj2S 2026-10-30 17/850 2026-11-01 12:24 by BCdvBAEpt3zm
[基金申请] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4 1uaZt2kAZj2S 2026-10-30 11/550 2026-11-01 12:24 by BCdvBAEpt3zm
[硕博家园] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 1uaZt2kAZj2S 2026-10-30 13/650 2026-11-01 12:14 by BCdvBAEpt3zm
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 hKe7U1kad5Sg 2026-10-31 5/250 2026-11-01 11:14 by BCdvBAEpt3zm
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 1uaZt2kAZj2S 2026-10-30 16/800 2026-11-01 10:27 by BCdvBAEpt3zm
[论文投稿] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 1uaZt2kAZj2S 2026-10-31 8/400 2026-11-01 03:59 by YXM1FDCSE8Bn
信息提示
关闭
请填处理意见
关闭