fixed info and ierr distribution in P?TRORD

Author: swappik

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

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