Path: ...!3.eu.feeder.erje.net!feeder.erje.net!usenet.goja.nl.eu.org!weretis.net!feeder8.news.weretis.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Lawrence D'Oliveiro <ldo@nz.invalid>
Newsgroups: comp.os.vms
Subject: Re: Fortran, no RAN ?
Date: Mon, 17 Jun 2024 00:34:39 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 17
Message-ID: <v4o0au$9hu9$10@dont-email.me>
References: <v4n3gt$1019$1@i2pn2.org> <v4n8sb$5g4b$2@dont-email.me>
	<666f2cd9$0$712$14726298@news.sunsite.dk>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Mon, 17 Jun 2024 02:34:39 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="ff2e1389104c18fa1ab521b7e2f13122";
	logging-data="313289"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX18aBqRHXVo36Ur+Bn9NfXHe"
User-Agent: Pan/0.158 (Avdiivka; )
Cancel-Lock: sha1:DEOD7rqpavEUObJdu37+5DEAJBk=
Bytes: 1373

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