From 5fe0bd350855f8a435c1ae3efa9ea7380ab87b86 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 6 Jan 2021 10:30:05 -0500
Subject: [PATCH] Add s1 to the diagnostic output.

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

diff --git a/lib/qra/q65/q65_sync.f90 b/lib/qra/q65/q65_sync.f90
index 1ed8fdbe6..07f7a7d97 100644
--- a/lib/qra/q65/q65_sync.f90
+++ b/lib/qra/q65/q65_sync.f90
@@ -166,7 +166,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps,   &
 !### TEMPORARY
   if(f0.le.0.0 .or. xdt.lt.-90.) then
      write(71) iz,jz,ia2,ccf_best,ipk,jpk,nfqso,mode_q65,df,xdt,f0,  &
-          imsg_best,ccf,ccf1
+          imsg_best,ccf,ccf1,s1
   endif
 !###