From c7db09fff583b5143c83ecd24768f5856d9d7e7e Mon Sep 17 00:00:00 2001 From: Jordan Sherer Date: Tue, 5 May 2020 08:28:06 -0400 Subject: [PATCH] Removed debug statements from subtractjs8 --- lib/js8/subtractjs8.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/js8/subtractjs8.f90 b/lib/js8/subtractjs8.f90 index 18bcd95..93daaf5 100644 --- a/lib/js8/subtractjs8.f90 +++ b/lib/js8/subtractjs8.f90 @@ -20,7 +20,7 @@ subroutine subtractjs8(dd,itone,f0,dt) nstart=dt*12000+1 - if(NWRITELOG.eq.0) then + if(NWRITELOG.eq.1) then write(*,*) ' generating reference signal', nstart flush(6) endif @@ -33,14 +33,14 @@ subroutine subtractjs8(dd,itone,f0,dt) if(id.ge.1.and.id.le.NMAX) camp(i)=dd(id)*conjg(cref(i)) enddo - if(NWRITELOG.eq.0) then + if(NWRITELOG.eq.1) then write(*,*) ' filtering', NFFT flush(6) endif if(first) then ! Create and normalize the filter - if(NWRITELOG.eq.0) then + if(NWRITELOG.eq.1) then write(*,*) ' creating and normalizing filter' flush(6) endif @@ -94,7 +94,7 @@ subroutine subtractjs8(dd,itone,f0,dt) endif endif - if(NWRITELOG.eq.0) then + if(NWRITELOG.eq.1) then write(*,*) ' generating complex amplitude' flush(6) endif @@ -105,7 +105,7 @@ subroutine subtractjs8(dd,itone,f0,dt) cfilt(1:NFFT)=cfilt(1:NFFT)*cw(1:NFFT) call four2a(cfilt,NFFT,1,1,1) - if(NWRITELOG.eq.0) then + if(NWRITELOG.eq.1) then write(*,*) ' subtracting filtered reference', NFFT flush(6) endif