Skip update part in pdtrord for current WINDOW if NWIN = 0

Reference-ScaLAPACK · Jul 26, 2022 · d6ce945 · d6ce945
1 parent 782e739
commit d6ce945
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/SRC/pdtrord.f b/SRC/pdtrord.f
@@ -1083,6 +1083,10 @@ SUBROUTINE PDTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
                ELSE
                   FLOPS = 0
                END IF
+*
+*              Skip update part for current WINDOW if NWIN = 0.
+*
+               IF( NWIN.EQ.0 ) GO TO 295
 *
                IF( FLOPS.NE.0 .AND.
      $              ( FLOPS*100 ) / ( 2*NWIN*NWIN ) .GE. MMULT ) THEN

diff --git a/SRC/pstrord.f b/SRC/pstrord.f
@@ -1083,6 +1083,10 @@ SUBROUTINE PSTRORD( COMPQ, SELECT, PARA, N, T, IT, JT,
                ELSE
                   FLOPS = 0
                END IF
+*
+*              Skip update part for current WINDOW if NWIN = 0.
+*
+               IF( NWIN.EQ.0 ) GO TO 295
 *
                IF( FLOPS.NE.0 .AND.
      $              ( FLOPS*100 ) / ( 2*NWIN*NWIN ) .GE. MMULT ) THEN