容我试验一下代码的使用哈
Module ran001Implicit None
Save
Integer :: n = 9876
End Module ran001
!-------------------------------------------------------------
Subroutine random0(ran)
Use ran001
Implicit None
Real, Intent(out) :: ran
n = Mod(8121 * n + 28411, 134456) ! A number between 0 and 134455
ran = real(n) / 134456. ! Generate a number [0,1.)
End Subroutine random0
!-------------------------------------------------------------
Subroutine seed(iseed)
Use ran001
Implicit None
Integer, Intent(in) :: iseed
n = abs(iseed)
End Subroutine seed
代码不能使用，代码的使用需要安装编译器。
这里只是张贴代码，由程序自动着色（高亮）。
PS：你可以在个人设置里设置高亮的方案，有不同的配色可以选择哦！
http://bbs.fcode.cn/home.php?mod=spacecp
切换 编辑器风格，然后回到这个帖子来刷新~~ fcode 发表于 2015-3-13 18:06
代码不能使用，代码的使用需要安装编译器。
这里只是张贴代码，由程序自动着色（高亮）。
你们管理好敬业啊，点赞！谢谢~
页:
[1]