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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,89d280850f5d8df
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-07-21 06:44:07 PST
Path: archiver1.google.com!postnews1.google.com!not-for-mail
From: kcarron@belcan.com (Karen Carron)
Newsgroups: comp.lang.ada
Subject: Re: Passing Unconstrained Arrays from FORTRAN to an Ada95 subunit
Date: 21 Jul 2002 06:44:07 -0700
Organization: http://groups.google.com/
Message-ID: <5489a352.0207210544.3d50d423@posting.google.com>
References: <5489a352.0207191657.5fac87a8@posting.google.com>
 <f%3_8.1754$dC.281@sccrnsc03>
NNTP-Posting-Host: 24.48.157.108
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: posting.google.com 1027259047 16138 127.0.0.1 (21 Jul 2002 13:44:07
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: 21 Jul 2002 13:44:07 GMT
Xref: archiver1.google.com comp.lang.ada:27282
Date: 2002-07-21T13:44:07+00:00
List-Id: <comp.lang.ada>

tmoran@acm.org wrote in message news:<f%3_8.1754$dC.281@sccrnsc03>...
> What happens if you pass a constrained array, ie,
>    type int_array_type is array(integer range 1.. 10) of integer;
> to match the Fortran declaration
> integer a(10)

Thank you for your reply.  Yes, this works, but the routine with the
unconstrained array is called by many other routines which pass it
varying sizes of arrays.
 
One way to get it to work is to write an interface procedure in Ada
for each call that passes the routine a constrained array. But as I
said, there are many fortran units that call this routine, hence many
interface routines would have to be written.

I found some other things to try in reading some other articles. 
Still, any ideas are very welcome.

Thanks!