24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

wxy尘埃

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 518.6
散金: 20
红花: 3
帖子: 117
在线: 57小时
虫号: 1140882
注册: 2010-11-07
性别: MM
专业: 极地科学

[求助] 如何改变fortran的浮点精度

上面的程序是90年代用fortran语言编写的程序，，改变这个程序里边的一些参数，浮点精度与现在的计算机相匹配，望各位高手指点，不胜感激！

回复此楼

» 猜你喜欢

实名举报：华南理工大学物理与光电学院副院长李志远婚内两次出轨女学生（博士）已经有10人回复
现代”学阀”该如何界定已经有7人回复
各位大神，目前国内有哪些比较好用的逆合成软件？已经有12人回复
我的奶奶已经有3人回复
申博发邮件已经有10人回复
国社科系统bug了，是不是要放榜了？已经有9人回复
上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告已经有8人回复
上海工程技术大学激光智能制造课题组招收博士研究生已经有8人回复

微笑吧，为你的曾经拥有~~~

1楼 2011-09-25 22:12:26

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

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★ ★
余泽成(金币+2): 谢谢参与应助！ 2011-09-28 10:37:49

引用回帖:

18楼: Originally posted by wxy尘埃 at 2011-09-27 19:14:16:
呵呵，修改的也是在这个基础上改的吧，修改的是俺老板给的，源程序确实是S.W.编写的纹丝不动的源代码
长的真是有点发晕

你给的那个输出文件一定是在 contin.for 这个源程序的基础上修改的，它的原始源代码在：
http://s-provencher.com/pub/contin/contin.for.gz

你给的那个源代码是：
http://s-provencher.com/pub/contin-multiq/contin-multiq.for.gz

代码相关的说明文档，请自行去 http://s-provencher.com/ 上下载吧……

赞一下(1人)

回复此楼

19楼2011-09-27 19:41:19

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

查看全部 29 个回答

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★ ★
余泽成(金币+2): 谢谢参与应助！ 2011-09-26 21:41:41
wxy尘埃(金币+20): 2011-09-28 09:13:25

大概看了一下，基本上也都是用了最高的精度了，即所谓的 double precision...
如果你觉得不保险的话，可以在每个子程序的第一行加上 implicit double precision (a-H,o-z) 啥的

或者使用编译器提供的一些选项，如 gfortran 中的 -fdefault-real-8 啥的？
话说，你想要啥样的精度？90 年代的 fortran 不算很古老吧……

赞一下(1人)

回复此楼

2楼2011-09-26 18:33:41

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