一段fortran程序,用于生成随机数,哪里出问题了real*8 function random()implicit double precision(a-h,o-z)common/random_s/xx=dmod(x*1953125d0,8388593d0)random=(x+0.1d0)/8388593d0returnendblock datareal*8 xcommon/random_s/xdata x/235621d0/
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/20 07:12:32
![一段fortran程序,用于生成随机数,哪里出问题了real*8 function random()implicit double precision(a-h,o-z)common/random_s/xx=dmod(x*1953125d0,8388593d0)random=(x+0.1d0)/8388593d0returnendblock datareal*8 xcommon/random_s/xdata x/235621d0/](/uploads/image/z/11472211-19-1.jpg?t=%E4%B8%80%E6%AE%B5fortran%E7%A8%8B%E5%BA%8F%2C%E7%94%A8%E4%BA%8E%E7%94%9F%E6%88%90%E9%9A%8F%E6%9C%BA%E6%95%B0%2C%E5%93%AA%E9%87%8C%E5%87%BA%E9%97%AE%E9%A2%98%E4%BA%86real%2A8+function+random%28%29implicit+double+precision%28a-h%2Co-z%29common%2Frandom_s%2Fxx%3Ddmod%28x%2A1953125d0%2C8388593d0%29random%3D%28x%2B0.1d0%29%2F8388593d0returnendblock+datareal%2A8+xcommon%2Frandom_s%2Fxdata+x%2F235621d0%2F)
一段fortran程序,用于生成随机数,哪里出问题了real*8 function random()implicit double precision(a-h,o-z)common/random_s/xx=dmod(x*1953125d0,8388593d0)random=(x+0.1d0)/8388593d0returnendblock datareal*8 xcommon/random_s/xdata x/235621d0/
一段fortran程序,用于生成随机数,哪里出问题了
real*8 function random()
implicit double precision(a-h,o-z)
common/random_s/x
x=dmod(x*1953125d0,8388593d0)
random=(x+0.1d0)/8388593d0
return
end
block data
real*8 x
common/random_s/x
data x/235621d0/
end block data
另外,问题是The type of the function reference does not match the type of the function definition.
有人说是形参和实参类型不一致,求问该怎么改动
我在调用的时候语句是a=random()
请问哪里出现什么问题了吗?
该怎么解决?
一段fortran程序,用于生成随机数,哪里出问题了real*8 function random()implicit double precision(a-h,o-z)common/random_s/xx=dmod(x*1953125d0,8388593d0)random=(x+0.1d0)/8388593d0returnendblock datareal*8 xcommon/random_s/xdata x/235621d0/
你给出的 random 没有任何虚参,不存在类型不一致的情况.
1.随机数,Fortran 有内置的函数random_number可以实现.
2.如果你要找出你的问题,建议你给出完整代码.