From d17bc2f97fd4af6946001e49b5ae535f8e45c390 Mon Sep 17 00:00:00 2001 From: K9AN Date: Sat, 4 Jul 2020 13:06:50 -0500 Subject: [PATCH] Comment out debug prints. --- lib/fst240_decode.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/fst240_decode.f90 b/lib/fst240_decode.f90 index a0eb5ad64..a0d3e4845 100644 --- a/lib/fst240_decode.f90 +++ b/lib/fst240_decode.f90 @@ -561,9 +561,9 @@ contains nsnr=nint(xsnr) qual=0. fsig=fc_synced - 1.5*hmod*baud - write(21,'(i6,8i6,f7.1,f9.2,f7.1,1x,f7.2,1x,f7.1,1x,a37)') & - nutc,icand,itry,nsyncoh,iaptype,ijitter,ntype,nsync_qual,nharderrors,dmin,sync,xsnr,xdt,fsig,msg - flush(21) +! write(21,'(i6,8i6,f7.1,f9.2,f7.1,1x,f7.2,1x,f7.1,1x,a37)') & +! nutc,icand,itry,nsyncoh,iaptype,ijitter,ntype,nsync_qual,nharderrors,dmin,sync,xsnr,xdt,fsig,msg +! flush(21) call this%callback(nutc,smax1,nsnr,xdt,fsig,msg, & iaptype,qual,ntrperiod,lwspr) goto 2002