2
c $Id: tool_randm.f,v 1.1 2008-10-01 22:32:32 marat Exp $
5
SUBROUTINE tool_randm(iseed,x)
9
integer i,iseed,itoz,itozz,mz,mult
11
real*8 x,add,dimax,ddimax
18
save newjob,itoz,dimax,ddimax
22
* **** external functions ****
27
if(mod(iseed,2).eq.0)iseed=iseed+1
40
if(itoz.gt.250)itoz=itoz-250
42
if(itozz.gt.250)itozz=itozz-250
43
mz(itoz)=ieor(mz(itoz),mz(itozz))
44
x=mz(itoz)*dimax+ddimax