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.205.133.196 with SMTP id hz4mr3092407bkc.4.1341490879798;
        Thu, 05 Jul 2012 05:21:19 -0700 (PDT)
Path: 
 y28ni10972bky.0!nntp.google.com!news2.google.com!goblin1!goblin2!goblin.stu.neva.ru!aioe.org!.POSTED!not-for-mail
From: "Nasser M. Abbasi" <nma@12000.org>
Newsgroups: comp.lang.ada
Subject: Re: What would you like in Ada202X?
Date: Thu, 05 Jul 2012 07:21:15 -0500
Organization: Aioe.org NNTP Server
Message-ID: <jt40rr$tra$1@speranza.aioe.org>
References: <j5p9v7l646mlk9m073u4m69dg3gjfjblfm@invalid.netcom.com>
 <b9f31a6f-b35d-4df5-a72c-04e9a567f31a@googlegroups.com>
 <359469402363169386.837099rmhost.bauhaus-maps.arcor.de@news.arcor.de>
 <e5661141-6c23-436b-87a5-375f2ad61824@googlegroups.com>
 <jt408q$s5g$1@speranza.aioe.org>
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:21:15-05:00
List-Id: <comp.lang.ada>

On 7/5/2012 7:11 AM, Nasser M. Abbasi wrote:
> 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
>>
>

>
>> ./example1
> Dot product is:  0.00000E+00
>

I forgot the other example:

-- Copyright (C) 2000-2001 Centre National de la Recherche Scientifique
--  Show the BLAS precisions corresponding to a sample of floating point types.

------------------------------------
>./print_precisions
-- Various BLAS precisions --
Float_Type'Digits: 1
Float_Type'Base'Digits: 6
BLAS precision: SINGLE

Float_Type'Digits: 4
Float_Type'Base'Digits: 6
BLAS precision: SINGLE

Float_Type'Digits: 9
Float_Type'Base'Digits: 15
BLAS precision: DOUBLE

Float_Type'Digits: 13
Float_Type'Base'Digits: 15
BLAS precision: DOUBLE

Float_Type'Digits: 18
Float_Type'Base'Digits: 18
BLAS precision: UNSUPPORTED
---------------------------------

--Nasser