From d3e9f3fc5a2caa2c764bf4de91e55d21147a25f3 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 22 Dec 2023 19:37:54 -0500 Subject: [PATCH] Don't honor 'bSkip' if nagain.eq.1. --- qmap/libqmap/q65c.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/qmap/libqmap/q65c.f90 b/qmap/libqmap/q65c.f90 index 678d504b3..7c35baded 100644 --- a/qmap/libqmap/q65c.f90 +++ b/qmap/libqmap/q65c.f90 @@ -42,7 +42,7 @@ subroutine q65c(itimer) newdat=1 !Always on ?? call chkstat(dd,max_nhsym,bSkip) - if(bSkip) return + if(bSkip .and. nagain.eq.0) return call timer('decode0 ',0) call decode0(dd,ss,savg)