Skip to content

Commit 6c76aaa

Browse files
langoulangou
authored
Merge pull request #34 from swappik/master
Fix info distribution in P?TRORD and PSTRSEN
2 parents 6819b24 + c59db48 commit 6c76aaa

File tree

3 files changed

+14
-25
lines changed

3 files changed

+14
-25
lines changed

‎SRC/pdtrord.f‎

Lines changed: 6 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -334,7 +334,7 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
334334
* ..
335335
* .. Local Arrays ..
336336
INTEGER IBUFF( 8 ), IDUM1( 1 ), IDUM2( 1 ), MMAX( 1 ),
337-
$ MMIN( 1 ), INFODUM( 1 )
337+
$ MMIN( 1 )
338338
* ..
339339
* .. External Functions ..
340340
LOGICAL LSAME
@@ -522,9 +522,8 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
522522
* Global maximum on info.
523523
*
524524
IF( NPROCS.GT.1 ) THEN
525-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1, -1, -1,
525+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1, -1, -1,
526526
$ -1, -1 )
527-
INFO = INFODUM( 1 )
528527
END IF
529528
*
530529
* Return if some argument is incorrect.
@@ -1580,9 +1579,8 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
15801579
*
15811580
MYIERR = IERR
15821581
IF( NPROCS.GT.1 ) THEN
1583-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
1582+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
15841583
$ -1, -1, -1, -1 )
1585-
IERR = INFODUM( 1 )
15861584
END IF
15871585
*
15881586
IF( IERR.NE.0 ) THEN
@@ -1592,9 +1590,8 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
15921590
*
15931591
IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
15941592
IF( NPROCS.GT.1 ) THEN
1595-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
1593+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
15961594
$ -1, -1, -1, -1 )
1597-
INFO = INFODUM( 1 )
15981595
END IF
15991596
GO TO 300
16001597
END IF
@@ -3253,9 +3250,8 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
32533250
*
32543251
MYIERR = IERR
32553252
IF( NPROCS.GT.1 ) THEN
3256-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
3253+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
32573254
$ -1, -1, -1, -1 )
3258-
IERR = INFODUM( 1 )
32593255
END IF
32603256
*
32613257
IF( IERR.NE.0 ) THEN
@@ -3265,9 +3261,8 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
32653261
*
32663262
IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
32673263
IF( NPROCS.GT.1 ) THEN
3268-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
3264+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
32693265
$ -1, -1, -1, -1 )
3270-
IERR = INFODUM( 1 )
32713266
END IF
32723267
GO TO 300
32733268
END IF

‎SRC/pstrord.f‎

Lines changed: 6 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -334,7 +334,7 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
334334
* ..
335335
* .. Local Arrays ..
336336
INTEGER IBUFF( 8 ), IDUM1( 1 ), IDUM2( 1 ), MMAX( 1 ),
337-
$ MMIN( 1 ), INFODUM( 1 )
337+
$ MMIN( 1 )
338338
* ..
339339
* .. External Functions ..
340340
LOGICAL LSAME
@@ -522,9 +522,8 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
522522
* Global maximum on info.
523523
*
524524
IF( NPROCS.GT.1 ) THEN
525-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1, -1,
525+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1, -1,
526526
$ -1, -1, -1 )
527-
INFO = INFODUM( 1 )
528527
END IF
529528
*
530529
* Return if some argument is incorrect.
@@ -1580,9 +1579,8 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
15801579
*
15811580
MYIERR = IERR
15821581
IF( NPROCS.GT.1 ) THEN
1583-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
1582+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
15841583
$ -1, -1, -1, -1 )
1585-
IERR = INFODUM( 1 )
15861584
END IF
15871585
*
15881586
IF( IERR.NE.0 ) THEN
@@ -1592,9 +1590,8 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
15921590
*
15931591
IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
15941592
IF( NPROCS.GT.1 ) THEN
1595-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
1593+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
15961594
$ -1, -1, -1, -1 )
1597-
INFO = INFODUM( 1 )
15981595
END IF
15991596
GO TO 300
16001597
END IF
@@ -3253,9 +3250,8 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
32533250
*
32543251
MYIERR = IERR
32553252
IF( NPROCS.GT.1 ) THEN
3256-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
3253+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, IERR, 1, -1,
32573254
$ -1, -1, -1, -1 )
3258-
IERR = INFODUM( 1 )
32593255
END IF
32603256
*
32613257
IF( IERR.NE.0 ) THEN
@@ -3265,9 +3261,8 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
32653261
*
32663262
IF( MYIERR.NE.0 ) INFO = MAX(1,I+KKS-1)
32673263
IF( NPROCS.GT.1 ) THEN
3268-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1,
3264+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1,
32693265
$ -1, -1, -1, -1 )
3270-
INFO = INFODUM( 1 )
32713266
END IF
32723267
GO TO 300
32733268
END IF

‎SRC/pstrsen.f‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -361,7 +361,7 @@ SUBROUTINE PSTRSEN( JOB, COMPQ, SELECT, PARA, N, T, IT, JT,
361361
REAL ELEM, EST, SCALE, RNORM
362362
* .. Local Arrays ..
363363
INTEGER DESCT12( DLEN_ ), MBNB2( 2 ), MMAX( 1 ),
364-
$ MMIN( 1 ), INFODUM( 1 )
364+
$ MMIN( 1 )
365365
REAL DPDUM1( 1 )
366366
* ..
367367
* .. External Functions ..
@@ -605,9 +605,8 @@ SUBROUTINE PSTRSEN( JOB, COMPQ, SELECT, PARA, N, T, IT, JT,
605605
* Global maximum on info
606606
*
607607
IF( NPROCS.GT.1 ) THEN
608-
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFODUM, 1, -1, -1, -1,
608+
CALL IGAMX2D( ICTXT, 'All', TOP, 1, 1, INFO, 1, -1, -1, -1,
609609
$ -1, -1 )
610-
INFO = INFODUM( 1 )
611610
END IF
612611
*
613612
* Return if some argument is incorrect

0 commit comments

Comments
 (0)