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

Remove diagnostic write to fort.71.

Browse Source
This commit is contained in:
Joe Taylor 2020-08-06 07:07:16 -04:00
parent 30e34bf1c4
commit 254e2f61fa
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

@ -108,8 +108,8 @@ contains
do j=1,63 !Normalize to symbol baseline do j=1,63 !Normalize to symbol baseline
call pctile(s3(:,j),192,40,base) call pctile(s3(:,j),192,40,base)
s3(:,j)=s3(:,j)/base s3(:,j)=s3(:,j)/base
write(71,3071)j,maxloc(s3(:,j)) ! write(71,3071)j,maxloc(s3(:,j))
3071 format(2i5) !3071 format(2i5)
enddo enddo
s3max=20.0 s3max=20.0