Fortran Coder

查看: 11530|回复: 8
打印 上一主题 下一主题

[数值问题] 遇到的老代码中随机数的问题

[复制链接]

1967

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1370 元
贡献
581 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

楼主
发表于 2016-3-31 18:44:28 | 显示全部楼层
gsecnds 用来获取当前的秒数
init 用来根据秒数获得一个伪随机数的种子

这都是老代码才用的方法。现在可以用标准的方法得到随机数
详见
http://fcode.cn/guide-96-1.html

1967

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1370 元
贡献
581 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2016-4-5 09:01:54 | 显示全部楼层
请告诉我你用的什么编译器?编译命令是什么?
你是否重排了代码以便其适合于固定格式?为什么不使用自由格式?

1967

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1370 元
贡献
581 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

板凳
发表于 2016-4-5 12:31:22 | 显示全部楼层
如果你用的编译命令是 ifort 的话。应该是 intel fortran,而不是 gfortran
如果是这样,请直接
call random_seed()

1967

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1370 元
贡献
581 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

地板
发表于 2016-4-9 09:47:06 | 显示全部楼层
看2楼
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-19 20:17

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表