diff --git a/SRC/pdtrord.f b/SRC/pdtrord.f
index 38705743..6206ff45 100644
--- a/SRC/pdtrord.f
+++ b/SRC/pdtrord.f
@@ -334,7 +334,7 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *     ..
 *     .. Local Arrays ..
       INTEGER            IBUFF( 8 ), IDUM1( 1 ), IDUM2( 1 ), MMAX( 1 ),
-     $                   MMIN( 1 ), INFODUM( 1 )
+     $                   MMIN( 1 )
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
@@ -522,9 +522,8 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *     Global maximum on info.
 *
       IF( NPROCS.GT.1 ) THEN
-         CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1, -1, -1,
+         CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1, -1, -1,
      $        -1, -1 )
-         INFO = INFODUM( 1 )
       END IF
 *
 *     Return if some argument is incorrect.
@@ -1580,9 +1579,8 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *
          MYIERR = IERR
          IF( NPROCS.GT.1 ) THEN
-            CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
+            CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
      $           -1, -1, -1, -1 )
-            IERR = INFODUM( 1 )
          END IF
 *
          IF( IERR.NE.0 ) THEN
@@ -1592,9 +1590,8 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *
             IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
             IF( NPROCS.GT.1 ) THEN
-               CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
+               CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
      $              -1, -1, -1, -1 )
-               INFO = INFODUM( 1 )
             END IF
             GO TO 300
          END IF
@@ -3253,9 +3250,8 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *
          MYIERR = IERR
          IF( NPROCS.GT.1 ) THEN
-            CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
+            CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
      $           -1, -1, -1, -1 )
-            IERR = INFODUM( 1 )
          END IF
 *
          IF( IERR.NE.0 ) THEN
@@ -3265,9 +3261,8 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *
             IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
             IF( NPROCS.GT.1 ) THEN
-               CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
+               CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
      $              -1, -1, -1, -1 )
-               IERR = INFODUM( 1 )
             END IF
             GO TO 300
          END IF
diff --git a/SRC/pstrord.f b/SRC/pstrord.f
index 5cdb5491..4bd7785b 100644
--- a/SRC/pstrord.f
+++ b/SRC/pstrord.f
@@ -334,7 +334,7 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *     ..
 *     .. Local Arrays ..
       INTEGER            IBUFF( 8 ), IDUM1( 1 ), IDUM2( 1 ), MMAX( 1 ),
-     $                    MMIN( 1 ), INFODUM( 1 )
+     $                    MMIN( 1 )
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME
@@ -522,9 +522,8 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *     Global maximum on info.
 *
       IF( NPROCS.GT.1 ) THEN
-            CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1, -1,
+            CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1, -1,
      $        -1, -1, -1 )
-            INFO = INFODUM( 1 )
       END IF
 *
 *     Return if some argument is incorrect.
@@ -1580,9 +1579,8 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *
          MYIERR = IERR
          IF( NPROCS.GT.1 ) THEN
-            CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
+            CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
      $           -1, -1, -1, -1 )
-            IERR = INFODUM( 1 )
          END IF
 *
          IF( IERR.NE.0 ) THEN
@@ -1592,9 +1590,8 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *
             IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
             IF( NPROCS.GT.1 ) THEN
-               CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
+               CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
      $              -1, -1, -1, -1 )
-               INFO = INFODUM( 1 )
             END IF
             GO TO 300
          END IF
@@ -3253,9 +3250,8 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *
          MYIERR = IERR
          IF( NPROCS.GT.1 ) THEN
-            CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
+            CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
      $           -1, -1, -1, -1 )
-            IERR = INFODUM( 1 )
          END IF
 *
          IF( IERR.NE.0 ) THEN
@@ -3265,9 +3261,8 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
 *
             IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
             IF( NPROCS.GT.1 ) THEN
-               CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
+               CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
      $              -1, -1, -1, -1 )
-               INFO = INFODUM( 1 )
             END IF
             GO TO 300
          END IF
diff --git a/SRC/pstrsen.f b/SRC/pstrsen.f
index 1922e8f1..83dfd567 100644
--- a/SRC/pstrsen.f
+++ b/SRC/pstrsen.f
@@ -361,7 +361,7 @@ SUBROUTINE PSTRSEN( JOB, COMPQ, SELECT, PARA, N, T, IT, JT,
       REAL               ELEM, EST, SCALE, RNORM
 *     .. Local Arrays ..
       INTEGER            DESCT12( DLEN_ ), MBNB2( 2 ), MMAX( 1 ),
-     $                   MMIN( 1 ), INFODUM( 1 )
+     $                   MMIN( 1 )
       REAL               DPDUM1( 1 )
 *     ..
 *     .. External Functions ..
@@ -605,9 +605,8 @@ SUBROUTINE PSTRSEN( JOB, COMPQ, SELECT, PARA, N, T, IT, JT,
 *     Global maximum on info
 *
       IF( NPROCS.GT.1 ) THEN
-         CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1, -1, -1,
+         CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1, -1, -1,
      $          -1, -1 )
-         INFO = INFODUM( 1 )
       END IF
 *
 *     Return if some argument is incorrect