Skip to content

Commit 1804c1c

Browse files
pghyselspghysels
committed
restore topology
1 parent 782e739 commit 1804c1c

File tree

10 files changed

+20
-20
lines changed

10 files changed

+20
-20
lines changed

‎SRC/pcungql.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -288,8 +288,8 @@ SUBROUTINE PCUNGQL( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK,
288288
*
289289
10 CONTINUE
290290
*
291-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
292-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
291+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
292+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
293293
*
294294
WORK( 1 ) = CMPLX( REAL( LWMIN ) )
295295
*

‎SRC/pcungqr.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -324,8 +324,8 @@ SUBROUTINE PCUNGQR( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK,
324324
*
325325
END IF
326326
*
327-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
328-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
327+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
328+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
329329
*
330330
WORK( 1 ) = CMPLX( REAL( LWMIN ) )
331331
*

‎SRC/pcunml2.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -390,8 +390,8 @@ SUBROUTINE PCUNML2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU,
390390
*
391391
10 CONTINUE
392392
*
393-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
394-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
393+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
394+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
395395
*
396396
WORK( 1 ) = CMPLX( REAL( LWMIN ) )
397397
*

‎SRC/pdorgql.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -288,8 +288,8 @@ SUBROUTINE PDORGQL( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK,
288288
*
289289
10 CONTINUE
290290
*
291-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
292-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
291+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
292+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
293293
*
294294
WORK( 1 ) = DBLE( LWMIN )
295295
*

‎SRC/pdorgqr.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -324,8 +324,8 @@ SUBROUTINE PDORGQR( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK,
324324
*
325325
END IF
326326
*
327-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
328-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
327+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
328+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
329329
*
330330
WORK( 1 ) = DBLE( LWMIN )
331331
*

‎SRC/pdorml2.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -378,8 +378,8 @@ SUBROUTINE PDORML2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU,
378378
*
379379
10 CONTINUE
380380
*
381-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
382-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
381+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
382+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
383383
*
384384
WORK( 1 ) = DBLE( LWMIN )
385385
*

‎SRC/psorgql.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -288,8 +288,8 @@ SUBROUTINE PSORGQL( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK,
288288
*
289289
10 CONTINUE
290290
*
291-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
292-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
291+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
292+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
293293
*
294294
WORK( 1 ) = REAL( LWMIN )
295295
*

‎SRC/psorgqr.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -324,8 +324,8 @@ SUBROUTINE PSORGQR( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK,
324324
*
325325
END IF
326326
*
327-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
328-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
327+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
328+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
329329
*
330330
WORK( 1 ) = REAL( LWMIN )
331331
*

‎SRC/psorml2.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -378,8 +378,8 @@ SUBROUTINE PSORML2( SIDE, TRANS, M, N, K, A, IA, JA, DESCA, TAU,
378378
*
379379
10 CONTINUE
380380
*
381-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
382-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
381+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
382+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
383383
*
384384
WORK( 1 ) = REAL( LWMIN )
385385
*

‎SRC/pzungqr.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -324,8 +324,8 @@ SUBROUTINE PZUNGQR( M, N, K, A, IA, JA, DESCA, TAU, WORK, LWORK,
324324
*
325325
END IF
326326
*
327-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
328-
CALL PB_TOPGET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
327+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Rowwise', ROWBTOP )
328+
CALL PB_TOPSET( ICTXT, 'Broadcast', 'Columnwise', COLBTOP )
329329
*
330330
WORK( 1 ) = DCMPLX( DBLE( LWMIN ) )
331331
*

0 commit comments

Comments
 (0)