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=2.0 required=5.0 tests=BAYES_00,FORGED_MUA_MOZILLA, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 X-Google-Thread: 103376,81bb2ce65a3240c3 X-Google-NewGroupId: yes X-Google-Attributes: gida07f3367d7,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII-7-bit Received: by 10.68.227.67 with SMTP id ry3mr9559087pbc.8.1341490270594; Thu, 05 Jul 2012 05:11:10 -0700 (PDT) Path: l9ni10941pbj.0!nntp.google.com!news2.google.com!goblin1!goblin2!goblin.stu.neva.ru!aioe.org!.POSTED!not-for-mail From: "Nasser M. Abbasi" Newsgroups: comp.lang.ada Subject: Re: What would you like in Ada202X? Date: Thu, 05 Jul 2012 07:11:05 -0500 Organization: Aioe.org NNTP Server Message-ID: References: <359469402363169386.837099rmhost.bauhaus-maps.arcor.de@news.arcor.de> Reply-To: nma@12000.org NNTP-Posting-Host: pfl4qxtMf5hoqRBBsHQhPQ.user.speranza.aioe.org Mime-Version: 1.0 X-Complaints-To: abuse@aioe.org User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20120614 Thunderbird/13.0.1 X-Notice: Filtered by postfilter v. 0.8.2 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Date: 2012-07-05T07:11:05-05:00 List-Id: On 7/5/2012 6:57 AM, shai.lesh@gmx.com wrote: > Has anyone looked at this Ada 95 binding to the BLAS and if it works? > > http://topo.math.u-psud.fr/~sands/Programs/BLAS/index.html > > > YC > Yes. I downloaded the Ada Blas binding the other day. Only run the one example1 that comes with it. No more tests there. That example worked. Using gnat 2012. ---------------------------------- >ls -lrt total 1662 -rwxrwxrwx 1 me me 3787 Jul 28 2002 print_precisions.adb -rwxrwxrwx 1 me me 13690 Jul 28 2002 index.html -rwxrwxrwx 1 me me 477 Jul 28 2002 example_support.ads -rwxrwxrwx 1 me me 407 Jul 28 2002 example1.adb -rwxrwxrwx 1 me me 1325 Jul 28 2002 copying -rwxrwxrwx 1 me me 22799 Jul 28 2002 ada_blas-real.ads -rwxrwxrwx 1 me me 110580 Jul 28 2002 ada_blas-real.adb -rwxrwxrwx 1 me me 3703 Jul 28 2002 ada_blas-get_precision.ads -rwxrwxrwx 1 me me 23987 Jul 28 2002 ada_blas-complex.ads -rwxrwxrwx 1 me me 123517 Jul 28 2002 ada_blas-complex.adb -rwxrwxrwx 1 me me 4255 Jul 28 2002 ada_blas.ads -rwxrwxrwx 1 me me 3651 Jun 27 01:54 print_precisions.ali -rwxrwxrwx 1 me me 8376 Jun 27 01:54 print_precisions.o -rwxrwxrwx 1 me me 1684 Jun 27 01:54 ada_blas.ali -rwxrwxrwx 1 me me 2484 Jun 27 01:54 ada_blas.o -rwxrwxrwx 1 me me 1074 Jun 27 01:54 ada_blas-get_precision.ali -rwxrwxrwx 1 me me 726 Jun 27 01:54 ada_blas-get_precision.o -rwxrwxrwx 1 me me 551658 Jun 27 01:55 print_precisions -rwxrwxrwx 1 me me 2420 Jun 27 01:56 example1.ali -rwxrwxrwx 1 me me 1716 Jun 27 01:56 example1.o -rwxrwxrwx 1 me me 1404 Jun 27 01:56 example_support.ali -rwxrwxrwx 1 me me 62476 Jun 27 01:56 example_support.o -rwxrwxrwx 1 me me 67737 Jun 27 01:56 ada_blas-real.ali -rwxrwxrwx 1 me me 708 Jun 27 01:56 ada_blas-real.o -rwxrwxrwx 1 me me 602284 Jun 27 08:18 example1 -rwxrwxrwx 1 me me 76954 Jul 5 07:05 ada_blas-complex.ali -rwxrwxrwx 1 me me 714 Jul 5 07:05 ada_blas-complex.o This make a call to BLAS dot() --------------------------- >cat example1.adb with Ada.Float_Text_IO; with Ada.Text_IO; with Example_Support; use Example_Support; procedure Example1 is A : Vector (1 .. 2) := (1.0, 1.0); B : Vector (1 .. 2) := (1.0, -1.0); D : Float := Real_BLAS.DOT (A, B); -- Does your compiler eliminate all overhead? begin Ada.Text_IO.Put ("Dot product is: "); Ada.Float_Text_IO.Put (D); Ada.Text_IO.New_Line; Ada.Text_IO.Flush; end Example1; > ----------------------- >./example1 Dot product is: 0.00000E+00 On Linux, GNAT 2012 --Nasser