From ceea631d5e38aecc29331ac8db0074a70b023bfd Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 16 Jun 2021 15:03:22 -0400
Subject: [PATCH] Add several instructive comments.

---
 map65/libm65/wideband_sync.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/map65/libm65/wideband_sync.f90 b/map65/libm65/wideband_sync.f90
index 61d9b06c1..78fa9812f 100644
--- a/map65/libm65/wideband_sync.f90
+++ b/map65/libm65/wideband_sync.f90
@@ -166,7 +166,7 @@ subroutine wb_sync(ss,savg,jz,nfa,nfb)
         do lag=0,LAGMAX
 
            ccf=0.
-           do j=1,22
+           do j=1,22                        !Test for Q65 sync
               k=isync(j) + lag
               ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1) + ss(ipol,k+2,i+1) 
            enddo
@@ -179,7 +179,7 @@ subroutine wb_sync(ss,savg,jz,nfa,nfb)
            endif
 
            ccf=0.
-           do j=1,63
+           do j=1,63                       !Test for JT65 sync, std msg
               k=jsync0(j) + lag
               ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1)
            enddo
@@ -192,7 +192,7 @@ subroutine wb_sync(ss,savg,jz,nfa,nfb)
            endif
 
            ccf=0.
-           do j=1,63
+           do j=1,63                       !Test for JT65 sync, OOO msg
               k=jsync1(j) + lag
               ccf=ccf + ss(ipol,k,i+1) + ss(ipol,k+1,i+1)
            enddo