From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=0.7 required=5.0 tests=BAYES_00,INVALID_DATE, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,b19fa62fdce575f9 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 1994-12-07 06:49:31 PST Path: bga.com!news.sprintlink.net!hookup!news.mathworks.com!panix!zip.eecs.umich.edu!newsxfer.itd.umich.edu!gatech!swrinde!pipex!uunet!newsgate.watson.ibm.com!watnews.watson.ibm.com!ncohen From: ncohen@watson.ibm.com (Norman H. Cohen) Newsgroups: comp.lang.ada Subject: Re: Why don't large companies use Ada? Date: 7 Dec 1994 14:15:26 GMT Organization: IBM T.J. Watson Research Center Distribution: world Message-ID: <3c4g1u$uh6@watnews1.watson.ibm.com> References: <9412061309.AA02026@ajpo.sei.cmu.edu> Reply-To: ncohen@watson.ibm.com NNTP-Posting-Host: rios8.watson.ibm.com Date: 1994-12-07T14:15:26+00:00 List-Id: In article <9412061309.AA02026@ajpo.sei.cmu.edu>, Paige Vinall writes: |> In INFO-ADA Digest - 5 Dec 1994 (item 11)No. Michael Feldman .EDU> writes: |> >Yes. |> > |> >But unless I mis-read the post from the IBM chap the other day, |> >ISUB does more than logically swap the indices, it actually |> >transposes the array. I don't think I kept that post, but I do |> >think that's what he said. |> > |> |> If an ISUB dfined array is passed to a procedure, PL/I |> will compute an image of it. The way to use ISUB when passing PL/I arrays to Fortran (or, as it was called back then, FORTRAN) is to declare an ordinary array that is filled in column-major (i.e., as Fortran expects it). If, inisde the PL/I program, you want to view the data as arranged in row-major order, then declare an ISUB that creates a virtual transposed copy of the array. It is the ordinary array that is passed to Fortran, so it is unnecessary to create a transposed copy of the array. (If the array is to be passed from one PL/I procedure to another, the ordinary array can be passed and the ISUB declaration repeated in the called procedure.) -- Norman H. Cohen ncohen@watson.ibm.com