floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

correct INFO value (Reference-LAPACK 506)

This commit is contained in:
Martin Kroeker 2021-04-30 09:26:54 +02:00 committed by GitHub
parent 352efdd13a
commit 444cb78be5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lapack-netlib/SRC/dlasq2.f
View File

@ -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

12
lapack-netlib/SRC/slasq2.f
View File

@ -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