From 8a17201f8eb7fd06d0cd9f53e32cca5c73542852 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 24 Mar 2017 16:56:17 +0100 Subject: [PATCH] Update dbdsqr.f --- lapack-netlib/SRC/dbdsqr.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/SRC/dbdsqr.f b/lapack-netlib/SRC/dbdsqr.f index bc2091d58..c4cfbb3f7 100644 --- a/lapack-netlib/SRC/dbdsqr.f +++ b/lapack-netlib/SRC/dbdsqr.f @@ -310,7 +310,7 @@ ELSE IF( NRU.LT.0 ) THEN INFO = -4 ELSE IF( NCC.LT.0 ) THEN - INFO = -5, + INFO = -5 ELSE IF( ( NCVT.EQ.0 .AND. LDVT.LT.1 ) .OR. $ ( NCVT.GT.0 .AND. LDVT.LT.MAX( 1, N ) ) ) THEN INFO = -9