如何用fortran产生0-1之间均匀分布的随机数？

xuebaolin

RT，徐世亮的例子我看了，但是看不懂，没看懂原理。
有理解的朋友可以给个例子，比那个加一下注释吗？
谢谢！

nuaaer

我也看过，也不是太懂，直接调用就是了

铁道科学

能不能把代码贴上来呢

酒神阿波罗

SUBROUTINE RD(N,A,R)
        DIMENSION A(N)
        S=65536
        U=2053
        V=13849
        DO I=1,N
        R=U*R+V
      M=R/S
        R=R-M*S
        A(I)=R/S
        ENDDO
        RETURN
        END SUBROUTINE

wq2351

后期的FORTRAN都自带内部函数来产生这种随机数。检验过，效果不错的。