Rejected by Custodian

[LE_MAILBOX]

Mail*Link(r) SMTP               RE> Need a random # generator

Hi Tim,

Try this - it is old but good ( only for 32 bit float ):

subroutine rando ( ix, iy, ay )
iy=ix*65539
if(iy) 1,2,2
1 iy=iy+2147483647+1
2 ay=iy
ay=ay*.4656613E-9
return
end

------------------

ix='something'
do 1 n=1,'another something'
call rando(ix,iy,ay)
ix=iy
write(*,*)ay
1 continue

------------------

Janusz Michalak

------------------ RFC822 Header Follows ------------------
Received: by qmgate_backup.anl.gov with SMTP;18 Dec 1995 17:03:30 -0600
Received: (from daemon at localhost) by diego.cecer.army.mil (8.7/8.7) id
OAA14410 for grassu-people; Mon, 18 Dec 1995 14:33:18 -0600 (CST)
Received: from max.cecer.army.mil (max.cecer.army.mil [129.229.20.254]) by
diego.cecer.army.mil (8.7/8.7) with SMTP id OAA14405 for
<grassu-list at diego.cecer.army.mil>; Mon, 18 Dec 1995 14:33:16 -0600 (CST)
Received: from asp.biogeo.uw.edu.pl (asp.biogeo.uw.edu.pl [148.81.33.11]) by
max.cecer.army.mil (8.6.9/8.6.9) with SMTP id OAA29836 for
<grassu-list at max.cecer.army.mil>; Mon, 18 Dec 1995 14:31:10 -0600
Received: by asp.biogeo.uw.edu.pl (5.61/1.34)
        id AA13253; Mon, 18 Dec 95 21:27:38 +0100
Date: Mon, 18 Dec 95 21:27:38 +0100
From: jwm at asp.biogeo.uw.edu.pl (Janusz Michalak)
Message-Id: <9512182027.AA13253 at asp.biogeo.uw.edu.pl>
Sender: grass-lists-owner at moon.cecer.army.mil
Reply-To: grassu-list at moon.cecer.army.mil
Precedence: Bulk
Sender: grass-lists-owner at moon.cecer.army.mil.
Reply-To: grassu-list at moon.cecer.army.mil.
Precedence: Bulk
To: grassu-list at max.cecer.army.mil
Subject: Re:  Need a random # generator