w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-23 18:02:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove the dependence on optionalfile q65_params.txt.

Browse Source
This commit is contained in:
Joe Taylor 2023-01-24 15:07:55 -05:00
parent e72b39a9d9
commit 652bfb8429
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/q65_decode.f90
View File

@ -135,8 +135,9 @@ contains
baud=12000.0/nsps baud=12000.0/nsps
this%callback => callback this%callback => callback
nFadingModel=1 nFadingModel=1
ibwa=2*mode_q65
ibwb=ibwa+4 ibwa=max(1,int(1.8*log(baud*mode_q65)) + 5)
ibwb=min(15,ibwa+4)
maxiters=40 maxiters=40
if(iand(ndepth,3).eq.2) maxiters=60 if(iand(ndepth,3).eq.2) maxiters=60
if(iand(ndepth,3).eq.3) then if(iand(ndepth,3).eq.3) then
@ -144,17 +145,7 @@ contains
ibwb=ibwb+2 ibwb=ibwb+2
maxiters=100 maxiters=100
endif endif
inquire(file='q65_params.txt',exist=ex)
if(ex) then
open(28,file='q65_params.txt',status='old')
read(28,*) nq65param
ibwa=nq65param(1)
ibwb=nq65param(2)
maxiters=nq65param(3)
close(28)
endif
! write(*,3001) iand(ndepth,3),nsubmode,ibwa,ibwb,maxiters
!3001 format(5i5)
! Generate codewords for full-AP list decoding ! Generate codewords for full-AP list decoding
if(ichar(hiscall(1:1)).eq.0) hiscall=' ' if(ichar(hiscall(1:1)).eq.0) hiscall=' '
if(ichar(hisgrid(1:1)).eq.0) hisgrid=' ' if(ichar(hisgrid(1:1)).eq.0) hisgrid=' '