w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Trivial code cleanup of q65_decode.f90.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-27 15:13:47 -04:00
parent f2000dcc8c
commit 14f8dc76c0
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/q65_decode.f90
View File

@ -67,10 +67,10 @@ contains
integer dat4(13) !Decoded message as 12 6-bit integers integer dat4(13) !Decoded message as 12 6-bit integers
integer dgen(13) integer dgen(13)
logical lclearave,lnewdat0,lapcqonly,unpk77_success logical lclearave,lnewdat0,lapcqonly,unpk77_success
logical single_decode,lagain,ex logical single_decode,lagain
complex, allocatable :: c00(:) !Analytic signal, 6000 Sa/s complex, allocatable :: c00(:) !Analytic signal, 6000 Sa/s
complex, allocatable :: c0(:) !Analytic signal, 6000 Sa/s complex, allocatable :: c0(:) !Analytic signal, 6000 Sa/s
! Start by setting some parameters and allocating storage for large arrays ! Start by setting some parameters and allocating storage for large arrays
call sec0(0,tdecode) call sec0(0,tdecode)
nfa=nfa0 nfa=nfa0
@ -128,7 +128,6 @@ contains
ibwb=min(10,ibwb+1) ibwb=min(10,ibwb+1)
maxiters=100 maxiters=100
endif endif
! Generate codewords for full-AP list decoding ! Generate codewords for full-AP list decoding
call q65_set_list(mycall,hiscall,hisgrid,codewords,ncw) call q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
dgen=0 dgen=0