From 363e301e312642c147e50af8b7aeb1a182e789db Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sun, 17 Dec 2023 15:16:36 -0500
Subject: [PATCH] Code cleanup.
---
qmap/libqmap/q65b.f90 | 6 ------
1 file changed, 6 deletions(-)
diff --git a/qmap/libqmap/q65b.f90 b/qmap/libqmap/q65b.f90
index 8fab1c209..f35c12df0 100644
--- a/qmap/libqmap/q65b.f90
+++ b/qmap/libqmap/q65b.f90
@@ -92,13 +92,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol, &
endif
nsnr0=-99 !Default snr for no decode
-!###
-! nfa=800
-! nfb=1200
-! write(*,4001) f0,f0+31.847,nfa,nfb,ntol,ntrperiod,iseq,mode_q65
-!4001 format('b',2f10.3,6i6)
if(iseq.eq.1) iwave(1:360000)=iwave(360001:720000)
-!###
csubmode(1:2)='60'
csubmode(3:3)=char(ichar('A')+nsubmode)