Fortran Coder

查看: 3687|回复: 2
打印 上一主题 下一主题

[数理统计] fortran产生任意分布随机数

[复制链接]

2

帖子

1

主题

0

精华

新人

F 币
7 元
贡献
6 点
楼主
发表于 2019-5-24 01:37:09 | 显示全部楼层
随机产生100个1到100的数
real :: rnd(100)
call random_seed()
call random_number( rnd )
write(*,*) int ( rnd * 99+ 1)



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

本版积分规则

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

GMT+8, 2024-5-6 01:25

Powered by Tencent X3.4

© 2013-2024 Tencent

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