From 1a39ed1e5d35797193527dffd6eee4a3f64033d3 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 30 Apr 2020 16:54:53 -0400 Subject: [PATCH] Code cleanup. --- lib/sync65.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/lib/sync65.f90 b/lib/sync65.f90 index 974bdc2da..cfb3accb7 100644 --- a/lib/sync65.f90 +++ b/lib/sync65.f90 @@ -55,8 +55,6 @@ subroutine sync65(nfa,nfb,ntol,nqsym,ca,ncand,nrobust,bVHF) do i=ia,ib freq=i*df itry=0 -! if(naggressive.gt.0 .and. ntol.lt.1000 .and. ccfmax.ge.thresh0) then -! if(naggressive.gt.0 .and. ccfmax.ge.thresh0) then if(bVHF) then if(i.ne.ipk .or. ccfmax.lt.thresh0) cycle itry=1