From 4379ef9627c768e50d6c68c77ec7fadaa1de3fea Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 25 Apr 2020 12:10:32 -0400
Subject: [PATCH] Fix a flaw in the new test logic.

---
 lib/decoder.f90 | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 98b45ef52..a5f542e1e 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -65,14 +65,16 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
   
 ! For testing only: return Rx messages stored in a file as decodes
   inquire(file='rx_messages.txt',exist=ex)
-  if(ex .and.  params%nzhsym.eq.41) then
-     open(39,file='rx_messages.txt',status='old')
-     do i=1,9999
-        read(39,'(a60)',end=5) line
-        if(line(1:1).eq.' ' .or. line(1:1).eq.'-') go to 800
-        write(*,'(a)') trim(line)
-     enddo
-5    close(39)
+  if(ex) then
+     if(params%nzhsym.eq.41) then
+        open(39,file='rx_messages.txt',status='old')
+        do i=1,9999
+           read(39,'(a60)',end=5) line
+           if(line(1:1).eq.' ' .or. line(1:1).eq.'-') go to 800
+           write(*,'(a)') trim(line)
+        enddo
+5       close(39)
+     endif
      go to 800
   endif