🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.misc
Article #185

Re: Fortran90 and Arrays

#185
From: Peter da Silva
Date: Mon, 13 Apr 1992 18:03
28 lines
1606 bytes
In article <sb9e0INNdbb@network.ucsd.edu> mbk@lyapunov.ucsd.edu (Matt Kennel) writes:
> On the other hand, what does it mean to index an array with a complex number?

Well, that depends. If you're talking about an integral complex number then
it could be quite useful. If you're talking about a complex real then you need
to address the question of what it means to index an array with a real.

Perhaps your array contains a set of experimental results, and you want to
extract the result for a given phase. Then:

	A = array(complex integer) of float;
	c = function_returning_complex_float(args);

	A(c) = x

Becomes equivalent to:

	A = array(integer, integer) of float;

	A(integer(real(c)), integer(complex(c))) = x

[irrelevant discussion about terse languages omitted... I would
 hardly call Smalltalk terse]
-- 
/F{findfont exch scalefont setfont}def /S{moveto show}def /T{/Times-Roman F}def
8 T(Ferranti International Controls Corporation)24 28 S(+1 713 274 5180)24 12 S
(Sugar Land, TX  77487-5012)24 20 S 12 /Courier F(`-_-')320 32 S( 'U` )320 16 S
12 T(Peter da Silva)24 36 S 16 T(Have you hugged your wolf today?)358 24 S
Technical Details
Message-ID: <id.ZCVO.9NA@ferranti.com>
Path: arc1-ca.pugleaf.net!sparky!uunet!zaphod.mps.ohio-state.edu!menudo.uh.edu!sugar!ficc!peter
References: <1992Apr11.172154.21417@yrloc.ipsa.reuter.COM> <sb9e0INNdbb@network.ucsd.edu>

Show Full Headers
Complete Article Headers
Newsgroups: comp.lang.misc
Path: arc1-ca.pugleaf.net!sparky!uunet!zaphod.mps.ohio-state.edu!menudo.uh.edu!sugar!ficc!peter
From: peter@ferranti.com (Peter da Silva)
Subject: Re: Fortran90 and Arrays
Message-ID: <id.ZCVO.9NA@ferranti.com>
Sender: peter@ferranti.com (peter da silva)
Organization: Xenix Support, FICC
References: <1992Apr11.172154.21417@yrloc.ipsa.reuter.COM> <sb9e0INNdbb@network.ucsd.edu>
Date: Mon, 13 Apr 1992 18:03:09 GMT
Lines: 28