一段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/09/09 15:49:16
x_o`ƿ{ a cw~Mi_B#mI)I1!Len#dMltk-