From f2859b706d8c324ad517bd5983dfaff221c12d21 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 6 Apr 2021 15:02:43 -0400
Subject: [PATCH] Don't call Q65 decoder on the first call to map65a().

---
 libm65/map65a.f90 | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/libm65/map65a.f90 b/libm65/map65a.f90
index 065945019..fd28fab3c 100644
--- a/libm65/map65a.f90
+++ b/libm65/map65a.f90
@@ -47,8 +47,6 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
 !  open(23,file='release/CALL3.TXT',status='unknown')
   open(23,file='CALL3.TXT',status='unknown')
 
-  if(nutc.ne.nutc0) nfile=nfile+1
-  nutc0=nutc
   df=96000.0/NFFT                     !df = 96000/NFFT = 2.930 Hz
   if(nfsample.eq.95238) df=95238.1/NFFT
   ftol=0.010                          !Frequency tolerance (kHz)
@@ -60,7 +58,10 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
 2  if(ndphi.eq.1) dphi=30*iloop/57.2957795
 
   nqdz=1
-  if(bq65) nqdz=2
+  if(bq65 .and. nutc0.ge.0) nqdz=2
+  if(nutc.ne.nutc0) nfile=nfile+1
+  nutc0=nutc
+
   do nqd=nqdz,0,-1
      if(nqd.eq.2) then
         fa=1000.0*fqso