From 14f8dc76c0d9a5a5c45781473225a0eccce80fd9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 27 Apr 2021 15:13:47 -0400
Subject: [PATCH] Trivial code cleanup of q65_decode.f90.

---
 lib/q65_decode.f90 | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index 80d82b95f..07a15b81c 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -67,10 +67,10 @@ contains
     integer dat4(13)                      !Decoded message as 12 6-bit integers
     integer dgen(13)
     logical lclearave,lnewdat0,lapcqonly,unpk77_success
-    logical single_decode,lagain,ex
+    logical single_decode,lagain
     complex, allocatable :: c00(:)        !Analytic signal, 6000 Sa/s
     complex, allocatable :: c0(:)         !Analytic signal, 6000 Sa/s
-    
+
 ! Start by setting some parameters and allocating storage for large arrays
     call sec0(0,tdecode)
     nfa=nfa0
@@ -128,7 +128,6 @@ contains
        ibwb=min(10,ibwb+1)
        maxiters=100
     endif
-
 ! Generate codewords for full-AP list decoding    
     call q65_set_list(mycall,hiscall,hisgrid,codewords,ncw) 
     dgen=0