w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-12-04 10:03:11 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove some debug code.

Browse Source
This commit is contained in:
Steven Franke 2021-01-02 11:37:16 -06:00
parent 41258a5ddc
commit e2c2228d36
1 changed files with 307 additions and 331 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lib/fst4_decode.f90
View File

@ -43,7 +43,6 @@ contains
procedure(fst4_decode_callback) :: callback procedure(fst4_decode_callback) :: callback
character*37 decodes(100) character*37 decodes(100)
character*37 msg,msgsent character*37 msg,msgsent
character*8 s_nfa_nfb
character*20 wcalls(MAXWCALLS), wpart character*20 wcalls(MAXWCALLS), wpart
character*77 c77 character*77 c77
character*12 mycall,hiscall character*12 mycall,hiscall
@ -264,27 +263,6 @@ contains
inb1=0 !Fixed NB value, 0 to 25% inb1=0 !Fixed NB value, 0 to 25%
endif endif
! If environment variable FST4W_ALSO_FST4 exists then, when in FST4W mode,
! do a second pass for FST4 decodes. The value of FST4W_ALSO_FST4
! is of the form xxxxyyyy where nfa=xxxx and nfb=yyyy are the
! search limits for the FST4 decoding pass, e.g.
! FST4W_ALSO_FST4=08001700 will set FST4 search window to [800Hz,1700Hz]
!
nmode=1
call get_environment_variable("FST4W_ALSO_FST4",s_nfa_nfb,nlength)
if(iwspr.eq.1 .and. nlength.eq.8) then
read(s_nfa_nfb,"(i4.4,i4.4)") nfa_mode2,nfb_mode2
nmode=2
if(nfa_mode2.lt.100 .or. nfb_mode2.gt.4910 .or. nfb_mode2.le.nfa_mode2) nmode=1
endif
do imode=1,nmode
if(imode.eq.1) iwspr=1
if(imode.eq.2) then ! this is FST4 after a FST4W pass
iwspr=0
nfa=nfa_mode2
nfb=nfb_mode2
endif
! nfa,nfb: define the noise-baseline analysis window ! nfa,nfb: define the noise-baseline analysis window
! fa, fb: define the signal search window ! fa, fb: define the signal search window
@ -297,7 +275,7 @@ contains
fa=max(100,nint(nfqso+1.5*baud-ntol)) ! signal search window fa=max(100,nint(nfqso+1.5*baud-ntol)) ! signal search window
fb=min(4800,nint(nfqso+1.5*baud+ntol)) fb=min(4800,nint(nfqso+1.5*baud+ntol))
else if(iwspr.eq.0) then else if(iwspr.eq.0) then
if(imode.eq.1 .and. single_decode) then if(single_decode) then
fa=max(100,nint(nfa+1.5*baud)) fa=max(100,nint(nfa+1.5*baud))
fb=min(4800,nint(nfb+1.5*baud)) fb=min(4800,nint(nfb+1.5*baud))
! extend noise fit 100 Hz outside of search window ! extend noise fit 100 Hz outside of search window
@ -635,7 +613,7 @@ contains
endif endif
call this%callback(nutc,smax1,nsnr,xdt,fsig,msg, & call this%callback(nutc,smax1,nsnr,xdt,fsig,msg, &
iaptype,qual,ntrperiod,lwspr,fmid,w50) iaptype,qual,ntrperiod,lwspr,fmid,w50)
if(iwspr.eq.0 .and. nb.lt.0 .and. imode.eq.1) go to 900 if(iwspr.eq.0 .and. nb.lt.0) go to 900
goto 800 goto 800
endif endif
enddo ! metrics enddo ! metrics
@ -651,8 +629,6 @@ contains
close(42) close(42)
endif endif
enddo ! mode loop
900 return 900 return
end subroutine decode end subroutine decode