Merge pull request #3204 from martin-frbg/lapack506
Correct INFO value returned by SLASQ2/DLASQ2 (Reference-LAPACK 506)
This commit is contained in:
commit
c9a82f54d1
|
@ -184,8 +184,16 @@
|
||||||
*
|
*
|
||||||
* 2-by-2 case.
|
* 2-by-2 case.
|
||||||
*
|
*
|
||||||
IF( Z( 2 ).LT.ZERO .OR. Z( 3 ).LT.ZERO ) THEN
|
IF( Z( 1 ).LT.ZERO ) THEN
|
||||||
INFO = -2
|
INFO = -201
|
||||||
|
CALL XERBLA( 'DLASQ2', 2 )
|
||||||
|
RETURN
|
||||||
|
ELSE IF( Z( 2 ).LT.ZERO ) THEN
|
||||||
|
INFO = -202
|
||||||
|
CALL XERBLA( 'DLASQ2', 2 )
|
||||||
|
RETURN
|
||||||
|
ELSE IF( Z( 3 ).LT.ZERO ) THEN
|
||||||
|
INFO = -203
|
||||||
CALL XERBLA( 'DLASQ2', 2 )
|
CALL XERBLA( 'DLASQ2', 2 )
|
||||||
RETURN
|
RETURN
|
||||||
ELSE IF( Z( 3 ).GT.Z( 1 ) ) THEN
|
ELSE IF( Z( 3 ).GT.Z( 1 ) ) THEN
|
||||||
|
|
|
@ -183,8 +183,16 @@
|
||||||
*
|
*
|
||||||
* 2-by-2 case.
|
* 2-by-2 case.
|
||||||
*
|
*
|
||||||
IF( Z( 2 ).LT.ZERO .OR. Z( 3 ).LT.ZERO ) THEN
|
IF( Z( 1 ).LT.ZERO ) THEN
|
||||||
INFO = -2
|
INFO = -201
|
||||||
|
CALL XERBLA( 'DLASQ2', 2 )
|
||||||
|
RETURN
|
||||||
|
ELSE IF( Z( 2 ).LT.ZERO ) THEN
|
||||||
|
INFO = -202
|
||||||
|
CALL XERBLA( 'SLASQ2', 2 )
|
||||||
|
RETURN
|
||||||
|
ELSE IF( Z( 3 ).LT.ZERO ) THEN
|
||||||
|
INFO = -203
|
||||||
CALL XERBLA( 'SLASQ2', 2 )
|
CALL XERBLA( 'SLASQ2', 2 )
|
||||||
RETURN
|
RETURN
|
||||||
ELSE IF( Z( 3 ).GT.Z( 1 ) ) THEN
|
ELSE IF( Z( 3 ).GT.Z( 1 ) ) THEN
|
||||||
|
|
Loading…
Reference in New Issue