From 444cb78be54e76a90d25476893748c44957d3553 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 30 Apr 2021 09:26:54 +0200 Subject: [PATCH] correct INFO value (Reference-LAPACK 506) --- lapack-netlib/SRC/dlasq2.f | 12 ++++++++++-- lapack-netlib/SRC/slasq2.f | 12 ++++++++++-- 2 files changed, 20 insertions(+), 4 deletions(-) diff --git a/lapack-netlib/SRC/dlasq2.f b/lapack-netlib/SRC/dlasq2.f index 68d9228..27eb1f7 100644 --- a/lapack-netlib/SRC/dlasq2.f +++ b/lapack-netlib/SRC/dlasq2.f @@ -184,10 +184,18 @@ * * 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 D = Z( 3 ) Z( 3 ) = Z( 1 ) diff --git a/lapack-netlib/SRC/slasq2.f b/lapack-netlib/SRC/slasq2.f index 6e5f864..219797c 100644 --- a/lapack-netlib/SRC/slasq2.f +++ b/lapack-netlib/SRC/slasq2.f @@ -183,10 +183,18 @@ * * 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 D = Z( 3 ) Z( 3 ) = Z( 1 ) -- 2.7.4