您所在位置：主题：谁能告诉我这个子程序什么意思
LELEMA
[专家分：0] 发布于 2011-07-29 10:59:00
real function randomnumber()
implicit none
real c
!call random_seed() ! 系统根据日期和时间随机地提供种子
call random_number(c)
randomnumber=c
return
end
主程序中
if (randomnumber() >=0.0) then
p1=1 ! 默认 D 是第一种组元
else
p1=2
没发现别的地方有对c赋值的啊！主程序中randomnumber()应该等于多少呢、
implicit none
real c
!call random_seed() ! 系统根据日期和时间随机地提供种子
call random_number(c)
randomnumber=c
return
end
主程序中
if (randomnumber() >=0.0) then
p1=1 ! 默认 D 是第一种组元
else
p1=2
没发现别的地方有对c赋值的啊！主程序中randomnumber()应该等于多少呢、