24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 518  |  回复: 3

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好像没有这个情况,是版本的问题?还是只是我这次在哪个地方弄错了?
程序搞了一晚上,发现错误就出现在了这里。但是我没搞清楚错误的原因,怕以后还会出现类似的错误。
求各位大神帮忙指出错误,不胜感激!!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
Fortran默认有个I-N规则, 以I-N这个字母开头的变量默认是整型, 你的LOST0就是这样
2楼2015-03-24 22:33:20
已阅   回复此楼   关注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的回帖

seanbsd

木虫 (小有名气)


小木虫: 金币+0.5, 给个红包,谢谢回帖
需要你检查下你的源代码,如果在F90里面没有implicit none,而你又没说明你需要输出的数据是实数性数据,按照缺省规则L。。。输出的就是整型的,有小数点那结果显示为"0"
4楼2015-03-27 14:32:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 panyes 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿安徽大学计算机科学与技术学硕,331分求调剂 +3 蒋昌鹏qtj 2026-04-01 3/150 2026-04-01 23:56 by 义文wang
[考研] 291求调剂 +20 Y-cap 2026-03-29 25/1250 2026-04-01 23:49 by 欣喜777
[考研] 298求调剂 +4 什么是胖头鱼 2026-03-30 6/300 2026-04-01 22:06 by 客尔美德
[考研] 0703化学338求调剂! +8 Zuhui0306 2026-03-26 9/450 2026-04-01 21:59 by xhai2011
[考研] 261求调剂 +3 明仔· 2026-04-01 3/150 2026-04-01 20:52 by cq2548
[考研] 0710生物学考研调剂 +3 李多米lee. 2026-03-27 4/200 2026-04-01 16:21 by zzchen2000
[考研] 262求调剂 +9 励志一定发文章 2026-03-31 10/500 2026-04-01 12:22 by sunshine0013
[考研] 一志愿北交材料工程总分358 +5 cs0106 2026-04-01 7/350 2026-04-01 11:45 by wangjy2002
[考研] 288资源与环境专硕求调剂,不限专业,有学上就行 +25 lllllos 2026-03-30 26/1300 2026-04-01 09:52 by 一只好果子?
[考研] 085900土木水利336分求调剂 +3 Zhangjiangj 2026-03-31 5/250 2026-04-01 09:14 by Zhangjiangj
[考研] 080200学硕,机械工程专业277分,求带走! +4 瓶子PZ 2026-03-31 4/200 2026-03-31 20:16 by vgtyfty
[考研] 一志愿南师大0703化学 275求调剂 +5 Ripcord上岸 2026-03-27 5/250 2026-03-31 19:52 by mg1014
[考研] 一志愿中海洋材料357 +4 麦恩莉. 2026-03-30 4/200 2026-03-31 14:35 by 记事本2026
[考研] 287求调剂 +17 land xuxu 2026-03-26 17/850 2026-03-31 11:16 by Zzxxxs
[考研] 276求调剂 +3 赵久华 2026-03-29 3/150 2026-03-31 10:06 by cal0306
[考研] 327求调剂 +5 小卡不卡. 2026-03-29 5/250 2026-03-30 19:30 by Wang200018
[考研] 296求调剂 +10 彼岸t 2026-03-29 10/500 2026-03-30 10:50 by 探123
[考研] 311求调剂 +10 lin0039 2026-03-26 10/500 2026-03-30 10:26 by herarysara
[考研] 343求调剂085601 +3 要努力学习x 2026-03-29 3/150 2026-03-29 18:35 by wxiongid
[考研] 330一志愿中国海洋大学 化学工程 085602 有读博意愿 求调剂 +3 wywy.. 2026-03-27 4/200 2026-03-28 03:32 by fmesaito
信息提示
请填处理意见