24小时热门版块排行榜

返回列表

zhuorumeng

木虫 (初入文坛)

应助: 0 (幼儿园)
金币: 2293.5
红花: 2
帖子: 27
在线: 29.9小时
虫号: 1283167
注册: 2011-05-02
性别: MM
专业: 凝聚态物性I:结构、力学和

[求助] RAN(IDUM)源代码

Fortran中RAN(IDUM)的源代码

回复此楼

» 本帖已获得的红花（最新10朵）

zhuorumeng

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

IEOR(IDUM,MASK)源代码已经有3人回复

三分之一

1楼 2011-12-03 11:45:45

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

回帖置顶 ( 共有1个 )

绿遍山原

铜虫 (小有名气)

应助: 64 (初中生)
金币: 707.7
红花: 5
帖子: 159
在线: 201.2小时
虫号: 1128371
注册: 2010-10-21
性别: GG
专业: 凝聚态物性I:结构、力学和

【答案】应助回帖

★
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