容我试验一下代码的使用哈

likm1110

[Fortran] 纯文本查看 复制代码

Module ran001
   Implicit 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

fcode

代码不能使用，代码的使用需要安装编译器。

这里只是张贴代码，由程序自动着色（高亮）。

PS：你可以在个人设置里设置高亮的方案，有不同的配色可以选择哦！

http://bbs.fcode.cn/home.php?mod=spacecp

切换 编辑器风格，然后回到这个帖子来刷新~~

likm1110

fcode 发表于 2015-3-13 18:06
代码不能使用，代码的使用需要安装编译器。

这里只是张贴代码，由程序自动着色（高亮）。

你们管理好敬业啊，点赞！谢谢~