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

Author: weslleyspereira

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

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