24小时热门版块排行榜    

查看: 2127  |  回复: 28

wxy尘埃

银虫 (小有名气)

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

上面的程序是90年代用fortran语言编写的程序,,改变这个程序里边的一些参数,浮点精度与现在的计算机相匹配,望各位高手指点,不胜感激!
回复此楼
微笑吧,为你的曾经拥有~~~
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
余泽成(金币+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  不算很古老吧……
2楼2011-09-26 18:33:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wxy尘埃

银虫 (小有名气)

jjdg: 你只要用编译器编成exe即可,再老都可以用的 2011-09-27 00:35:04
有人说老,硬是下任务要改!
很谢谢你的一如既往的应助!
微笑吧,为你的曾经拥有~~~
3楼2011-09-26 22:12:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖


余泽成(金币+1): 谢谢参与应助! 2011-09-28 10:35:59
内容已删除
4楼2011-09-27 00:51:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wxy尘埃

银虫 (小有名气)

上传的文件中contin.exe是修改了程序的(具体如何修改的不知道)
当用matlab来运行时出了一定的错误,第三个图无法成功运行以及die.txt结果无输出,这怎么解决
微笑吧,为你的曾经拥有~~~
5楼2011-09-27 10:43:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖


余泽成(金币+1): 谢谢参与应助! 2011-09-28 10:36:12
引用回帖:
5楼: Originally posted by wxy尘埃 at 2011-09-27 10:43:47:
上传的文件中contin.exe是修改了程序的(具体如何修改的不知道)
当用matlab来运行时出了一定的错误,第三个图无法成功运行以及die.txt结果无输出,这怎么解决

俺不懂 matlab,所以,不知道你说的这是个什么情况……

对我来说,首先要确保你的 Fortran 程序可以运行,并能得到你想要的结果,至于其它的便与该程序没有关系了……
6楼2011-09-27 14:53:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wxy尘埃

银虫 (小有名气)

如果按源程序编译的话,运行出来的结果是不完善的(与上面5楼给的contin.exe(不知道是谁改进的)比较,),得不想要的结果,不知道问题出在哪里
微笑吧,为你的曾经拥有~~~
7楼2011-09-27 15:24:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wxy尘埃

银虫 (小有名气)

这两个文件是分别用源程序编译的结果与改进后运行的结果,差别很大(我需要的结果是要得到粒径分布),请问该怎么解决?
微笑吧,为你的曾经拥有~~~
8楼2011-09-27 15:41:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

你用了相同的输入文件?修改后的程序的源文件你有吗?把输入文件、修改后的程序的源文件啥的传上来看看……
9楼2011-09-27 15:49:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wxy尘埃

银虫 (小有名气)

就是没有修改后的代码(只有.exe),只有源代码,确定输入文件是一致的
微笑吧,为你的曾经拥有~~~
10楼2011-09-27 16:41:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 wxy尘埃 的主题更新
信息提示
请填处理意见