Re: Fortran, no RAN ?

On 6/16/2024 9:42 PM, Arne Vajhøj wrote:

On 6/16/2024 9:29 PM, Arne Vajhøj wrote:

On 6/16/2024 8:34 PM, Lawrence D'Oliveiro wrote:

On Sun, 16 Jun 2024 14:20:10 -0400, Arne Vajhøj wrote:

       seed = pas$clock2() ! hack

>
Wot, no /dev/random? No EGD?

>
To my best knowledge: no.
>
There are something equivalent in OpenSSL.

 And on VMS x86-64 there should be the new
SYS$GET_ENTROPY.

$ type entdemo.for
       program entdemo
       implicit none
       integer*1 b(10)
       integer*4 i
       call RAND_bytes(%ref(b), %val(10))
       write(*,*) (b(i),i=1,10)
       call SYS$GET_ENTROPY(%ref(b), %val(10))
       write(*,*) (b(i),i=1,10)
       end
$ for/name=as_is entdemo
$ link entdemo + ssl111$lib:ssl111$libcrypto/lib
Arne