From 56a52fa7a4b8b31a6d31cb67a4b70475e2e0e13b Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 30 Nov 2018 14:33:49 -0500 Subject: [PATCH] Revert "Protect against negative ccfred() value in sync4." This reverts commit 72d3e6f6b03227fd3e6212bc73b4c5acd9aab67d. --- lib/sync4.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/sync4.f90 b/lib/sync4.f90 index e3a6a24de..a15177665 100644 --- a/lib/sync4.f90 +++ b/lib/sync4.f90 @@ -140,9 +140,8 @@ subroutine sync4(dat,jz,ntol,nfqso,mode,mode4,minwidth,dtx,dfx,snrx, & endif enddo rms=0.1 - snrx=-26.0 if(ns.gt.0) rms=sqrt(sq/ns) - if(ccfred(ipk1a).gt.0.0) snrx=10.0*log10(ccfred(ipk1a)/rms) - 41.2 + snrx=10.0*log10(ccfred(ipk1a)/rms) - 41.2 if(snrx.gt.50.0) snrx=50.0 900 return