Fortran Coder

查看: 3616|回复: 2
打印 上一主题 下一主题

[闲聊] 容我试验一下代码的使用哈

[复制链接]

55

帖子

16

主题

0

精华

专家

F 币
621 元
贡献
265 点

规矩勋章

跳转到指定楼层
楼主
发表于 2015-3-13 09:13:22 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
[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

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

55

帖子

16

主题

0

精华

专家

F 币
621 元
贡献
265 点

规矩勋章

沙发
 楼主| 发表于 2015-3-13 18:12:47 | 显示全部楼层
fcode 发表于 2015-3-13 18:06
代码不能使用,代码的使用需要安装编译器。

这里只是张贴代码,由程序自动着色(高亮)。

你们管理好敬业啊,点赞!谢谢~
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-1 07:47

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表