From 121fd2c3dd5481733afa9f4913d4254bd2ec865e Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 13 Jan 2021 15:29:57 -0500
Subject: [PATCH] Fix a logical test on idec.

---
 lib/q65_decode.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index 573bc02d7..14b5fafa5 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -153,7 +153,7 @@ contains
        call q65_loops(c00,npts/2,nsps/2,nsubmode,ndepth,jpk0,   &
             xdt,f0,iaptype,xdt1,f1,snr2,dat4,idec)
        call timer('q65loops',1)
-       if(idec.gt.0) go to 100       !Successful decode, we're done
+       if(idec.ge.0) go to 100       !Successful decode, we're done
     enddo
 
 ! There was no single-transmission decode.