From 5efa28164c596a68cf7f3367f07c40356440c8d7 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 25 Jan 2019 14:46:17 -0500
Subject: [PATCH] Remove a redundant file reference in CMakeLists.txt.  Fix
 call to unpck77 in genft2.f90

---
 CMakeLists.txt     | 1 -
 lib/ft2/genft2.f90 | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/CMakeLists.txt b/CMakeLists.txt
index 41404d4ed..79c8302e5 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -459,7 +459,6 @@ set (wsjt_FSRCS
   lib/gen65.f90
   lib/gen9.f90
   lib/geniscat.f90
-  lib/fsk4hf/genft2.f90
   lib/ft8/genft8.f90
   lib/genmsk_128_90.f90
   lib/genmsk40.f90
diff --git a/lib/ft2/genft2.f90 b/lib/ft2/genft2.f90
index f416c3616..2eb36bccc 100644
--- a/lib/ft2/genft2.f90
+++ b/lib/ft2/genft2.f90
@@ -68,7 +68,7 @@ subroutine genft2(msg0,ichk,msgsent,i4tone,itype)
      i3=-1
      n3=-1
      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
      read(c77,"(77i1)") msgbits