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 nstart=dt*12000+1
if(NWRITELOG.eq.0) then if(NWRITELOG.eq.1) then
write(*,*) '<DecodeDebug> generating reference signal', nstart write(*,*) '<DecodeDebug> generating reference signal', nstart
flush(6) flush(6)
endif 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)) if(id.ge.1.and.id.le.NMAX) camp(i)=dd(id)*conjg(cref(i))
enddo enddo
if(NWRITELOG.eq.0) then if(NWRITELOG.eq.1) then
write(*,*) '<DecodeDebug> filtering', NFFT write(*,*) '<DecodeDebug> filtering', NFFT
flush(6) flush(6)
endif endif
if(first) then if(first) then
! Create and normalize the filter ! Create and normalize the filter
if(NWRITELOG.eq.0) then if(NWRITELOG.eq.1) then
write(*,*) '<DecodeDebug> creating and normalizing filter' write(*,*) '<DecodeDebug> creating and normalizing filter'
flush(6) flush(6)
endif endif
@ -94,7 +94,7 @@ subroutine subtractjs8(dd,itone,f0,dt)
endif endif
endif endif
if(NWRITELOG.eq.0) then if(NWRITELOG.eq.1) then
write(*,*) '<DecodeDebug> generating complex amplitude' write(*,*) '<DecodeDebug> generating complex amplitude'
flush(6) flush(6)
endif endif
@ -105,7 +105,7 @@ subroutine subtractjs8(dd,itone,f0,dt)
cfilt(1:NFFT)=cfilt(1:NFFT)*cw(1:NFFT) cfilt(1:NFFT)=cfilt(1:NFFT)*cw(1:NFFT)
call four2a(cfilt,NFFT,1,1,1) call four2a(cfilt,NFFT,1,1,1)
if(NWRITELOG.eq.0) then if(NWRITELOG.eq.1) then
write(*,*) '<DecodeDebug> subtracting filtered reference', NFFT write(*,*) '<DecodeDebug> subtracting filtered reference', NFFT
flush(6) flush(6)
endif endif