- 最後登錄
- 2023-5-13
- 在線時間
- 1 小時
- 註冊時間
- 2008-2-15
- 閱讀權限
- 20
- 精華
- 0
- UID
- 3511884
- 帖子
- 173
- 積分
- 363 點
- 潛水值
- 5633 米
| 如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。 module ran001
implicit none
save
integer::n
real*8::ran
end module ran001
program randomnumber
use ran001
implicit none
integer i
integer,parameter::interation=20
integer,dimension(8)::values
character(len=10)::date,time,zone
call date_and_time(date,time,zone,values)
n=values(1)+70*(values(2)+12*(values(3))+31*(values(5)+23*(values(6)+5*values(7))))
do i=1,interation
call random0
write(*,*)ran ... |
|