rpl/lapack/lapack/zlals0.f - diff

Return to zlals0.f CVS log

Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/zlals0.f between versions 1.13 and 1.14

version 1.13, 2014/01/27 09:28:37	version 1.14, 2015/11/26 11:44:24
Line 254	Line 254
*> \author Univ. of Colorado Denver	*> \author Univ. of Colorado Denver
*> \author NAG Ltd.	*> \author NAG Ltd.
*	*
*> \date September 2012	*> \date November 2015
*	*
*> \ingroup complex16OTHERcomputational	*> \ingroup complex16OTHERcomputational
*	*
Line 270	Line 270
$ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM,	$ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM,
$ POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO )	$ POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO )
*	*
* -- LAPACK computational routine (version 3.4.2) --	* -- LAPACK computational routine (version 3.6.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --	* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--	* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* September 2012	* November 2015
*	*
* .. Scalar Arguments ..	* .. Scalar Arguments ..
INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL,	INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL,
Line 314	Line 314
* Test the input parameters.	* Test the input parameters.
*	*
INFO = 0	INFO = 0
	N = NL + NR + 1
*	*
IF( ( ICOMPQ.LT.0 ) .OR. ( ICOMPQ.GT.1 ) ) THEN	IF( ( ICOMPQ.LT.0 ) .OR. ( ICOMPQ.GT.1 ) ) THEN
INFO = -1	INFO = -1
Line 323	Line 324
INFO = -3	INFO = -3
ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN	ELSE IF( ( SQRE.LT.0 ) .OR. ( SQRE.GT.1 ) ) THEN
INFO = -4	INFO = -4
END IF	ELSE IF( NRHS.LT.1 ) THEN
*
N = NL + NR + 1
*
IF( NRHS.LT.1 ) THEN
INFO = -5	INFO = -5
ELSE IF( LDB.LT.N ) THEN	ELSE IF( LDB.LT.N ) THEN
INFO = -7	INFO = -7

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.13
changed lines
	Added in v.1.14