Path: ...!weretis.net!feeder9.news.weretis.net!i2pn.org!i2pn2.org!.POSTED!not-for-mail
From: Michael Brown <brown_mi@encompasserve.org>
Newsgroups: comp.os.vms
Subject: Re: Fortran, no RAN ?
Date: Thu, 20 Jun 2024 01:05:12 +1000
Organization: House Harris Software
Message-ID: <v4us38$evbo$1@i2pn2.org>
References: <v4n3gt$1019$1@i2pn2.org> <v4n8sb$5g4b$2@dont-email.me>
 <v4ocuf$vft$2@i2pn2.org> <v4qcbm$urij$1@dont-email.me>
 <6670cae0$0$719$14726298@news.sunsite.dk>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Wed, 19 Jun 2024 15:05:13 -0000 (UTC)
Injection-Info: i2pn2.org;
	logging-data="490872"; mail-complaints-to="usenet@i2pn2.org";
	posting-account="+4Uum/dzqx74+L7JkrA2AdfM09AXMtW/4pa26DsIWxw";
User-Agent: Mozilla Thunderbird
In-Reply-To: <6670cae0$0$719$14726298@news.sunsite.dk>
Content-Language: en-US
X-Spam-Checker-Version: SpamAssassin 4.0.0
Bytes: 2315
Lines: 49

On 18/6/24 09:46, Arne Vajhøj wrote:
> On 6/17/2024 6:12 PM, Arne Vajhøj wrote:
>> On 6/17/2024 12:09 AM, Michael Brown wrote:
>>> But the question now is why RAN(I1, I2) works on the VAX compiler,and 
>>> not on the X86_64 compiler. And what is it doing with those 2 
>>> parameters on the VAX so I can simulate it somehow.
>>
>> Are you sure that it is intrinsic and not something picked
>> up from some library?
>>
>> What type is RNDOM? Default REAL*4? Or Integer*4?
>>
>> If INTEGER*4 then my guess would be that:
>>
>> RAN(I1, I2)
>>
>> is:
>>
>> RAN_INT_IN_INTERVAL(LOW_BOUND, HIGH_BOUND)
> 
> Example:
> 
> $ typ ranfun2.for

<insert code here......>

>        end
> 
> Arne
> 
> 

That was extremely useful code,  I think RNDOM is integer, certainly the 
ran2arg function compiled into it without complaint, and there is no RAN 
funcion defined in any or the code. I don't know why the RAN with 2 args 
works n the VAX.

Alas as far as porting mtrek is concerned that just led to another 
problem. seems the  the call ERRSET doesn't seem to work(undefined 
symbol at link time) under the X86 fortran.

But I think I am very close.



-- 
House Harris Software.
Making the world a safer place for our products.
https://eisner.decus.org/~brown_mi