diff --git a/SRC/cuncsd2by1.f b/SRC/cuncsd2by1.f
index 128e82cecf..ed4c7e0c75 100644
--- a/SRC/cuncsd2by1.f
+++ b/SRC/cuncsd2by1.f
@@ -570,7 +570,7 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                1, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D),
      $                RWORK(IB12E), RWORK(IB21D), RWORK(IB21E),
      $                RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD),
-     $                LRWORK-IBBCSD+1, CHILDINFO )
+     $                LRWORK-IBBCSD+1, INFO )
 *
 *        Permute rows and columns to place zero submatrices in
 *        preferred positions
@@ -624,7 +624,7 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                LDU2, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D),
      $                RWORK(IB12E), RWORK(IB21D), RWORK(IB21E),
      $                RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD,
-     $                CHILDINFO )
+     $                INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
@@ -679,7 +679,7 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                U1, LDU1, RWORK(IB11D), RWORK(IB11E),
      $                RWORK(IB12D), RWORK(IB12E), RWORK(IB21D),
      $                RWORK(IB21E), RWORK(IB22D), RWORK(IB22E),
-     $                RWORK(IBBCSD), LBBCSD, CHILDINFO )
+     $                RWORK(IBBCSD), LBBCSD, INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
@@ -751,7 +751,7 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                V1T, LDV1T, RWORK(IB11D), RWORK(IB11E),
      $                RWORK(IB12D), RWORK(IB12E), RWORK(IB21D),
      $                RWORK(IB21E), RWORK(IB22D), RWORK(IB22E),
-     $                RWORK(IBBCSD), LBBCSD, CHILDINFO )
+     $                RWORK(IBBCSD), LBBCSD, INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
diff --git a/SRC/dorcsd2by1.f b/SRC/dorcsd2by1.f
index bf427f94f4..d0214d53b6 100644
--- a/SRC/dorcsd2by1.f
+++ b/SRC/dorcsd2by1.f
@@ -530,7 +530,7 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                DUM2, 1, WORK(IB11D), WORK(IB11E),
      $                WORK(IB12D), WORK(IB12E), WORK(IB21D),
      $                WORK(IB21E), WORK(IB22D), WORK(IB22E),
-     $                WORK(IBBCSD), LBBCSD, CHILDINFO )
+     $                WORK(IBBCSD), LBBCSD, INFO )
 *
 *        Permute rows and columns to place zero submatrices in
 *        preferred positions
@@ -584,7 +584,7 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                LDU2, WORK(IB11D), WORK(IB11E), WORK(IB12D),
      $                WORK(IB12E), WORK(IB21D), WORK(IB21E),
      $                WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD,
-     $                CHILDINFO )
+     $                INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
@@ -639,7 +639,7 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                LDU2, U1, LDU1, WORK(IB11D), WORK(IB11E),
      $                WORK(IB12D), WORK(IB12E), WORK(IB21D),
      $                WORK(IB21E), WORK(IB22D), WORK(IB22E),
-     $                WORK(IBBCSD), LBBCSD, CHILDINFO )
+     $                WORK(IBBCSD), LBBCSD, INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
@@ -710,7 +710,7 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                1, V1T, LDV1T, WORK(IB11D), WORK(IB11E),
      $                WORK(IB12D), WORK(IB12E), WORK(IB21D),
      $                WORK(IB21E), WORK(IB22D), WORK(IB22E),
-     $                WORK(IBBCSD), LBBCSD, CHILDINFO )
+     $                WORK(IBBCSD), LBBCSD, INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
diff --git a/SRC/sorcsd2by1.f b/SRC/sorcsd2by1.f
index 04528bb11a..f804edd27a 100644
--- a/SRC/sorcsd2by1.f
+++ b/SRC/sorcsd2by1.f
@@ -530,7 +530,7 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                DUM2, 1, WORK(IB11D), WORK(IB11E), WORK(IB12D),
      $                WORK(IB12E), WORK(IB21D), WORK(IB21E),
      $                WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD,
-     $                CHILDINFO )
+     $                INFO )
 *
 *        Permute rows and columns to place zero submatrices in
 *        preferred positions
@@ -584,7 +584,7 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                LDU2, WORK(IB11D), WORK(IB11E), WORK(IB12D),
      $                WORK(IB12E), WORK(IB21D), WORK(IB21E),
      $                WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD,
-     $                CHILDINFO )
+     $                INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
@@ -639,7 +639,7 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                LDU2, U1, LDU1, WORK(IB11D), WORK(IB11E),
      $                WORK(IB12D), WORK(IB12E), WORK(IB21D),
      $                WORK(IB21E), WORK(IB22D), WORK(IB22E),
-     $                WORK(IBBCSD), LBBCSD, CHILDINFO )
+     $                WORK(IBBCSD), LBBCSD, INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
@@ -710,7 +710,7 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                V1T, LDV1T, WORK(IB11D), WORK(IB11E), WORK(IB12D),
      $                WORK(IB12E), WORK(IB21D), WORK(IB21E),
      $                WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD,
-     $                CHILDINFO )
+     $                INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
diff --git a/SRC/zuncsd2by1.f b/SRC/zuncsd2by1.f
index cf2158f72c..85eb7c6009 100644
--- a/SRC/zuncsd2by1.f
+++ b/SRC/zuncsd2by1.f
@@ -567,7 +567,7 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                1, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D),
      $                RWORK(IB12E), RWORK(IB21D), RWORK(IB21E),
      $                RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD),
-     $                LRWORK-IBBCSD+1, CHILDINFO )
+     $                LRWORK-IBBCSD+1, INFO )
 *
 *        Permute rows and columns to place zero submatrices in
 *        preferred positions
@@ -621,7 +621,7 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                LDU2, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D),
      $                RWORK(IB12E), RWORK(IB21D), RWORK(IB21E),
      $                RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD,
-     $                CHILDINFO )
+     $                INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
@@ -676,7 +676,7 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                U1, LDU1, RWORK(IB11D), RWORK(IB11E),
      $                RWORK(IB12D), RWORK(IB12E), RWORK(IB21D),
      $                RWORK(IB21E), RWORK(IB22D), RWORK(IB22E),
-     $                RWORK(IBBCSD), LBBCSD, CHILDINFO )
+     $                RWORK(IBBCSD), LBBCSD, INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions
@@ -747,7 +747,7 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11,
      $                V1T, LDV1T, RWORK(IB11D), RWORK(IB11E),
      $                RWORK(IB12D), RWORK(IB12E), RWORK(IB21D),
      $                RWORK(IB21E), RWORK(IB22D), RWORK(IB22E),
-     $                RWORK(IBBCSD), LBBCSD, CHILDINFO )
+     $                RWORK(IBBCSD), LBBCSD, INFO )
 *
 *        Permute rows and columns to place identity submatrices in
 *        preferred positions