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

Remove a redundant file reference in CMakeLists.txt. Fix call to unpck77 in genft2.f90

Browse Source
This commit is contained in:
Joe Taylor 2019-01-25 14:46:17 -05:00
parent a0ddc1485e
commit 5efa28164c
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CMakeLists.txt
View File

@ -459,7 +459,6 @@ set (wsjt_FSRCS
lib/gen65.f90 lib/gen65.f90
lib/gen9.f90 lib/gen9.f90
lib/geniscat.f90 lib/geniscat.f90
lib/fsk4hf/genft2.f90
lib/ft8/genft8.f90 lib/ft8/genft8.f90
lib/genmsk_128_90.f90 lib/genmsk_128_90.f90
lib/genmsk40.f90 lib/genmsk40.f90

2
lib/ft2/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