From 9a9e4a0ae6ac3a14df8177cfce6ad0181fb0a9b2 Mon Sep 17 00:00:00 2001
From: Weslley da Silva Pereira <weslley.spereira@gmail.com>
Date: Tue, 26 Jul 2022 17:20:10 -0600
Subject: [PATCH] Skip update part in pdtrord for current WINDOW if NWIN <= 0,
 as suggested by Meiyue Shao

---
 SRC/pdtrord.f | 4 ++++
 SRC/pstrord.f | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/SRC/pdtrord.f b/SRC/pdtrord.f
index 63e9457a..27eb86fd 100644
--- 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.LE.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
index 6960914a..33f23240 100644
--- 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.LE.0 ) GO TO 295
 *
                IF( FLOPS.NE.0 .AND.
      $              ( FLOPS*100 ) / ( 2*NWIN*NWIN ) .GE. MMULT ) THEN