Path: ...!news.mixmin.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: =?UTF-8?Q?Arne_Vajh=C3=B8j?= <arne@vajhoej.dk>
Newsgroups: comp.os.vms
Subject: Re: Fortran, no RAN ?
Date: Sun, 16 Jun 2024 13:54:20 -0400
Organization: A noiseless patient Spider
Lines: 23
Message-ID: <v4n8sb$5g4b$2@dont-email.me>
References: <v4n3gt$1019$1@i2pn2.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Sun, 16 Jun 2024 19:54:19 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="3713f6d5efbc1501ec46b1ff202530ae";
	logging-data="180363"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX180Rcc3vo/kxWxOWDzV1Xbxa4bBoUvZyvA="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:0/KRxVmqufp3xNDqAAdkvZPVY6o=
Content-Language: en-US
In-Reply-To: <v4n3gt$1019$1@i2pn2.org>
Bytes: 1635

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