From b194cc1a14c7bc878285a7bb099b3e4bf0ab5dac Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Thu, 18 Feb 2021 14:26:56 -0600
Subject: [PATCH] FST4: Do not bail out of blanker loop after 1st decode.

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

diff --git a/lib/fst4_decode.f90 b/lib/fst4_decode.f90
index 5fb591ffa..8b6135530 100644
--- a/lib/fst4_decode.f90
+++ b/lib/fst4_decode.f90
@@ -613,7 +613,7 @@ contains
                      endif
                      call this%callback(nutc,smax1,nsnr,xdt,fsig,msg,    &
                         iaptype,qual,ntrperiod,lwspr,fmid,w50)
-                     if(iwspr.eq.0 .and. nb.lt.0) go to 900
+!                     if(iwspr.eq.0 .and. nb.lt.0) go to 900
                      goto 800
                   endif
                enddo  ! metrics