From ec673490b4302d5ead27e041b0eca75acd6349a3 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 15 Jun 2017 15:43:33 +0000
Subject: [PATCH] More tweaks
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7722 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
lib/fsk4hf/ft8sim.f90 | 2 +-
lib/fsk4hf/genft8.f90 | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/fsk4hf/ft8sim.f90 b/lib/fsk4hf/ft8sim.f90
index 13479f0a2..9e2f50f36 100644
--- a/lib/fsk4hf/ft8sim.f90
+++ b/lib/fsk4hf/ft8sim.f90
@@ -94,7 +94,7 @@ program ft8sim
write(10) h,iwave !Save to *.wav file
close(10)
write(*,1110) ifile,xdt,f0,snrdb,fname
-1110 format(i4,f7.2,f8.2,f7.1,2x,a16)
+1110 format(i4,f7.2,f8.2,f7.1,2x,a17)
! do i=0,NZ-1
! write(13,3001) i,i/12000.0,c(i),iwave(i+1)
!3001 format(i8,f12.6,2f12.3,i8)
diff --git a/lib/fsk4hf/genft8.f90 b/lib/fsk4hf/genft8.f90
index 5e652cb02..7b2535aa5 100644
--- a/lib/fsk4hf/genft8.f90
+++ b/lib/fsk4hf/genft8.f90
@@ -7,7 +7,7 @@ subroutine genft8(msg,msgsent,itone)
include 'ft8_params.f90'
character*22 msg,msgsent
character*87 cbits
- logical checksumok
+! logical checksumok
integer*4 i4Msg6BitWords(12) !72-bit message as 6-bit words
integer*1 msgbits(KK),codeword(3*ND)
integer*1, target:: i1Msg8BitBytes(11)