Re: Fortran, no RAN ?

On 6/16/2024 12:22 PM, Michael Brown wrote:

I've been building MTREK, written in fortran, on my community edition and it compiles fine but complains of no RAN function at link time. It's hard to believe they left out this intrinsic function, can anyone clarify this or offer a solution ?

VMS Fortran got both RAN and the standard RANDOM_NUMBER:
       program randemo
       implicit none
       integer*4 seed, i
       real*4 r1,r2
       seed = 1234567
       do 100 i = 1,5
         r1 = ran(seed)
         write(*,*) r1
         call random_number(r2)
         write(*,*) r2
100   continue
       end
Arne