w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-10-31 15:47:10 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix merge issues

Browse Source
This commit is contained in:
Bill Somerville 2019-01-16 20:55:01 +00:00
parent aee9c09851
commit 074914d607
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/fsk4hf/ft2d.f90
View File

@ -201,7 +201,7 @@ program ft2d
if(sum(message77).eq.0) cycle if(sum(message77).eq.0) cycle
if( nharderror.ge.0 ) then if( nharderror.ge.0 ) then
write(c77,'(77i1)') message77(1:77) write(c77,'(77i1)') message77(1:77)
call unpack77(c77,message,unpk77_success) call unpack77(c77,1,message,unpk77_success)
idupe=0 idupe=0
do i=1,ndecodes do i=1,ndecodes
if(decodes(i).eq.message) idupe=1 if(decodes(i).eq.message) idupe=1

2
lib/fsk4hf/genft2.f90
View File

@ -68,7 +68,7 @@ subroutine genft2(msg0,ichk,msgsent,i4tone,itype)
i3=-1 i3=-1
n3=-1 n3=-1
call pack77(message,i3,n3,c77) call pack77(message,i3,n3,c77)
call unpack77(c77,msgsent,unpk77_success) !Unpack to get msgsent call unpack77(c77,0,msgsent,unpk77_success) !Unpack to get msgsent
if(ichk.eq.1) go to 999 if(ichk.eq.1) go to 999
read(c77,"(77i1)") msgbits read(c77,"(77i1)") msgbits