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,7a2e7ca034d67547
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 ry3mr17993205pbc.8.1341731170342;
        Sun, 08 Jul 2012 00:06:10 -0700 (PDT)
Path: 
 l9ni11158pbj.0!nntp.google.com!news2.google.com!goblin1!goblin.stu.neva.ru!eternal-september.org!feeder.eternal-september.org!mx04.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: my cheat sheet note on installation of the Ada binding to Blas
 and Lapack
Date: Sun, 08 Jul 2012 08:06:08 +0100
Organization: A noiseless patient Spider
Message-ID: <m2k3ye20m7.fsf@nidhoggr.home>
References: <jt6b13$plp$1@speranza.aioe.org> <jtalfv$63l$1@speranza.aioe.org>
Mime-Version: 1.0
Injection-Info: mx04.eternal-september.org;
 posting-host="xdR+M82wpvuVwH9XwXKBMw";
	logging-data="25499"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1/ZFEniBTDvtRohWXQSy0B9R0r0MUAwQag="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.1 (darwin)
Cancel-Lock: sha1:tRmDe0wPeH5ryeLusk+3JKNikyg=
	sha1:Ma1k9DaYrXZ919Ss03Mrbmw2krY=
Content-Type: text/plain
Date: 2012-07-08T08:06:08+01:00
List-Id: <comp.lang.ada>

"Nasser M. Abbasi" <nma@12000.org> writes:

> This is my first program using the lapack binding!

Great!

>           ladrv.SGESV ( N   => A'Last(2),
>                      NRHS => b'Last(2),
>                      A    => A,
>                      LDA  => A'Last(1),
>                      IPIV => IPIV,
>                      B    => b,
>                      LDB  => b'Last(1),
>                      INFO => INFO);

Better to use 'Length rather than 'Last (just in case your matrices'
index range doesn't start at 1). 

>   	if ( not(INFO = 0) ) then
> 	   raise PROGRAM_ERROR;
> 	end if;

As a matter of style, better as

   if INFO /= 0 then