chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed debug statements from subtractjs8

Browse Source
This commit is contained in:
Jordan Sherer 2020-05-05 08:28:06 -04:00
parent 76dfd50e74
commit c7db09fff5
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/js8/subtractjs8.f90
View File

@ -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(*,*) '<DecodeDebug> 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(*,*) '<DecodeDebug> filtering', NFFT
flush(6)
endif
if(first) then
! Create and normalize the filter
if(NWRITELOG.eq.0) then
if(NWRITELOG.eq.1) then
write(*,*) '<DecodeDebug> 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(*,*) '<DecodeDebug> 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(*,*) '<DecodeDebug> subtracting filtered reference', NFFT
flush(6)
endif