设为首页收藏本站如何选择编译器？在线F77转F90 繁体浏览

切换到窄版开启辅助访问

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 遇到的老代码中随机数的问题

返回列表发新帖

查看: 11815|回复: 8

上一主题

下一主题

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

已解决

11 帖子	5 主题	0 精华

F 币: 75 元
贡献: 38 点

发消息

电梯直达

跳转到指定楼层

楼主

发表于 2016-3-31 17:36:38 | 只看该作者 |只看大图回帖奖励

回帖奖励

|倒序浏览 |阅读模式

想问一下这两个子程序的功能是什么？新手求帮助

QQ截图20160331173447.png (12.82 KB, 下载次数: 329)

QQ截图20160331173447.png

QQ截图20160331173502.png (14.46 KB, 下载次数: 317)

QQ截图20160331173502.png

分享到: 微信

收藏0 点赞0 点踩0

回复

使用道具举报

实名认证

2033 帖子	12 主题	5 精华

臭石头雪球

F 币: 1642 元
贡献: 709 点

发消息

沙发

发表于 2016-3-31 18:44:28 | 只看该作者

gsecnds 用来获取当前的秒数
init 用来根据秒数获得一个伪随机数的种子

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

回复支持反对

使用道具举报

11 帖子	5 主题	0 精华

F 币: 75 元
贡献: 38 点

发消息

板凳

楼主| 发表于 2016-4-5 08:52:36 | 只看该作者

我在linux下运行了产生随机数的代码，出现很多错误，求帮助

QQ截图20160405085034.png (58.96 KB, 下载次数: 326)

QQ截图20160405085034.png

QQ截图20160405085109.png (23.93 KB, 下载次数: 333)

QQ截图20160405085109.png

回复支持反对

使用道具举报

实名认证

2033 帖子	12 主题	5 精华

臭石头雪球

F 币: 1642 元
贡献: 709 点

发消息

地板

发表于 2016-4-5 09:01:54 | 只看该作者

请告诉我你用的什么编译器？编译命令是什么？
你是否重排了代码以便其适合于固定格式？为什么不使用自由格式？

回复支持反对

使用道具举报

11 帖子	5 主题	0 精华

F 币: 75 元
贡献: 38 点

发消息

5^#

楼主| 发表于 2016-4-5 09:06:58 | 只看该作者

linux下的gfortran ，编译命令ifort

回复支持反对

使用道具举报

11 帖子	5 主题	0 精华

F 币: 75 元
贡献: 38 点

发消息

6^#

楼主| 发表于 2016-4-5 09:09:06 | 只看该作者

Error in opening the compiled module file. Check INCLUDE paths. 这个是什么意思，

回复支持反对

使用道具举报

实名认证

2033 帖子	12 主题	5 精华

臭石头雪球

F 币: 1642 元
贡献: 709 点

发消息

7^#

发表于 2016-4-5 12:31:22 | 只看该作者

如果你用的编译命令是 ifort 的话。应该是 intel fortran，而不是 gfortran
如果是这样，请直接
call random_seed()

回复支持反对

使用道具举报

11 帖子	5 主题	0 精华

F 币: 75 元
贡献: 38 点

发消息

8^#

楼主| 发表于 2016-4-9 09:22:55 | 只看该作者

fcode 发表于 2016-4-5 12:31
如果你用的编译命令是 ifort 的话。应该是 intel fortran，而不是 gfortran
如果是这样，请直接
call rando ...

调用random_seed（）获取伪随机数钟子，怎么样把这个种子赋值给一个变量，有什么具体格式吗？

回复支持反对

使用道具举报

实名认证

2033 帖子	12 主题	5 精华

臭石头雪球

F 币: 1642 元
贡献: 709 点

发消息

9^#

发表于 2016-4-9 09:47:06 | 只看该作者

看2楼

回复

使用道具举报

返回列表发新帖

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

GMT+8, 2024-12-26 10:03

Powered by Tencent X3.4

© 2013-2024 Tencent

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