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.8 required=5.0 tests=BAYES_00,INVALID_DATE
	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-09 14:21:30 PST
Newsgroups: comp.lang.ada
Path: 
 bga.com!news.sprintlink.net!hookup!newshost.marcam.com!news.mathworks.com!uhog.mit.edu!nntp.club.cc.cmu.edu!cantaloupe.srv.cs.cmu.edu!bb3.andrew.cmu.edu!news.sei.cmu.edu!ajpo.sei.cmu.edu!riehler
From: riehler@ajpo.sei.cmu.edu (Richard Riehle)
Subject: Fortran Arrays was: Why don't large companies use Ada?
Message-ID: <1994Dec9.133050.17629@sei.cmu.edu>
Keywords: Fortran, arrays, array conversion
Sender: netnews@sei.cmu.edu (Netnews)
Organization: AdaWorks Software Engineering
References: <D0DDov.Lyn@alsys.com> <3c6ofm$50v@gnat.cs.nyu.edu>
 <3c8i5p$f59@felix.seas.gwu.edu>
Date: Fri, 9 Dec 1994 13:30:50 EST
Date: 1994-12-09T13:30:50-05:00
List-Id: <comp.lang.ada>


The problem of Fortran arrays seems to be of serious interest.  One of
the things I like about Ada is that I can write a program which 
explicitly deals with this problem.  Of course it is a little more work,
but the following:

         type Row is array (some index of my choice) of Real;
         type Col is array (some index of my choice) of Row;

is useful, and so:

         type Col is array (index) of Real;
         type Row is array (index) of Col;

is also sometimes useful.

In fact, I find it quite nice that I can send an entire column or row
as the actual paramter of a subprogram.  For example,

         procedure P(C : in out Col);

         function  F(C : in Col) return Col;

I realize this is trivial in Ada, but not so trivial in other 
languages.  One of the things I have always liked about Ada is its
wonderful posiblilities for array processing.  

Richard Riehle
AdaWorks Software Engineering
Palo Alto, CA
email:  adaworks@netcom.com