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.
|
||||
*
|
||||
IF( Z( 2 ).LT.ZERO .OR. Z( 3 ).LT.ZERO ) THEN
|
||||
INFO = -2
|
||||
IF( Z( 1 ).LT.ZERO ) THEN
|
||||
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 )
|
||||
RETURN
|
||||
ELSE IF( Z( 3 ).GT.Z( 1 ) ) THEN
|
||||
|
|
|
@ -183,8 +183,16 @@
|
|||
*
|
||||
* 2-by-2 case.
|
||||
*
|
||||
IF( Z( 2 ).LT.ZERO .OR. Z( 3 ).LT.ZERO ) THEN
|
||||
INFO = -2
|
||||
IF( Z( 1 ).LT.ZERO ) THEN
|
||||
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 )
|
||||
RETURN
|
||||
ELSE IF( Z( 3 ).GT.Z( 1 ) ) THEN
|
||||
|
|
Loading…
Reference in New Issue