//产生0-1之间均匀分布一个随机数// /////////////////////////////////////////////////////////////// //传入参数:r--双精度实型变量指针,指向的单元存放随机数种子值//// //传出参数:p:产生0-1之间均匀分布一个随机数 -/ / 0-1 have a uniform distribution between random numbers / / //////////////////////////////////// /////////////////////////// / / imported parameters : r -- double precision real - variable pointer to the storage unit random number seed / / / / / / out parameters : p : 0-1 produce a uniform distribution between random numbers