| 查看: 1169 | 回复: 3 | |||
zhuorumeng木虫 (初入文坛)
|
[求助]
RAN(IDUM)源代码
|
| Fortran中RAN(IDUM)的源代码 |
回复此楼» 本帖已获得的红花（最新10朵）
zhuorumeng» 猜你喜欢
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有3人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- IEOR(IDUM,MASK)源代码
已经有3人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-12-03 12:48:16
zhuorumeng
木虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 2293.5
- 红花: 2
- 帖子: 27
- 在线: 29.9小时
- 虫号: 1283167
- 注册: 2011-05-02
- 性别: MM
- 专业: 凝聚态物性I:结构、力学和
3楼2011-12-04 09:39:15
【答案】应助回帖
★
jjdg(金币+1): 感谢参与 2011-12-04 15:21:56
ben_ladeng: 回帖置顶 2011-12-04 15:51:15
zhuorumeng(金币+10): 2011-12-06 11:05:30
jjdg(金币+1): 感谢参与 2011-12-04 15:21:56
ben_ladeng: 回帖置顶 2011-12-04 15:51:15
zhuorumeng(金币+10): 2011-12-06 11:05:30
|
FUNCTION ran0(idum) INTEGER idum,IA,IM,IQ,IR,MASK REAL ran0,AM PARAMETER (IA=16807,IM=2147483647,AM=1./IM,IQ=127773,IR=2836, *MASK=123459876) INTEGER k idum=ieor(idum,MASK) k=idum/IQ idum=IA*(idum-k*IQ)-IR*k if (idum.lt.0) idum=idum+IM ran0=AM*idum idum=ieor(idum,MASK) return END |
4楼2011-12-04 14:54:02
