From 2d43a1d83a4f1dc2f081a03b9a66a8dfc3626fac Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 24 Mar 2017 16:24:39 +0100 Subject: [PATCH] Update dbdsqr.f Typo fix (spurious insertion on wrong line) --- 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 41519227b..bc2091d58 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 = -5NM1, + INFO = -5, ELSE IF( ( NCVT.EQ.0 .AND. LDVT.LT.1 ) .OR. $ ( NCVT.GT.0 .AND. LDVT.LT.MAX( 1, N ) ) ) THEN INFO = -9