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.6 required=5.0 tests=BAYES_00,DATE_IN_PAST_24_48, FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4 X-Google-Thread: a07f3367d7,222ed89632aabb93 X-Google-Attributes: gida07f3367d7,public,usenet X-Google-NewGroupId: yes X-Google-Language: ENGLISH,ASCII-7-bit Received: by 10.224.138.146 with SMTP id a18mr1325989qau.6.1343313274210; Thu, 26 Jul 2012 07:34:34 -0700 (PDT) Received: by 10.66.85.231 with SMTP id k7mr1782714paz.38.1343312871957; Thu, 26 Jul 2012 07:27:51 -0700 (PDT) Path: a15ni113198934qag.0!nntp.google.com!q21no552453qas.0!news-out.google.com!b9ni64773113pbl.0!nntp.google.com!border1.nntp.dca.giganews.com!border4.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!border2.nntp.ams.giganews.com!nntp.giganews.com!newsfeed.straub-nv.de!news.swapon.de!news.glorb.com!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail From: Ada novice Newsgroups: comp.lang.ada Subject: Re: Free AMD Core Math Library (BLAS/LAPACK) + Ada Date: Tue, 24 Jul 2012 22:36:34 -0700 (PDT) Organization: http://groups.google.com Message-ID: <27d45d4b-0924-4179-9a05-169ab10839ce@googlegroups.com> References: <41b74e89-f112-4791-883d-236080652dbf@googlegroups.com> <87txx8yl8t.fsf@ludovic-brenta.org> <87pq7wyek7.fsf@ludovic-brenta.org> <16a6786f-6de5-49c4-90b7-a55cb238d52a@googlegroups.com> <509991f4-bcb4-45a0-84f3-b8393db64da4@googlegroups.com> <374bd898-5683-4350-8812-e3cae186ab2b@googlegroups.com> <87k3y3jxgj.fsf@ludovic-brenta.org> <23edac82-3e0e-47f5-85b7-36473e4a44ed@googlegroups.com> <8d88395a-9e03-4880-9728-aa0489dbc62f@googlegroups.com> <4d5e7463-824c-4ac1-af47-2a4a5bf0d8e6@googlegroups.com> NNTP-Posting-Host: 193.11.21.204 Mime-Version: 1.0 X-Trace: posting.google.com 1343194594 13935 127.0.0.1 (25 Jul 2012 05:36:34 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Wed, 25 Jul 2012 05:36:34 +0000 (UTC) Cc: nma@12000.org In-Reply-To: Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=193.11.21.204; posting-account=Rr9I-QoAAACS-nOzpA-mGxtAlZ46Nb6I User-Agent: G2/1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Date: 2012-07-24T22:36:34-07:00 List-Id: First, I am using GNAT GPL 2011 and not the 2012 version. But I am adding t= he -gnat2012 switch as this is required or else I get: $ gnatmake -I../ada mysolve.adbgcc -c -I../ada mysolve.adb mysolve.adb:39:16: iterator is an Ada2012 feature gnatmake: "mysolve.adb" compilation error Anyway, back to using the -gnat2012 switch: (my username here)~/work/ada/testlapack/lapada/test $ gnatmake -gnat2012 -I= ../ada mysolve.adb gcc -c -gnat2012 -I../ada mysolve.adb mysolve.adb:39:21: too few subscripts in array reference gnatmake: "mysolve.adb" compilation error and (my username here)~/work/ada/testlapack/lapada/test $ cat mysolve.adb with Ada.Text_IO; use Ada.Text_IO; with Interfaces.Fortran; use Interfaces.Fortran; with labase; -- from LAPACK binding with ladrv; -- from LAPACK binding procedure mySolve is A: labase.Fortran_Real_Matrix ( 1..3, 1..3 ); b: labase.Fortran_Real_Matrix ( 1..3, 1..1 ); package Real_IO is new Ada.Text_IO.Float_IO( Real ); INFO : Fortran_Integer; IPIV : labase.Fortran_Integer_Vector ( 1..A'Last(2)); Begin -- solve A x=3Db A :=3D ((2.0, 3.0, 1.0), (2.0, 1.0, 1.0), (4.0, -1.0, 6.0)); b :=3D (( 1=3D> 9.0 ), ( 1=3D> 2.0 ), ( 1=3D>-2.0 ) ); ladrv.SGESV (N =3D> A'Last(2), NRHS =3D> b'Last(2), A =3D> A, LDA =3D> A'Last(1), IPIV =3D> IPIV, B =3D> b, LDB =3D> b'Last(1), INFO =3D> INFO); if ( not(INFO =3D 0) ) then raise PROGRAM_ERROR; end if; for x of b loop -- print solution real_io.PUT ( x ); new_line; end loop; I am not convinced to think that using GNAT GPL 2011 instead of the 2012 ve= rsion is the culprit here. If however I have to change to the 2012 version,= I wonder if I can have both the 2011 and 202 on my machine. On windows it = is simple as GNAT is stored in year-wise folders. I am using the 2011 version since there is no in-built lapack/blas in GNAT = 2012 and I want to be sure that I can still run the earlier math extension = package from Simon Wright. On Windows installing separate lapack/blas libraries is a nightmare. But I = guess if I am using linux, then I can safely change to GPL 2012 and use the= updated math extension package from Simon. Anyway, in this respect what is= the way to uninstall GNAT GPL 2011 given that this cannot be done via the = synaptic package manager since GNAT GPL 2011 does not come pre-packaged for= Debian. Thanks, YC=20