w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-30 20:40:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix two longstanding errors in extract.f90.

Browse Source
This commit is contained in:
Joe Taylor 2021-06-02 09:13:01 -04:00
parent b14e50312f
commit 79d3086279
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
map65/libm65/extract.f90
View File

@ -98,7 +98,7 @@ subroutine extract(s3,nadd,ncount,nhist,decoded,ltext)
itmp(i)=correct(64-i) itmp(i)=correct(64-i)
enddo enddo
correct(1:63)=itmp(1:63) correct(1:63)=itmp(1:63)
call interleave63(correct,63,1) call interleave63(correct,1)
call graycode65(correct,63,1) call graycode65(correct,63,1)
call unpackmsg(dat4,decoded) !Unpack the user message call unpackmsg(dat4,decoded) !Unpack the user message
ncount=0 ncount=0
@ -120,7 +120,7 @@ subroutine getpp(workdat,p)
a(1:63)=workdat(63:1:-1) a(1:63)=workdat(63:1:-1)
call interleave63(a,1) call interleave63(a,1)
call graycode(a,63,1,a) call graycode(a,63,1)
psum=0. psum=0.
do j=1,63 do j=1,63