Sujet : Re: Fortran, no RAN ?
De : ldo (at) *nospam* nz.invalid (Lawrence D'Oliveiro)
Groupes : comp.os.vmsDate : 17. Jun 2024, 01:34:39
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <v4o0au$9hu9$10@dont-email.me>
References : 1 2 3
User-Agent : Pan/0.158 (Avdiivka; )
On Sun, 16 Jun 2024 14:20:10 -0400, Arne Vajhøj wrote:
seed = pas$clock2() ! hack
Wot, no /dev/random? No EGD?
CALL EGD$RAND_BYTES_FILL(NRBYTES, BYTESARR)
NUM = EGD$RANDINT(LO, HI)
IF (EGD$UNIFORM() .GE. 0.5) THEN
... yes ...
ELSE
... no ...
END IF
etc etc