24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 517  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿上海海洋大学083200食品学硕,求调剂,接受其他专业 +5 what张 2026-04-01 5/250 2026-04-01 22:35 by guanxin1001
[考研] 江苏科技大学招材料研究生 +4 Su032713. 2026-04-01 5/250 2026-04-01 22:03 by cccchenso
[考研] 339求调剂,想调回江苏 +7 烤麦芽 2026-03-27 10/500 2026-04-01 21:35 by 495374996
[考研] 349求调剂 +6 吃的不少 2026-04-01 6/300 2026-04-01 17:55 by JYD2011
[考研] 085601一志愿中山大学深圳材料工程330求调剂 +6 pipiver 2026-03-30 6/300 2026-04-01 16:11 by oooqiao
[考研] 324求调剂 +4 想上学求调 2026-04-01 5/250 2026-04-01 14:19 by ZXlzxl0425
[考研] 336求调剂 +3 kiyy 2026-04-01 3/150 2026-04-01 12:46 by wxiongid
[考研] 安徽大学专硕生物与医药专业(086000)324分,英语已过四六级,六级521,求调剂 +10 美味可乐鸡翅 2026-03-26 12/600 2026-04-01 11:17 by syh9288
[考研] 086000生物与医药298调剂求助 +4 元元青青 2026-03-31 6/300 2026-04-01 11:13 by syh9288
[考研] 土木304求调剂 +5 兔突突突, 2026-03-31 6/300 2026-04-01 09:37 by JourneyLucky
[考研] 318一志愿吉林大学生物与医药 求调剂 +6 笃行致远. 2026-03-28 6/300 2026-04-01 09:28 by oooqiao
[教师之家] 张雪峰戛然而止的飞驰人生 +3 yexuqing 2026-03-26 4/200 2026-04-01 08:20 by 湖心亭看雪
[考研] 070300化学专业279调剂 +10 哈哈哈^_^ 2026-03-31 10/500 2026-03-31 23:13 by liu823948201
[考研] 080200学硕,机械工程专业277分,求带走! +4 瓶子PZ 2026-03-31 4/200 2026-03-31 20:16 by vgtyfty
[考研] 合肥区域性重点一本招收调剂 +4 6266jl 2026-03-30 8/400 2026-03-31 18:43 by 6266jl
[考研] 生物考研337分求调剂 +4 cgxin 2026-03-30 6/300 2026-03-31 14:18 by 记事本2026
[考研] 调剂求院校招收 +7 鹤鲸鸽 2026-03-28 7/350 2026-03-31 11:21 by oooqiao
[考研] 083000学硕274求调剂 +12 Li李鱼 2026-03-26 12/600 2026-03-31 10:01 by cal0306
[考研] 一志愿华中师范化学332分求调剂 +3 Lyy930824@ 2026-03-29 3/150 2026-03-30 20:15 by DHUSHUAI
[考研] 352分 化工与材料 +5 海纳百川Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
信息提示
请填处理意见