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

Remove a diagnostic print. Correct the maxAP value.

Browse Source
This commit is contained in:
Joe Taylor 2020-08-02 11:40:03 -04:00
parent dd471c6b5e
commit dc5d85f850
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/qra66_decode.f90
View File

@ -70,7 +70,7 @@ contains
! These probably need work: ! These probably need work:
maxaptype=0 maxaptype=0
if(ndepth.eq.2) maxaptype=3 if(ndepth.eq.2) maxaptype=3
if(ndepth.eq.3) maxaptype=11 if(ndepth.eq.3) maxaptype=5
! Prime the decoder for possible AP decoding ! Prime the decoder for possible AP decoding
if(nc1.ne.nc1z .or. nc2.ne.nc2z .or. ng2.ne.ng2z .or. & if(nc1.ne.nc1z .or. nc2.ne.nc2z .or. ng2.ne.ng2z .or. &
@ -138,7 +138,7 @@ contains
call pctile(s3a,192*63,40,base) call pctile(s3a,192*63,40,base)
s3a=s3a/base s3a=s3a/base
print*,'A',maxval(s3a),ndepth,maxaptype,naptype ! print*,'A',maxval(s3a),ndepth,maxaptype,naptype
s3lim=10. s3lim=10.
where(s3a(-64:127,1:63)>s3lim) s3a(-64:127,1:63)=s3lim where(s3a(-64:127,1:63)>s3lim) s3a(-64:127,1:63)=s3lim