From: Simon Wright <simon@pushface.org>
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
Date: 2012-07-08T08:06:08+01:00 [thread overview]
Message-ID: <m2k3ye20m7.fsf@nidhoggr.home> (raw)
In-Reply-To: jtalfv$63l$1@speranza.aioe.org
"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
next prev parent reply other threads:[~2012-07-08 7:06 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-07-06 9:26 my cheat sheet note on installation of the Ada binding to Blas and Lapack Nasser M. Abbasi
2012-07-06 11:29 ` shai.lesh
2012-07-06 19:55 ` Simon Wright
2012-07-08 0:50 ` Nasser M. Abbasi
2012-07-08 7:06 ` Simon Wright [this message]
2012-07-10 5:14 ` Ada novice
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox