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-Thread: 103376,c1bdceb867926fdb
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!news.mixmin.net!aioe.org!not-for-mail
From: "John B. Matthews" <nospam@nospam.invalid>
Newsgroups: comp.lang.ada
Subject: Re: Interfacing Ada with C
Date: Sun, 25 Jul 2010 21:24:07 -0400
Organization: The Wasteland
Message-ID: <nospam-FA3255.21240725072010@news.aioe.org>
References: 
 <b9fdff2c-7d8d-492c-af8d-313fdb1568d5@k19g2000yqc.googlegroups.com>
 <m24ofou965.fsf@pushface.org>
 <0ee9eec7-6024-4fb8-8df0-f65c146e4b84@i28g2000yqa.googlegroups.com>
 <m2zkxgrmkc.fsf@pushface.org>
 <143ef70b-7e74-426b-a621-a5fd157849be@x21g2000yqa.googlegroups.com>
 <m2iq43rvv1.fsf@pushface.org>
NNTP-Posting-Host: LQJtZWzu+iKlBROuDg+IUg.user.speranza.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
X-Complaints-To: abuse@aioe.org
X-Notice: Filtered by postfilter v. 0.8.2
User-Agent: MT-NewsWatcher/3.5.3b3 (Intel Mac OS X)
Xref: g2news1.google.com comp.lang.ada:12569
Date: 2010-07-25T21:24:07-04:00
List-Id: <comp.lang.ada>

In article <m2iq43rvv1.fsf@pushface.org>,
 Simon Wright <simon@pushface.org> wrote:

> I've encoded a general complex eigenvalues function, interfacing to the
> LAPACK procedure zgeev, starting from a demo at
> http://www.physics.oregonstate.edu/~rubin/nacphy/lapack/codes/eigen-c.html
> & copying bits and pieces from within the GNAT implementation of
> Ada.Numerics.Generic_Complex_Arrays.
> 
> Find it at http://public.me.com/simon.j.wright (folder numerics).

Exemplary!

> NB1 LAPACK is a Fortran code, hence the need to transpose the matrix.
> 
> NB2 the compilation gives warnings .. 
> 
> $ gnatmake test_zgeev.adb
> gcc -c test_zgeev.adb
> test_zgeev.adb:9:06: warning: "Interfaces.Fortran.BLAS" is an internal GNAT unit
> test_zgeev.adb:9:06: warning: use of this unit is non-portable and version-dependent
> test_zgeev.adb:10:06: warning: "Interfaces.Fortran.LAPACK" is an internal GNAT unit
> test_zgeev.adb:10:06: warning: use of this unit is non-portable and version-dependent

For convenience, the warnings may be suppressed:

pragma Warnings("I");

-- 
John B. Matthews
trashgod at gmail dot com
<http://sites.google.com/site/drjohnbmatthews>