Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!rutgers!usc!bloom-beacon!think!husc6!spdcc!ima!johnl
From: johnl@ima.ima.isc.com (John R. Levine)
Newsgroups: comp.lang.fortran
Subject: Re: compiling equivalence statements ...
Keywords: FORTRAN IV to FORTRAN 77
Message-ID: <4128@ima.ima.isc.com>
Date: 29 Jun 89 15:58:04 GMT
References: <2679@cveg.uucp>
Reply-To: johnl@ima.UUCP (John R. Levine)
Distribution: usa
Organization: Segue Software, Inc.
Lines: 18

In article <2679@cveg.uucp> sas3@hcx.uucp (Scott Alan Stuff) writes:
>       dimension stf (12,3)
>       equivalence (is1,stf(3))

This is a wart in F66 that they took out of F77, although most F77 compilers
continue to accept it.  In F66 equivalence statements you could either give
a normally subscripted reference or you could use a single subscript and it
would act as though it was a singly dimensioned array of the same size.  To
make it work, try something like this:

       dimension stf (12,3)
       dimension xstf (12*3)
       equivalence (stf,xstf)
       equivalence (is1,xstf(3))
-- 
John R. Levine, Segue Software, POB 349, Cambridge MA 02238, +1 617 492 3869
{ bbn | spdcc | decvax | harvard | yale }!ima!johnl, Levine@YALE.something
Massachusetts has 64 licensed drivers who are over 100 years old.  -The Globe