diff --git a/SRC/cggsvd3.f b/SRC/cggsvd3.f
index 3d64be11a..cae00df67 100644
--- a/SRC/cggsvd3.f
+++ b/SRC/cggsvd3.f
@@ -421,7 +421,7 @@ SUBROUTINE CGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B,
       ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.N ) ) THEN
          INFO = -20
       ELSE IF( LWORK.LT.1 .AND. .NOT.LQUERY ) THEN
-         INFO = -24
+         INFO = -22
       END IF
 *
 *     Compute workspace
diff --git a/SRC/claqz0.f b/SRC/claqz0.f
index 1f6e09c62..9e60ed7a8 100644
--- a/SRC/claqz0.f
+++ b/SRC/claqz0.f
@@ -447,7 +447,7 @@ RECURSIVE SUBROUTINE CLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI,
          WORK( 1 ) = REAL( LWORKREQ )
          RETURN
       ELSE IF ( LWORK .LT. LWORKREQ ) THEN
-         INFO = -19
+         INFO = -18
       END IF
       IF( INFO.NE.0 ) THEN
          CALL XERBLA( 'CLAQZ0', INFO )
diff --git a/SRC/claqz2.f b/SRC/claqz2.f
index f133d1626..498aa74e4 100644
--- a/SRC/claqz2.f
+++ b/SRC/claqz2.f
@@ -285,7 +285,7 @@ RECURSIVE SUBROUTINE CLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI,
          WORK( 1 ) = CMPLX( LWORKREQ )
          RETURN
       ELSE IF ( LWORK .LT. LWORKREQ ) THEN
-         INFO = -26
+         INFO = -25
       END IF
 
       IF( INFO.NE.0 ) THEN
diff --git a/SRC/cunbdb4.f b/SRC/cunbdb4.f
index 16e71860c..0247c7c37 100644
--- a/SRC/cunbdb4.f
+++ b/SRC/cunbdb4.f
@@ -280,7 +280,7 @@ SUBROUTINE CUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA,
          LWORKMIN = LWORKOPT
          WORK(1) = SROUNDUP_LWORK(LWORKOPT)
          IF( LWORK .LT. LWORKMIN .AND. .NOT.LQUERY ) THEN
-           INFO = -14
+           INFO = -15
          END IF
       END IF
       IF( INFO .NE. 0 ) THEN
diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f
index 27d121227..1fd12a120 100644
--- a/SRC/cuncsd.f
+++ b/SRC/cuncsd.f
@@ -512,10 +512,10 @@ RECURSIVE SUBROUTINE CUNCSD( JOBU1, JOBU2, JOBV1T, JOBV2T,
 *
          IF( LWORK .LT. LWORKMIN
      $       .AND. .NOT. ( LQUERY .OR. LRQUERY ) ) THEN
-            INFO = -22
+            INFO = -28
          ELSE IF( LRWORK .LT. LRWORKMIN
      $            .AND. .NOT. ( LQUERY .OR. LRQUERY ) ) THEN
-            INFO = -24
+            INFO = -30
          ELSE
             LORGQRWORK = LWORK - IORGQR + 1
             LORGLQWORK = LWORK - IORGLQ + 1
diff --git a/SRC/dggsvd3.f b/SRC/dggsvd3.f
index 21ac309fc..ffd157f73 100644
--- a/SRC/dggsvd3.f
+++ b/SRC/dggsvd3.f
@@ -416,7 +416,7 @@ SUBROUTINE DGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B,
       ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.N ) ) THEN
          INFO = -20
       ELSE IF( LWORK.LT.1 .AND. .NOT.LQUERY ) THEN
-         INFO = -24
+         INFO = -22
       END IF
 *
 *     Compute workspace
diff --git a/SRC/dorbdb4.f b/SRC/dorbdb4.f
index 6a218fa8a..36ad19a09 100644
--- a/SRC/dorbdb4.f
+++ b/SRC/dorbdb4.f
@@ -278,7 +278,7 @@ SUBROUTINE DORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA,
          LWORKMIN = LWORKOPT
          WORK(1) = LWORKOPT
          IF( LWORK .LT. LWORKMIN .AND. .NOT.LQUERY ) THEN
-           INFO = -14
+           INFO = -15
          END IF
       END IF
       IF( INFO .NE. 0 ) THEN
diff --git a/SRC/dorcsd.f b/SRC/dorcsd.f
index 3a3fab286..f0f77d730 100644
--- a/SRC/dorcsd.f
+++ b/SRC/dorcsd.f
@@ -475,7 +475,7 @@ RECURSIVE SUBROUTINE DORCSD( JOBU1, JOBU2, JOBV1T, JOBV2T,
          WORK(1) = MAX(LWORKOPT,LWORKMIN)
 *
          IF( LWORK .LT. LWORKMIN .AND. .NOT. LQUERY ) THEN
-            INFO = -22
+            INFO = -28
          ELSE
             LORGQRWORK = LWORK - IORGQR + 1
             LORGLQWORK = LWORK - IORGLQ + 1
diff --git a/SRC/sggsvd3.f b/SRC/sggsvd3.f
index c3cf64938..041a356f6 100644
--- a/SRC/sggsvd3.f
+++ b/SRC/sggsvd3.f
@@ -417,7 +417,7 @@ SUBROUTINE SGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B,
       ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.N ) ) THEN
          INFO = -20
       ELSE IF( LWORK.LT.1 .AND. .NOT.LQUERY ) THEN
-         INFO = -24
+         INFO = -22
       END IF
 *
 *     Compute workspace
diff --git a/SRC/sorbdb4.f b/SRC/sorbdb4.f
index 4bd1affa4..42c79e934 100644
--- a/SRC/sorbdb4.f
+++ b/SRC/sorbdb4.f
@@ -279,7 +279,7 @@ SUBROUTINE SORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA,
          LWORKMIN = LWORKOPT
          WORK(1) = REAL( LWORKOPT )
          IF( LWORK .LT. LWORKMIN .AND. .NOT.LQUERY ) THEN
-           INFO = -14
+           INFO = -15
          END IF
       END IF
       IF( INFO .NE. 0 ) THEN
diff --git a/SRC/sorcsd.f b/SRC/sorcsd.f
index eb91d1757..2e386c222 100644
--- a/SRC/sorcsd.f
+++ b/SRC/sorcsd.f
@@ -480,7 +480,7 @@ RECURSIVE SUBROUTINE SORCSD( JOBU1, JOBU2, JOBV1T, JOBV2T,
          WORK(1) = REAL( MAX(LWORKOPT,LWORKMIN) )
 *
          IF( LWORK .LT. LWORKMIN .AND. .NOT. LQUERY ) THEN
-            INFO = -22
+            INFO = -28
          ELSE
             LORGQRWORK = LWORK - IORGQR + 1
             LORGLQWORK = LWORK - IORGLQ + 1
diff --git a/SRC/zggsvd3.f b/SRC/zggsvd3.f
index 48d33e404..471547117 100644
--- a/SRC/zggsvd3.f
+++ b/SRC/zggsvd3.f
@@ -420,7 +420,7 @@ SUBROUTINE ZGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B,
       ELSE IF( LDQ.LT.1 .OR. ( WANTQ .AND. LDQ.LT.N ) ) THEN
          INFO = -20
       ELSE IF( LWORK.LT.1 .AND. .NOT.LQUERY ) THEN
-         INFO = -24
+         INFO = -22
       END IF
 *
 *     Compute workspace
diff --git a/SRC/zlaqz0.f b/SRC/zlaqz0.f
index c5a888bc3..098df828a 100644
--- a/SRC/zlaqz0.f
+++ b/SRC/zlaqz0.f
@@ -448,7 +448,7 @@ RECURSIVE SUBROUTINE ZLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI,
          WORK( 1 ) = DBLE( LWORKREQ )
          RETURN
       ELSE IF ( LWORK .LT. LWORKREQ ) THEN
-         INFO = -19
+         INFO = -18
       END IF
       IF( INFO.NE.0 ) THEN
          CALL XERBLA( 'ZLAQZ0', INFO )
diff --git a/SRC/zlaqz2.f b/SRC/zlaqz2.f
index 0faec2770..640ab2f92 100644
--- a/SRC/zlaqz2.f
+++ b/SRC/zlaqz2.f
@@ -285,7 +285,7 @@ RECURSIVE SUBROUTINE ZLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI,
          WORK( 1 ) = LWORKREQ
          RETURN
       ELSE IF ( LWORK .LT. LWORKREQ ) THEN
-         INFO = -26
+         INFO = -25
       END IF
 
       IF( INFO.NE.0 ) THEN
diff --git a/SRC/zunbdb4.f b/SRC/zunbdb4.f
index 31d8ec40b..0a99949aa 100644
--- a/SRC/zunbdb4.f
+++ b/SRC/zunbdb4.f
@@ -280,7 +280,7 @@ SUBROUTINE ZUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA,
          LWORKMIN = LWORKOPT
          WORK(1) = LWORKOPT
          IF( LWORK .LT. LWORKMIN .AND. .NOT.LQUERY ) THEN
-           INFO = -14
+           INFO = -15
          END IF
       END IF
       IF( INFO .NE. 0 ) THEN
diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f
index 4055a4bbb..81c09e7d7 100644
--- a/SRC/zuncsd.f
+++ b/SRC/zuncsd.f
@@ -510,10 +510,10 @@ RECURSIVE SUBROUTINE ZUNCSD( JOBU1, JOBU2, JOBV1T, JOBV2T,
 *
          IF( LWORK .LT. LWORKMIN
      $       .AND. .NOT. ( LQUERY .OR. LRQUERY ) ) THEN
-            INFO = -22
+            INFO = -28
          ELSE IF( LRWORK .LT. LRWORKMIN
      $            .AND. .NOT. ( LQUERY .OR. LRQUERY ) ) THEN
-            INFO = -24
+            INFO = -30
          ELSE
             LORGQRWORK = LWORK - IORGQR + 1
             LORGLQWORK = LWORK - IORGLQ + 1